r 在Shiny模块中返回reactiveValues

Posted 2021-05-23

inputModuleUI <- function(id){
  ns <- NS(id)
  wellPanel(textInput(ns('text1'), "First text"),
            textInput(ns('text2'), "Second text"))
}

inputModule <- function(input, output, session){
  vals <- reactiveValues()
  observe({vals$text1 <- input$text1})
  observe({vals$text2 <- input$text2})
  return(vals)
}

library(shiny)
source("input_module.R")

ui <- fluidPage(
  inputModuleUI('IM'),
  verbatimTextOutput("mytxt")
)   

server <- function(input, output, session){
  MyImProxy <- callModule(inputModule, 'IM')
  
  output$mytxt <- renderPrint({
    paste(MyImProxy$text1, "&", MyImProxy$text2)
  })
}

shinyApp(ui, server)