将来自Shiny模块的数字输入值用作用户定义函数的输入，并将该函数的输出用作另一个模块的输入

编程问答 2022-08-16

问题描述

我有一个Shiny应用，其中包含两个模块和一个用户定义的功能：

  • 第一个模块创建两个数字输入，其值分别设置为1和2。
  • 用户定义的函数应采用第一个模块的值并加1。
  • 第二个模块应获取函数的结果，再次加1并呈现结果。

该应用程序抛出错误function Example(props) { return ( <div> {props.students.map(student => <div>hi {student}</div>)} </div> ) } ，但我不知道为什么。任何帮助和解释将不胜感激！

下面是最小示例代码。

first_module.R 

Warning: Error in user_function: Could not find function "user_function"

user_function.R 

#Define ui
first_module_ui <- function(id) {
  ns <- NS(id)
  
  tagList(
    numericInput(
      inputId = ns("first_input_1"),label = "Input 1:",value = 1
    ),numericInput(
      inputId = ns("first_input_2"),label = "Input 2:",value = 2
    )
  )
}

#Define server logic
first_module_server <- function(input,output,session) {
  return(input)
}

second_module.R 

#User defined function
user_function <- function(first_module_res) {
    
      function_result_1 <- reactive({first_module_res$first_input_1 + 1})
      function_result_2 <- reactive({first_module_res$first_input_2 + 1})
      
      return(
        list(
          function_result_1 = function_result_1,function_result_2 = function_result_2
        )
      )
  }

app.R 

#Define ui
second_module_ui <- function(id) {
  ns <- NS(id)
  
  tagList(uIoUtput(outputId = ns("second_input_1")),uIoUtput(outputId = ns("second_input_2")))
}

#Define server logic
second_module_server <- function(input,session,function_result) {
    ns <- session$ns
    
    function_result_1 <- reactive({function_result$result_1 + 1})
    
      output$second_input <- renderUI({
        disabled(textInput(
          inputId = ns("second_input_1"),label = "Second input 1:",value = function_result_1()
        ))
      })
      
      function_result_2 <- reactive({function_result$result_2 + 1})
    
      output$second_input_2 <- renderUI({
        disabled(textInput(
          inputId = ns("second_input_2"),label = "Second input 2:",value = function_result_2()
        ))
      })

    return(
      list(reactive({second_input_1()}),reactive({second_input_2()}))
           )
  }

解决方法

您的代码中有2个错误：

  • 在app.R中，您不需要observe。如果使用observe，则还应将表达式括在花括号中。但是，observe中也有一个逗号，导致错误
  • 在第二个模块中，您必须使用function_result$function_result_1()而不是function_result$result_1()

此外，我对UI元素的输出ID的命名与对输入ID的命名不同，否则我认为这不是好样式。

second_module.R 

#Define ui
second_module_ui <- function(id) {
  ns <- NS(id)
  
  tagList(uiOutput(outputId = ns("UI_second_input_1")),uiOutput(outputId = ns("UI_second_input_2")))
}

#Define server logic
second_module_server <- function(input,output,session,function_result) {
  ns <- session$ns
  
  function_result_1 <- reactive({
    function_result$function_result_1() + 1})

  output$UI_second_input_1 <- renderUI({
    disabled(textInput(
      inputId = ns("second_input_1"),label = "Second input 1:",value = function_result_1()
    ))
  })

  function_result_2 <- reactive({function_result$function_result_2() + 1})

  output$UI_second_input_2 <- renderUI({
    disabled(textInput(
      inputId = ns("second_input_2"),label = "Second input 2:",value = function_result_2()
    ))
  })

  return(
    list(reactive({second_input_1()}),reactive({second_input_2()}))
  )
}

app.R 

library(shiny)
library(shinyjs)

# Define UI
ui <- fluidPage(
    
    useShinyjs(),# Application title
    titlePanel("Demo"),# Sidebar 
    sidebarLayout(
        sidebarPanel(
            first_module_ui("first")
        ),mainPanel(
            second_module_ui("second")
        )
    )
)

# Define server logic 
server <- function(input,session) {
    
    first_module_res <- callModule(first_module_server,"first")
    function_result <- user_function(first_module_res)
    second_module_res <- callModule(second_module_server,"second",function_result)
}

# Run the application 
shinyApp(ui = ui,server = server)
rrshinyshinymodules