Выбирать входные данные должны быть взаимоисключающими R Shiny - PullRequest
Новая
       16

Выбирать входные данные должны быть взаимоисключающими R Shiny

0 голосов
/ 29 мая 2018

Я должен использовать несколько selectizeinputs для одной и той же переменной.Когда я выбираю одну категорию один bla1, категория должна быть исключена в bla2.Как мне это архивировать? Есть ли возможность связать два selectizeinputs? 

ui <- fluidPage(

   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30),
         selectizeInput("bla1", "muh", choices = faithful$waiting, multiple = TRUE),
         selectizeInput("bla2", "muh2", choices = faithful$waiting, multiple = TRUE)
      ),

      # Show a plot of the generated distribution
      mainPanel(
         plotOutput("distPlot")
      )
   )
)

# Define server logic required to draw a histogram
server <- function(input, output) {

   output$distPlot <- renderPlot({
      # generate bins based on input$bins from ui.R
      x    <- faithful[, 2] 
      bins <- seq(min(x), max(x), length.out = input$bins + 1)

      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
   })
}

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

Ответы [ 2 ]

0 голосов
/ 30 мая 2018 
ui <- fluidPage(

  # Application title
  titlePanel("Old Faithful Geyser Data"),

  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30),
      selectizeInput("bla1", "muh", choices = faithful$waiting, multiple = TRUE),
      htmlOutput("bla2")
    ),

    # Show a plot of the generated distribution
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

# Define server logic required to draw a histogram
server <- function(input, output) {



  output$bla2 <- renderUI({
    ## filter choices to anything NOT selected by bla1
    choices <- faithful$waiting[!faithful$waiting %in% input$bla1]
    selected <- input$bla2
    selectizeInput("bla2", "muh2", choices = choices, multiple = TRUE, selected = selected)
  })

  output$distPlot <- renderPlot({
    # generate bins based on input$bins from ui.R
    x    <- faithful[, 2] 
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}

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

Этот код был размещен парнем, и это лучшее решение.Единственное, что, когда я нажимаю «input $ bla2», я теряю фокус на поле при вводе значения.Вероятно потому, что он рендерит снова каждый раз.У кого-нибудь есть идеи, как преодолеть эту проблему?

0 голосов
/ 29 мая 2018

Сначала вы должны определить свой ввод на стороне сервера.А затем, просто сделайте небольшой трюк, чтобы получить опции avaiable: 

ui <- fluidPage(

  # Application title
  titlePanel("Old Faithful Geyser Data"),

  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30),
      uiOutput("bla1_ui"),  # here just for defining your ui
      uiOutput("bla2_ui")
    ),

    # Show a plot of the generated distribution
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

# Define server logic required to draw a histogram
server <- function(input, output) {
  # and here you deal with your desired input
  output$bla1_ui <- renderUI({
    selectizeInput("bla1", "muh", choices = faithful$waiting, multiple = TRUE)
  })

  output$bla2_ui <- renderUI({

    avaiable <- faithful$waiting
    if(!is.null(input$bla1))
      avaiable <- faithful$waiting[-which(faithful$waiting %in% input$bla1)]

    selectizeInput("bla2", "muh2", choices=avaiable, multiple = TRUE)
  })

  output$distPlot <- renderPlot({
    # generate bins based on input$bins from ui.R
    x    <- faithful[, 2] 
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}

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