r 在Shiny模块中返回reactiveValues

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了r 在Shiny模块中返回reactiveValues相关的知识，希望对你有一定的参考价值。

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)

以上是关于r 在Shiny模块中返回reactiveValues的主要内容，如果未能解决你的问题，请参考以下文章