闪亮的selectInput'Select All'层次结构

问题描述

编辑：添加示例数据。

我想为多个SelectInputs提供一个“全选”选项。因此，如果我选择“所有”国家/地区，则第二个selectInput下拉列表将显示所有区域，并且如果我选择一个特定国家/地区，则可以选择该国家/地区或特定国家/地区的“所有”区域。

为国家/地区选择所有作品，但我不知道如何将其应用于第二地区。

如果可能的话，我希望不使用pickerInPut。

数据：

train_loss = model.evaluate(x_train,y_train,verbose=0)[0]
train_mae = model.evaluate(x_train,verbose=0)[1]
print('training loss (MSE):',train_loss,'\ntraining MAE:',train_mae)

UI：

   Country <-  c('England','Scotland','Wales','Ireland','Spain','England','Spain')
    
    Region  <- c('North','East','South','North','West','South')
    
    Value   <- c(100,150,400,300,100,200,500,600,250,600)
    
    Outcomes <- c('Green','Red','','Amber','Green','Red')
    
    Outputs <- c('Red','Red')
    
    Risk <- c('Green','')
    
    
    Joined_data <- data.frame(Country,Region,Value,Outcomes,Outputs,Risk)

list<- unique(Joined_data$Country)
list2 <- unique(Joined_data$`Region`)

服务器：

ui<- dashboardPage(
  dashboardHeader(title = "Performance"),dashboardSidebar(selectizeInput(inputId = "Country",label = "Country",choices = c('All',list)),(selectizeInput(inputId = "Region",label = "Region",list2)))),dashboardBody( 
    fluidRow(
      box(valueBoxOutput(outputId = "Total",width = 12),title = "Total"),box(valueBoxOutput(outputId = "Value",title = "Value"),)
  ),)

解决方法

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

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

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

r r selectinput shiny