如何解决R如何使SelectInput变量
以函数selectizeGroupUI
为例,我在params变量中搜索如何制作列表:我不想一一写列名,inputId和title的字符串。
name_column <- c('manufacturer','model','trans')
name_inputId <- c('manufacturer','trans')
name_title <- c('Manufacturer:','Model:','Trans:')
mpg.test <- data.frame(name_column,name_inputId,name_title)
我尝试使用 for 循环,我尝试使用 apply...
这里是我用来做测试的例子
library(shiny)
library(shinyWidgets)
data("mpg",package = "ggplot2")
ui <- fluidPage(
fluidRow(
column(
width = 10,offset = 1,tags$h3("Filter data with selectize group"),panel(
selectizeGroupUI(
id = "my-filters",params = list(
manufacturer = list(inputId = "manufacturer",title = "Manufacturer:"),model = list(inputId = "model",title = "Model:"),trans = list(inputId = "trans",title = "Trans:"),class = list(inputId = "class",title = "Class:")
)
),status = "primary"
),DT::dataTableOutput(outputId = "table")
)
)
)
server <- function(input,output,session) {
res_mod <- callModule(
module = selectizeGroupServer,id = "my-filters",data = mpg,vars = c("manufacturer","model","trans","class")
)
output$table <- DT::renderDataTable(res_mod())
}
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。