ラジオボタンを使用してデータテーブルの列を表示する（シャイニー）

Question

ユーザーが変更できるradioButtonを使用してデータテーブルに列を表示しようとしています。

は、これまでのところ、私のコードは次のとおりです。

UI：

fluidRow(column(4, radioButtons("radio","Choose:",c("A","B"))))), 
fluidRow(DT::dataTableOutput("table")) 

サーバー：

出力

$table <- DT::renderDataTable({ 
    DT::datatable({table 

    if (input$radio != "A") { 
    table <- table[,1:5] 
    } 

    if (input$radio != "B") { 
    table <- table[,6:10)] 
    } 

    table 

})},rownames = FALSE,options = list(lengthMenu = c(25,50,100))) 

私は、アプリケーションを実行すると、AとBを持つradioButtonsが表示されますが、datatableは表示されません。

Answer 1

コードには多くの問題があります。あなたのコードを修正し、mtcarsデータセットでテストしました。

library(shiny) 

ui <- fluidPage(

    sidebarLayout(
    sidebarPanel(
     radioButtons("radio","Choose:", choices = list("A" = "A", "B" = "B")) 
    ), 

    mainPanel(
     dataTableOutput("table") 
    ) 
    ) 
) 

server <- function(input, output) { 

    output$table <- renderDataTable({ 
    if (input$radio == "A") { 
     table1 <- mtcars[,1:5] 
    } 
    else { 
     table1 <- mtcars[,6:10] 
    } 
    table1 
    }) 
} 

# Run the application 
shinyApp(ui = ui, server = server) 

このアプリケーションを実行すると、ラジオボタンの選択に基づいてデータテーブルが表示されます。