将checkboxGroupInput转换为向量/在外部函数中使用的方法如下:
selected_values <- as.vector(input$checkboxGroup)
# 定义Shiny应用程序
ui <- fluidPage(
checkboxGroupInput("checkboxGroup", "选择项", choices = c("选项1", "选项2", "选项3"))
actionButton("submit", "提交")
)
server <- function(input, output, session) {
observeEvent(input$submit, {
selected_values <- as.vector(input$checkboxGroup)
result <- external_function(selected_values)
# 处理结果
})
}
# 外部函数
external_function <- function(values) {
# 在这里使用checkboxGroupInput的值
# ...
}
在上面的示例中,当"提交"按钮被点击时,触发observeEvent事件,将checkboxGroupInput的值传递给external_function()函数进行处理。你可以在external_function()函数中根据需要使用该值。注意,external_function()函数需要在Shiny应用程序的server函数之外定义。
这样,你就可以将checkboxGroupInput转换为向量,并在外部函数中使用了。请根据具体情况进行适当的调整和修改。
领取专属 10元无门槛券
手把手带您无忧上云