2022-03-11
Shiny reactive的用法与案例展示
在Shiny中，reactive()是一个函数，用于创建一个响应式变量（reactive variable）。当Shiny应用程序的输入参数或状态改变时，这个响应式变量会被重新计算，并返回一个计算结果。换句话说，reactive()用于定义响应式表达式，当输入参数或状态改变时，它会自动重新计算Shiny。
image.png
当然最常用的是
reactive()还有其他两种类型的reactive函数：
- 由 reactiveVal() 创建的单个响应式值。
- 由 reactiveValues() 创建的响应式值列表。
下面都会举例演示。
1. 什么时候会用到 reactive
以下是一个简单的 Shiny 应用程序，演示了如何使用 reactive() 函数。该应用程序根据用户输入的两个数字，计算它们的和并显示结果。
image.png
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)
image.png
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 = serverhttps://upload-images.jianshu.io/upload_images/21541801-1472761bc8d7bcda.png?imageMogr2/auto-orient/strip|imageView2/2/w/1200/format/webp
当然大家可能会遇到错误Error ：
这里具体问题，具体对待，后续会更新，如何解决这些问题。
image.png
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里面创建一个数据，后面就不用重复计算了。