RのSelectInputに基づくインタラクティブメニューを追加するShiny

Question

与えられたスクリプトは添付されたスナップショットを作成します。これはRのDTパッケージを使用して作成されたテーブルです。テーブルの上にメニュー "A"最初のSelectInputでは、2つのスライダーで2番目のselectInputを取得し、1番目のSelectInputで「B」を選択すると、2番目のSelectInputだけを取得し、スライダーは取得しません。テーブルアイリスに変更は必要ありません。助けていただきありがとうございます。

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

#Declaring the UI 
ui <- fluidPage(
titlePanel("Interactive Menu"), 

# Create a new Row in the UI for selectInputs 
fluidRow(
column(3, 
    selectInput("names", 
       "Customer:", 
       c("A","B")) 
)), 
fluidRow(

column(4, 
     selectInput("names", 
        "Customer:", 
        c(as.character(iris$Species))) 
), 
column(4, 
     sliderInput("slide", "Select the slider one", 
        min = 75, max = 100, 
        value = 75, step = 5) 

), 
column(4, 

     sliderInput("city", "Select the slider two", 
        min = 60, max = 100, 
        value = 60, step = 10) 
)), 

# Create a new row for the table. 
fluidRow(
DT::dataTableOutput("table1") 
) 
) 
#Declaring the Server 
server <- function(input, output) { 

# Filter data based on selections 
output$table1 <- renderDataTable({ 

datatable(iris, options = list(
    searching = FALSE, 
    pageLength = 5, 
    lengthMenu = c(5, 10, 15, 20) 
)) 
}) 
} 
shinyApp(ui, server) 

Answer 1

は、あなたが提供するコードとあなたが尋ねた出力を使用して実施例である：

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

#Declaring the UI 
ui <- fluidPage(
    titlePanel("Interactive Menu"), 

    # Create a new Row in the UI for selectInputs 
    fluidRow(
     column(4, 
     selectInput("names", 
        "Customer:", 
        c("A","B"))) 
    ) 
    , 
    fluidRow(
    conditionalPanel(
     condition = "input.names == 'A'", 
     column(4, 
      selectInput("names", 
         "Customer:", 
         c(as.character(iris$Species))) 
      ), 
     column(4, 
      sliderInput("slide", "Select the slider one", 
         min = 75, max = 100, 
         value = 75, step = 5)), 
     column(4, 
      sliderInput("city", "Select the slider two", 
         min = 60, max = 100, 
         value = 60, step = 10) 
    ) 
    ), 
    conditionalPanel(
     condition = "input.names == 'B'", 
    column(4, 
      selectInput("names", 
         "Customer:", 
         c(as.character(iris$Species))) 
      )) 
    ), 

    # Create a new row for the table. 
    fluidRow(
    DT::dataTableOutput("table1") 
) 
) 
#Declaring the Server 
server <- function(input, output) { 

    # Filter data based on selections 
    output$table1 <- renderDataTable({ 

    datatable(iris, options = list(
     searching = FALSE, 
     pageLength = 5, 
     lengthMenu = c(5, 10, 15, 20) 
    )) 
    }) 
} 
shinyApp(ui, server) 

コメントに記載されているように、このトリックはconditionalPanelです。

Answer 2

あなたはそうのような複数のウィジェットを追加することができます。ここでは

rm(list = ls()) 
library(shiny) 
runApp(list(
    ui = bootstrapPage(
    selectInput('data', 'Data', c('mtcars', 'iris')), 
    uiOutput('columns') 
), 
    server = function(input, output){ 
    output$columns <- renderUI({ 
     mydata <- get(input$data) 
     tagList(
     selectInput('columns2', 'Columns', names(mydata)), 
     selectInput('columns3', 'Columns 2', names(mydata))) 
    }) 
    } 
))