En el código MWE a continuación, las entradas del usuario en la primera matriz ( firstInput es el nombre de la función personalizada que invoca la primera matriz) se introducen en una segunda matriz ( secondInput ) en la que el usuario puede ingresar opcionalmente, y los resultados de secondInput son alimentado en la gráfica de salida. (Este vínculo entre las 2 matrices puede sonar absurdo, pero en el código más completo del que se extrae, las entradas en la segunda matriz pasan por extra/intrapolaciones; en el espíritu de MWE, eliminé esa funcionalidad).
Al ejecutar esto, puede ver que el usuario puede hacer clic en el botón de acción "Mostrar" para ver esa segunda matriz, ya que esas entradas son opcionales.
Mi problema es la reactividad. Actualmente, tal como está redactado, si el usuario realiza un cambio en el valor de la primera matriz sin mostrar la segunda matriz, esos cambios no se reflejan de forma reactiva en el gráfico. Me gustaría que los datos fluyan a través de la cadena de reactividad incluso cuando la segunda matriz esté oculta. ¿Hay alguna solución, otra forma simple, de "despellejar a este gato"?
Código MWE:
rm(list = ls()) library(shiny) library(shinyMatrix) library(shinyjs) firstInput <- function(inputId){ matrixInput(inputId, value = matrix(c(5), 1, 1, dimnames = list(c("1st input"),NULL)), rows = list(extend = FALSE, names = TRUE), cols = list(extend = FALSE, names = FALSE, editableNames = FALSE), class = "numeric")} secondInput <- function(inputId,x){ matrixInput(inputId, value = matrix(c(x), 1, 1, dimnames = list(c("2nd input"),NULL)), rows = list(extend = FALSE, names = TRUE), cols = list(extend = FALSE, names = FALSE, editableNames = FALSE), class = "numeric")} ui <- fluidPage( titlePanel("Model"), sidebarLayout( sidebarPanel( uiOutput("panel"), hidden(uiOutput("secondInput")) # <<< remove "hidden" and reactivity is restored ), mainPanel(plotOutput("plot1")) ) ) server <- function(input, output) { input1 <- reactive(input$input1) input2 <- reactive(input$input2) output$panel <- renderUI({ tagList( useShinyjs(), firstInput("input1"), actionButton('show','Show 2nd inputs'), actionButton('hide','Hide 2nd inputs')) }) output$secondInput <- renderUI({ req(input1()) secondInput("input2",input$input1[1,1]) }) output$plot1 <-renderPlot({ req(input2()) plot(rep(input2(),times=5)) }) observeEvent(input$show,{shinyjs::show("secondInput")}) observeEvent(input$hide,{shinyjs::hide("secondInput")}) } shinyApp(ui, server)Tu puedes hacer:
output$secondInput <- renderUI({ req(input1()) secondInput("input2",input$input1[1,1]) }) outputOptions(output, "secondInput", suspendWhenHidden = FALSE) Otra posibilidad es utilizar la visibility: hidden para ocultar la segunda entrada, en lugar de shinyjs::hidden (que establece la display: none ). Con esta propiedad, la segunda entrada no es visible pero ocupa algo de espacio, no está "estrictamente oculta" .
ui <- fluidPage( useShinyjs(), tags$head( tags$style(HTML(".Hidden {visibility: hidden;}")) ), titlePanel("Model"), sidebarLayout( sidebarPanel( uiOutput("panel"), div( id = "secondInputContainer", class = "Hidden", uiOutput("secondInput") ) ), mainPanel(plotOutput("plot1")) ) ) server <- function(input, output) { # input1 <- reactive(input$input1) useless # input2 <- reactive(input$input2) useless output$panel <- renderUI({ tagList( firstInput("input1"), actionButton('show', 'Show 2nd inputs'), actionButton('hide', 'Hide 2nd inputs')) }) output$secondInput <- renderUI({ req(input$input1) secondInput("input2", input$input1[1,1]) }) output$plot1 <-renderPlot({ req(input$input2) plot(rep(input$input2, times=5)) }) observeEvent(input$show, { removeCssClass("secondInputContainer", "Hidden") }) observeEvent(input$hide, { addCssClass("secondInputContainer", "Hidden") }) }