在pickerInput中动态创建选定变量组

问题描述

我有多个嵌套的下拉菜单，用户可以在其中选择选项并继续前进。我想要的是在最后一个下拉列表中，当用户选择多个选项时，应该对这些选项进行不同的分类。例如，以下是给用户的选择：

• Campaign 1
• Campaign 2
• Campaign 3
• Campaign 4
• Campaign 5
• Campaign 6
• Campaign 7
• Campaign 8
• Campaign 9

如果用户选择Campaign 1，Campaign 3，Campaign 4等，则应将它们分组为Group 1。 然后，如果用户选择Campaign 2，Campaign 5，Campaign 6等，则应将它们分组为Group 2。 等等。

然后，必须在表输出中显示动态创建的每个组。

到目前为止，我已经编写了以下代码：

observe({
    updatePickerInput(session = session,inputId ="format1",choices = unique(df %>% 
                                         filter(Col1 %in% input$col1) %>% 
                                         select(Format))$Format,selected = NULL)
  })
  observe({ #groups to be created here
    updatePickerInput(session = session,inputId ="campaign1",choices = unique(df %>% 
                                         filter(Col1 %in% input$col1,Format %in% input$format1) %>% 
                                         select(Campaign))$Campaign,selected = NULL)
  })

data<-eventReactive(input$submit1,{
    
   data_filtered<-df %>% 
      filter( Col1%in% input$col1,Format %in% input$format1
              Campaign %in% input$campaign1)
    
   val <- c()
   newpc <- unique(data_filtered$Campaign)
   val <- newpc[1]
   n <- length(newpc)
   
   if (n>1) {
     lapply(2:n,function(i){val<<- paste0(val,'-',newpc[i]) })
     
     data_filtered <- data_filtered %>% mutate(New.Campaign.cat = val)
     
   }
   
   return(data_filtered)
  })
  
  output$table1 <- DT::renderDataTable({
    
    data() %>%
      group_by(Brand,Campaign,New.Campaign.cat) %>%
      summarise()

  })

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）