如何解决将来自Shiny模块的数字输入值用作用户定义函数的输入,并将该函数的输出用作另一个模块的输入
我有一个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)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。