Shiny - conditionalPanel - установить условие как вывод с сервера

Я пытаюсь создать блестящее приложение, которое сможет загружать набор данных в функцию сервера, а затем на основе выбора пользователя, а затем, если есть переменная фактора, чтобы открыть флажок с помощью conditionalPanel. есть ли способ вывести переменную с сервера в качестве условия condtionalPanel?

Вот что я пробовал:

library(shiny)
library(caret)

ui <- fluidPage(
  selectInput('dataset', 'Select Dataset', 
              list(GermanCredit = "GermanCredit",
                  cars = "cars")),

  conditionalPanel(
    condition = "output.factorflag == true",
    checkboxInput("UseFactor", "Add Factor Variable")
  ) 
)


server <- function(input, output) {
  # Loading the dataset
  df <- reactive({
    if(input$dataset == "GermanCredit"){
      data("GermanCredit")
      df <- GermanCredit
    }else if(input$dataset == "cars"){
      data(cars)
      df <- cars
    }

    return(df)
  })

  # Loading the variables list
  col_type <- reactive({
    col_type <- rep(NA,ncol(df()))
    for(i in 1:ncol(df())){
      col_type[i] <- class(df()[,i])
    }
    return(col_type)
  }) 

  outputOptions(output, "factorflag", suspendWhenHidden = FALSE)


  output$factorflag <- reactive({
    if("factor" %in% col_type()){
      factor.flag <- TRUE
    } else {factor.flag <- FALSE}
  }
  )
}


shinyApp(ui = ui, server = server)

Thank you in advance!

r shiny
person Rami Krispin    schedule 18.01.2017    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Вы были почти у цели, вам нужно поставить outputOptions после объявления factorflag. Просто немного переделали свой код:

library(shiny)
library(caret)

ui <- fluidPage(
  selectInput('dataset', 'Select Dataset', 
              list(GermanCredit = "GermanCredit",
                   cars = "cars")),

  conditionalPanel(
    condition = "output.factorflag == true",
    checkboxInput("UseFactor", "Add Factor Variable")
  ) 
)


server <- function(input, output) {
  # Loading the dataset
  df <- reactive({
    if(input$dataset == "GermanCredit"){
      data("GermanCredit")
      GermanCredit
    }else {
      data("cars")
      cars
    }
  })
  output$factorflag <- reactive("factor" %in% sapply(df(),class))
  outputOptions(output, "factorflag", suspendWhenHidden = FALSE)
}

shinyApp(ui = ui, server = server)
person HubertL    schedule 18.01.2017
comment
Это отлично работает, также спасибо за другие предложения! - person Rami Krispin; 18.01.2017
comment
С модулями необходимо использовать ns функцию: condition = paste0("output['", ns("factorflag"), "'] == true") - person Maximilian Mordig; 12.03.2020