둘 이상의 조건이있는 ConditionalPanel이 참일 경우

Question

두 개 이상의 옵션이 유효 할 때 conditionalPanel 문제가 있습니다.

사용자가 두 가지를 차례로 선택하는 코드의 일부로 데이터베이스에 필터가 만들어집니다.

첫 번째 선택에서 상태는 가능성 목록에서 선택됩니다. 사용자가 둘 이상의 주를 선택할 수 있다는 것을 아는 것이 중요합니다.

두 번째 선택에서 도시는 가능성 목록에서 선택됩니다. 이 두 번째 선택에서 사용자는 둘 이상의 도시를 선택할 수도 있습니다.

내가 말했듯이 중요한 정보는 사용자가 둘 이상의 주를 선택할 수 있다는 것입니다. 따라서 여러 주 선택 상태에서 모든 선택된 주에 도시가 표시되어야합니다.

사용자가 하나의 상태 만 선택하면 모든 것이 올바르게 작동합니다. 두 개 이상의 상태를 선택하면 내 코드의 문제가 시작되고 ConditionalPanel은 사라집니다 (아무 것도 표시되지 않고 이미 표시된 첫 번째 옵션조차도 표시되지 않음). 사용자가 선택 사항을 제거하고 하나만 유지하면 다시 나타납니다.

내가 직면 한이 문제를 해결할 수있는 사람이 몇 분 남았습니다. 매우 감사 할 것입니다.

library(shiny) 
library(shinydashboard) 
library(readr) 

state_options <- c("1. Texas", "2. Massachusetts", "3. Colorado") 
options_state_texas <- c("Alamo", "Alton", "Angus", "Atlanta", "Aurora", 
         "Brownsboro", "Premont", "Princeton", "Red Oak", 
         "Staples", "Texas City") 
options_state_massachusetts <- c("Boston", "Cambridge", "Chelsea", "Springfield") 
options_state_colorado <- c("Aspen", "Aurora", "Avon", "Cortez", "Denver", 
          "Vail") 


createMainPanel <- function(index_id) { 
    mainPanel(
     width = 12, 
     tabsetPanel(
      tabPanel(
       strong("Split"), 
       br(), 
       box(
        title = strong("State:"), 
        status = "primary", 
        width = 3, 
        collapsible = TRUE, 
        checkboxGroupInput(
         inputId = paste0(index_id, "_state"), 
         label = NULL, 
         choices = state_options 
        ) 
       ), 
       conditionalPanel(
        condition = "input.distribution_of_sales_sub_state == '1. Texas'", 
        box(
         title = strong("Cities state 1:"), 
         status = "primary", 
         width = 3, 
         collapsible = TRUE, 
         checkboxGroupInput(
          inputId = paste0(index_id, "_checkbox_city_1"), 
          label = NULL, 
          choices = options_state_texas 
         ) 
        ) 
       ), 
       conditionalPanel(
        condition = "input.distribution_of_sales_sub_state == '2. Massachusetts'", 
        box(
         title = strong("Cities state 2:"), 
         status = "primary", 
         width = 3, 
         collapsible = TRUE, 
         checkboxGroupInput(
          inputId = paste0(index_id, "_checkbox_city_2"), 
          label = NULL, 
          choices = options_state_massachusetts 
         ) 
        ) 
       ), 
       conditionalPanel(
        condition = "input.distribution_of_sales_sub_state == '3. Colorado'", 
        box(
         title = strong("Cities state 3:"), 
         status = "primary", 
         width = 3, 
         collapsible = TRUE, 
         checkboxGroupInput(
          inputId = paste0(index_id, "_checkbox_city_3"), 
          label = NULL, 
          choices = options_state_colorado 
         ) 
        ) 
       ) 
      ) 
     ) 
    ) 
} 

createTabItem <- function(title, index_id) { 
    tabItem(
     tabName <- paste0(index_id, "_tab"), 
     h2(title), 
     createMainPanel(index_id)) 
} 

createBox <- function(session, index_id, opcoes){ 
    updateCheckboxGroupInput(
     session, 
     index_id, 
     choices = c(opcoes)) 
} 

ui <- dashboardPage(
    dashboardHeader(disable = TRUE), 
    dashboardSidebar(
     title = img(src='logo.png', height = 60, width = 180, style = "display: block; 
        margin-left: auto; margin-right: auto;"), 
     HTML("<br><br>"), 
     width = 230, 
     sidebarMenu(
      menuItem(strong("Sales"), tabName = "distribution_of_sales_sub_tab") 
     ) 
    ), 
    dashboardBody(
     tabItems(
      createTabItem(strong("Distribution of sales"), 
          "distribution_of_sales_sub") 
     ) 
    ) 
) 


server <- function(input, output, session) { 
    observe({ 
     createBox(session,"distribution_of_sales_sub_state", state_options) 
     createBox(session,"distribution_of_sales_sub_checkbox_city_1", 
        options_state_texas) 
     createBox(session,"distribution_of_sales_sub_checkbox_city_2", 
        options_state_massachusetts) 
     createBox(session,"distribution_of_sales_sub_checkbox_city_3", 
        options_state_colorado) 
    }) 
} 

shinyApp(ui, server) 

Answer 1

당신은

condition = "input.distribution_of_sales_sub_state.includes('1. Texas')", 

condition = "input.distribution_of_sales_sub_state.includes('2. Massachusetts')", 

condition = "input.distribution_of_sales_sub_state.includes('3. Colorado')", 

EDIT로 조건을 변경해야 솔루션을 의견에 대한 문의

이것은 확실히 최선의 해결책은 아니지만, 이것은 당신이 원하는 것을주고 좋은 결과를 가져다 줄 것입니다.

library(shiny) 
library(shinydashboard) 
library(readr) 

state_options <- c("1. Texas", "2. Massachusetts", "3. Colorado") 
options_state_texas <- c("Alamo", "Alton", "Angus", "Atlanta", "Aurora", 
         "Brownsboro", "Premont", "Princeton", "Red Oak", 
         "Staples", "Texas City") 
options_state_massachusetts <- c("Boston", "Cambridge", "Chelsea", "Springfield") 
options_state_colorado <- c("Aspen", "Aurora", "Avon", "Cortez", "Denver", 
          "Vail") 

city_options <- c() 

createMainPanel <- function(index_id) { 
    mainPanel(
    width = 12, 
    tabsetPanel(
     tabPanel(
     strong("Split"), 
     br(), 
     box(
      title = strong("State:"), 
      status = "primary", 
      width = 3, 
      collapsible = TRUE, 
      checkboxGroupInput(
      inputId = paste0(index_id, "_state"), 
      label = NULL, 
      choices = state_options 
     ) 
     ), 
     conditionalPanel(
      condition = "input.distribution_of_sales_sub_state != ''", 
      uiOutput("city") 
     ) 
    ) 
    ) 
) 
} 

createTabItem <- function(title, index_id) { 
    tabItem(
    tabName <- paste0(index_id, "_tab"), 
    h2(title), 
    createMainPanel(index_id)) 
} 

createBox <- function(session, index_id, opcoes){ 
    updateCheckboxGroupInput(
    session, 
    index_id, 
    choices = c(opcoes)) 
} 

ui <- dashboardPage(
    dashboardHeader(disable = TRUE), 
    dashboardSidebar(
    title = img(src='logo.png', height = 60, width = 180, style = "display: block; 
        margin-left: auto; margin-right: auto;"), 
    HTML("<br><br>"), 
    width = 230, 
    sidebarMenu(
     menuItem(strong("Sales"), tabName = "distribution_of_sales_sub_tab") 
    ) 
), 
    dashboardBody(
    tabItems(
     createTabItem(strong("Distribution of sales"), 
        "distribution_of_sales_sub") 
    ) 
) 
) 


server <- function(input, output, session) { 

    output$city <- renderUI({ 
    box(
     title = strong("Cities state:"), 
     status = "primary", 
     width = 3, 
     collapsible = TRUE, 
     checkboxGroupInput(
     inputId = paste0("distribution_of_sales_sub", "_checkbox_city_1"), 
     label = NULL, 
     choices = cities() 
    ) 
    ) 
    }) 
    city_options1 <- c() 
    city_options2 <- c() 
    city_options3 <- c() 
    cities <- reactive({ 
    if(c("1. Texas") %in% input$distribution_of_sales_sub_state){ 
     city_options1<- c(options_state_texas) 
    } 
    if (c("2. Massachusetts") %in% input$distribution_of_sales_sub_state) { 
     city_options2 <- c(options_state_massachusetts) 
    } 
    if (c("3. Colorado") %in% input$distribution_of_sales_sub_state) { 
     city_options3 <- c(options_state_colorado) 
    } 
    city_options <- c(city_options1,city_options2, city_options3) 
    city_options <- sort(city_options) 
    }) 


    observe({ 
    createBox(session,"distribution_of_sales_sub_state", state_options) 
    createBox(session,"distribution_of_sales_sub_checkbox_city_1", 
       options_state_texas) 
    createBox(session,"distribution_of_sales_sub_checkbox_city_2", 
       options_state_massachusetts) 
    createBox(session,"distribution_of_sales_sub_checkbox_city_3", 
       options_state_colorado) 
    }) 
} 

shinyApp(ui, server) 

Answer 2

코드가 전혀 재생산되지 않습니다. 질문을 게시하기 전에 먼저주의해야합니다.

적절한 코드와 데이터가 없으면 모든 조건을 server.R으로 옮기는 것이 좋습니다. 그래서 ui.R에서 각 상태에 대한 만들어야합니다 uiOutput("state1") (자사의 첫 번째 조건 상태에 대해 : 텍사스), 다음 server.R에 :

output$state1 <- renderUI({ 
if(any(input$state == '1. Texas')){ 
box(
          title = strong("Cities state 1:"), 
          status = "primary", 
          width = 3, 
          collapsible = TRUE, 
          checkboxGroupInput(
           inputId = "checkbox_city_1"), 
           label = NULL, 
           choices = options_state_texas 
          )} 
else{NULL})