dataTableOutputを光沢のあるアプリケーションで表示する

Question

Great Rコミュニティ アクションボタンを押してモーダルでDT :: dataTableOutputを表示できるかどうかは疑問です。例えば、データテーブルは次のように出力されます。ここで

で始めるためにいくつかのコードです：あなたの迅速な提案を

## app.R ## 
library(shiny) 
library(shinydashboard) 

ui <- dashboardPage(

    dashboardHeader(), 
    ## Sidebar content 
    dashboardSidebar(
    sidebarMenu(
     menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")) 
    ) 
), 

    ## Body content 
    dashboardBody(
    tabItems(
     # First tab content 
     tabItem(tabName = "dashboard", 
       actionButton("showTable", "Show Table", icon = icon("table")) 
       ##fluidRow(DT::dataTableOutput('tbl')) 
       ## SOME CODE TO SHOW DATA TABLE IN MODAL 
    ) 
    ) 
) 
) 

server <- function(input, output) { 
    output$tbl = DT::renderDataTable(
    iris, options = list(lengthChange = FALSE) 
) 
} 

shinyApp(ui, server) 

Answer 1

おかげRyan。それを釘付けにする。ここに私の動作例があります：

## app.R ## 
library(shiny) 
library(shinyBS) 
library(shinydashboard) 

ui <- dashboardPage(

    dashboardHeader(), 
    ## Sidebar content 
    dashboardSidebar(
    sidebarMenu(
     menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")) 
    ) 
), 

    ## Body content 
    dashboardBody(
    tabItems(
     # First tab content 
     tabItem(tabName = "dashboard", 
       actionButton("showTable", "Show Table", icon = icon("table")), 
       bsModal("modalExample", "Data Table", "showTable", size = "large", 
         dataTableOutput("tbl")) 
    ) 
    ) 
) 
) 

server <- function(input, output) { 
    output$tbl = renderDataTable(iris, options = list(lengthChange = FALSE)) 
} 

shinyApp(ui, server)