R如何使SelectInput变量

问题描述

以函数selectizeGroupUI为例，我在params变量中搜索如何制作列表：我不想一一写列名，inputId和title的字符串。

这个想法是通过数据框获取列名、inputId、标题。

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 (将#修改为@）