Я пытаюсь выяснить, как отображать и скрывать свои выходные данные, такие как графика и табуляции, каждый раз, когда пользователь что-то меняет в виджетах. Например, у меня есть ползунок для моей переменной под названием «пол» с двумя вариантами: мужской и женский. У меня также есть кнопка, которая выполняет оценки, когда пользователь нажимает на нее. Я хочу скрывать результаты каждый раз, когда пользователь меняет хотя бы один выбор между различными виджетами. Например, после одной оценки пользователь решает изменить только уровень образования, и когда пользователь нажимает на поле sliderInput, я хотел бы скрыть предыдущие результаты.

Я пытался использовать пакет R аббревиатуры блестящий и функции скрыть / показать, но они не работают для выходных данных.

Есть ли у вас какие-либо идеи, как это сделать, не используя пакет глянцевый?

Вот часть моего кода:

shinyUI(fluidPage(

  sidebarLayout(
    fluidRow( 
      column(4, wellPanel(

  fluidRow(
      column(5,selectInput("gender",
                          label = div("Sexe",style = "color:royalblue"),
                          choices = list("Male", "Female"),
                          selected = "Female")),

        # other different widjets..        

              column(8, plotOutput('simulationChange')),
              column(4, tableOutput('simulationChangeTable'),
                                    tags$style("#simulationChangeTable table {font-size:9pt;background-color: #E5E4E2;font-weight:bold;margin-top: 121px; margin-left:-30px;overflow:hidden; white-space:nowrap;text-align:left;align:left;}", 
                                    media="screen", 
                                    type="text/css"), 
                  fluidRow(
                     column(6, tableOutput('simulationChangeEsperance'),
                                    tags$style("#simulationChangeEsperance table {font-size:9pt;background-color: #E5E4E2;font-weight:bold;margin-top: -10px; margin-left:-30px;overflow:hidden; white-space:wrap;word-break: break-word;width:173px;text-align:left;}"))
                  )
              )
            )
        )
     )
    ))  

shinyServer(function(input, output, session) {
# part of my server.R code
    observe({


   if (input$gender|input$age|input$birthplace|input$education){  
      shinyjs::hide("simulationChange")
      shinyjs::hide("simulationChangeTable")
      shinyjs::hide("simulationChangeEsperance")
      }      
})

Спасибо.