Shiny reactive的用法与案例展示
在Shiny中，reactive()是一个函数，用于创建一个响应式变量（reactive variable）。当Shiny应用程序的输入参数或状态改变时，这个响应式变量会被重新计算，并返回一个计算结果。换句话说，reactive()用于定义响应式表达式，当输入参数或状态改变时，它会自动重新计算Shiny。
当然最常用的是
reactive()
还有其他两种类型的reactive函数：
- 由 reactiveVal() 创建的单个响应式值。
- 由 reactiveValues() 创建的响应式值列表。
下面都会举例演示。
1. 什么时候会用到 reactive
以下是一个简单的 Shiny 应用程序，演示了如何使用 reactive() 函数。该应用程序根据用户输入的两个数字，计算它们的和并显示结果。
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
numericInput("num1", "Enter first number:", 0),
numericInput("num2", "Enter second number:", 0),
actionButton("calculate", "Calculate")
),
mainPanel(
verbatimTextOutput("result")
)
)
)
server <- function(input, output) {
# 创建响应式变量 sum
sum <- reactive({
input$num1 + input$num2
})
# 当用户点击 Calculate 按钮时，输出计算结果
observeEvent(input$calculate, {
output$result <- renderText(paste("The sum of", input$num1, "and", input$num2, "is", sum()))
})
}
# 运行 Shiny 应用程序
shinyApp(ui, server)
什么时候用到reactiveVal()函数呢？
reactiveVal() 函数与 reactive() 函数类似，都是用于创建响应式变量。但是，reactiveVal() 的作用对象是值而不是表达式Shiny bookdown。
当需要在 Shiny 应用程序中创建一个简单的响应式变量时，可以使用 reactiveVal() 函数。它创建的变量不需要依赖其他变量或表达式，而是直接返回一个初始值。与 reactive() 不同，reactiveVal() 可以在任何时间更新响应式变量的值。
在这个例子中，reactiveVal() 函数用于创建响应式变量 items，它的初始值是一个空向量 c()。当用户点击添加按钮时，observeEvent() 函数会检测到该事件，并将新项目添加到项目列表中。最后，renderUI() 函数会根据项目列表，生成一个项目列表的 UI 输出。由于响应式变量的值可以在任何时候更新，因此使用 reactiveVal() 函数更为方便。
library(shiny)
ui <- fluidPage(
textInput("new_item", "New item:", ""),
actionButton("add_item", "Add item"),
hr(),
h4("Current items:"),
textOutput("item_list")
)
server <- function(input, output) {
# 创建响应式变量 items
items <- reactiveVal(c())
# 当用户点击添加按钮时，将新项目添加到列表中
observeEvent(input$add_item, {
new_item <- input$new_item
if (new_item != "") {
items(c(items(), new_item))
}
})
# 根据项目列表，生成项目列表的文本输出
output$item_list <- renderText({
item_list <- paste(items(), collapse = "\n")
item_list
})
}
# 运行 Shiny 应用程序
shinyApp(ui, server)
3.什么时候用到reactiveValues()函数呢？
reactiveValues() 函数可以用于创建包含多个响应式变量的对象，因此可以在 Shiny 应用程序中方便地管理多个响应式变量。当你需要在应用程序中共享多个响应式变量时，可以使用 reactiveValues() 函数。
例如reactiveValues()，在以下 Shiny 应用程序中，我们创建了一个 reactiveValues() 对象 data，其中根据数据的cut列，更改comment里面的数据。
library("shiny")
library(DT)
data <- as.data.frame(ggplot2::diamonds)
data$comment <- NA
ui <- fluidPage(
selectInput(inputId = "cut",
label = "Select Cut",
choices = unique(ggplot2::diamonds$cut),
selected = "Ideal"),
actionButton(inputId = "price",
label = "Write new price"),
DTOutput("tabOut")
)
server <- function(input,session, output) {
toChange <- reactiveValues(df = data)
observeEvent(input$price, {
toChange$df[toChange$df$cut == input$cut, "price"] <- toChange$df[toChange$df$cut == input$cut, "price"] * 3
toChange$df[toChange$df$cut == input$cut, "comment"] <- paste0("updated: ", Sys.time())
output$tabOut <- renderDT({
toChange$df
})
})
observeEvent(req(input$price == 0), {
output$tabOut <- renderDT({
data
})
})
}
shinyApp(ui = ui, server = server)
当然大家可能会遇到错误Error ：
这里具体问题，具体对待，后续会更新，如何解决这些问题。
istening on http://127.0.0.1:3371
Warning: Error in : Can't access reactive value 'divider' outside of reactive consumer.
ℹ Do you need to wrap inside reactive() or observer()?
53: <Anonymous>
Error : Can't access reactive value 'divider' outside of reactive consumer.
ℹ Do you need to wrap inside reactive() or observer()?
4.总结
大家可以自己边调试边理解。主要是用reactive()函数，然后在server里面创建一个数据，后面就不用重复计算了。
[图片上传失败...(image-de808f-1677589721185)]
