在闪亮的应用程序之外创建一个反应函数

Question

我正在尝试分解我闪亮的应用程序的代码，以提高可读性并使用testthat 包测试一些功能。

我想要一些文件（例如server_utils.R），我可以在其中编写可以测试的“正常”函数，然后使它们具有反应性。

例如，我想在server_utils.R 中有这样的东西：

my_sum <- function(x, y) {
  x + y
}

以及应用中的类似内容：

my_sum_reactive(input$x, input$y)

你知道这样的行为是否可能吗？

Answer 1

闪亮的模块可能会对您有所帮助。

请看这里：https://shiny.rstudio.com/articles/modules.html

正如您在文章中所读到的，如果您将输入包装在 reactive() 函数中，则可以实现传递输入所需的功能。 （请参阅文章“编写服务器函数”部分的末尾）。

您将定义my_sum 函数如下： （请注意，您必须使用变量 a 和 b 作为反应变量 a() 和 b() 并将结果包装在 reactive() 函数中。）

my_sum <- function(input, output, session, a, b) {
  reactive(as.numeric(a()) + as.numeric(b()))
}

并且可以将其用作：

my_sum_reactive <- callModule(my_sum, "id", reactive(input$a), reactive(input$b))

然后可以用作：

my_sum_reactive()

可重现的例子：

library(shiny)

my_sum <- function(input, output, session, a, b) {
  reactive(as.numeric(a()) + as.numeric(b()))
}

ui <- fluidPage({
  fluidRow(
    selectInput("a", "a", 1:3),
    selectInput("b", "b", 1:3),
    textOutput("txt")
  )
})

server <- function(input, output, session) {
  my_sum_reactive <- callModule(my_sum, "id", reactive(input$a), reactive(input$b))
  output$txt <- renderText(paste0("The sum is: ", my_sum_reactive())) 
}
shinyApp(ui, server)