Question

新的闪亮。希望有人可以帮助我。

我从同一个向量中有几个selectizeInput的绘图选项。我的目标是在选择后不会在其他输入中显示值。即。如果在输入2中选择了值1，则它不应在输入1,3或4中可用。

ui<- shinyUI(fluidPage(

titlePanel("Selectize Test"),

sidebarPanel(
selectizeInput(
  "groupoptions1", "Group 1", choices = NULL, multiple = TRUE
),
selectizeInput(
  "groupoptions2", "Group 2", choices = NULL, multiple = TRUE
),
selectizeInput(
  "groupoptions3", "Group 3", choices = NULL, multiple = TRUE
),
selectizeInput(
  "groupoptions4", "Group 4", choices = NULL, multiple = TRUE
)

),

mainPanel(
  htmlOutput("grouplist")
)
))

server<- shinyServer(function(input, output, session) {

groupdata <- reactive({

  as.vector(1:30)

})

observe({
updateSelectizeInput(session, "groupoptions1", choices = groupdata())

updateSelectizeInput(session, "groupoptions2", choices = groupdata())

updateSelectizeInput(session, "groupoptions3", choices = groupdata())

updateSelectizeInput(session, "groupoptions4", choices = groupdata())
})


output$grouplist <- renderPrint({

  list(
    match(input$groupoptions1, groupdata()),
    match(input$groupoptions2, groupdata()),
    match(input$groupoptions3, groupdata()),
    match(input$groupoptions4, groupdata())
  )
})

})

我尝试为每个selectizeInput选择单独的选择向量，减去其他选择，但每次该向量更新所有现有选项时都会被擦除。

任何帮助非常感谢！

Answer 1

您可以并且需要在使用所选参数更新选项输入的输入时设置值：

 updateSelectizeInput(session, "groupoptions1", choices = groupdata1(),
                      selected=c(2,3))

您需要根据需要调整价值。我将您的示例缩减为两个列表并移动所有相关部分以进行观察

  observe({
    vals1<-input$groupoptions1
    vals2<-input$groupoptions2

    cat("updata input ")
    cat(isolate(vals1))
    cat(" | ")
    cat(isolate(groupdata2()))
    cat("\n")
    updateSelectizeInput(session, "groupoptions1",
                         choices =  as.vector(1:10)[! 1:10 %in% vals2], 
                         selected=vals1)
    updateSelectizeInput(session, "groupoptions2", 
                         choices =as.vector(1:10)[! 1:10 %in% vals1], 
                         selected=vals2)


  })

闪亮：多重选择输入，一个选择向量，离散选择？

1 个答案: