r 将模块中返回的值存储在Shiny中的reactiveValues中

Posted 2021-05-23

# UI ==========================================================================

returnUI = function(id) {
  ns <- NS(id)
  
  tagList(
    textInput(ns("txt"), "Write something")
  )
}

# Server ======================================================================

returnServer = function(input, output, session) {
  myreturn <- reactiveValues()
  
  observe({ myreturn$txt <- input$txt })
  
  return(myreturn)
}

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

ui <- fluidPage(
  
  returnUI("returntxt"),
  textOutput("mytxt")
  
)

server <- function(input, output, session) {
  
  myvals <- reactiveValues(
    txt = NULL
  )
  
  mytxt <- callModule(returnServer, "returntxt")
  
  observe({ 
    myvals$txt <- mytxt$txt 
    print(myvals$txt)
  })
  
  output$mytxt <- renderText({ myvals$txt })
  
}

shinyApp(ui, server)