Question

在闪亮的情况下，我希望用户能够为＆＃34;性别＆＃34;写一个第三个值。在文本框中，如果她如此，即使只是男性＆＃39;和女性＆＃39;包括在＆＃34;选择＆＃34;矢量。

ui <- fluidPage(
  selectInput("foo", label = "sex", choices = c("male","female"), selectize = T)
)

server <- function(input, output) {      
}

shinyApp(ui = ui, server = server)

我可以使用其他文字字段和“添加新选项”来执行此操作。按钮（正如其他问题所建议的那样）。但是，我希望用户能够在原始文本框中键入新选项。

Answer 1

我终于根据42的建议进行了管理：

library(shiny)

ui <- fluidPage(
  fixedRow(
    column(4,
           conditionalPanel(
             condition = "input.sex != 'other'",
             selectInput("sex", label = "sex", choices = c("male","female","other"), selectize = T)
           )
    )
  ),
  fixedRow(
    column(4,
           conditionalPanel(
             condition = "input.sex == 'other'",
             textInput("sex_o", "write sex")
           )
    )
  )
)


server <- function(input, output) {
}

shinyApp(ui = ui, server = server)

闪亮的重叠小部件

1 个答案: