Question

我使用Shiny with R来创建交互式图形。我有一个checkboxGroupinput，要求用户选择几个选项。

如何在服务器功能中实际使用这些选中的选项来执行某些代码？

例如，如果我们有两个可以检查的盒子，＆＃34;五个＆＃34;和＆＃34;四＆＃34; 然后我想在我的代码中使用这些值，例如

server <- function(input, output) 
{

le <- len(input$numbers)
if ("five" %in% input$numbers) 
{
    a <- "text"
}


}

重要的是我可以将输入的$ number视为包含＆＃34; Five＆＃34;的字符串向量。和＆＃34;四＆＃34;，我可以访问它的长度等等。

我该怎么做？

编辑：注意：上面的代码显然不起作用，

Answer 1

您需要将它们包含在一个被动句中，例如observe或reactive：

library(shiny)

ui <- fluidPage(
  checkboxGroupInput("numbers","Select value 5",choices = 1:10),
  textOutput("text")
)

server <- function(input, output) {

  value <- reactive({
    a <- F
    if (any(input$numbers %in% 5)){
      a <- T
    }
    a
  })
  output$text <- renderText({value()})
}

shinyApp(ui = ui, server = server)

如何在R中使用checkboxGroupinput的值？

1 个答案: