在 Shiny 中使用反应值通知依赖函数

Question

我知道反应值会根据描述通知任何依赖于该值的反应函数 here

基于此我想利用这个属性并创建一个 for 循环，为我的反应值对象分配不同的值，反过来我期待另一个反应函数重新执行自己作为反应值在 for 循环内发生变化。下面是我正在尝试做的一个简化示例：

这是ui.R

library(shiny)

# Define UI 
shinyUI(pageWithSidebar(
  titlePanel("" ,"For loop with reactive values"),
  # Application title
  headerPanel(h5(textOutput("Dummy Example"))),

  sidebarLayout(
  #Sidebar
    sidebarPanel(
      textInput("URLtext", "Enter csv of urls", value = "", width = NULL, placeholder = "Input csv here"),
      br()

    ),

    # Main Panel
    mainPanel(

      h3(textOutput("caption")) 


    )
  )
))

这是服务器文件：

library(shiny)

shinyServer(function(input, output) {

  values = reactiveValues(a = character())
  reactive({
    url_df = read.table(input$URLtext)
    for (i in 1:5){
      values$a = as.character(url_df[i,1])
      Sys.sleep(1)
    }
  })
  output$caption <- renderText(values$a) 
})

这没有给出预期的结果。其实当我检查values$a的内容时它是空的。请帮忙！

Answer 1

与其使用 for 循环，不如尝试使用 invalidateLater() 和计步器。这是一个为我运行的工作示例，其中 example csv 通过快速 google 搜索找到（第一列是行索引 1-100）。

library(shiny)

# OP's ui code
ui <- pageWithSidebar(
  titlePanel("" ,"For loop with reactive values"),
  headerPanel(h5(textOutput("Dummy Example"))),
  sidebarLayout(
    sidebarPanel(
      textInput("URLtext", "Enter csv of urls", value = "", width = NULL, placeholder = "Input csv here"),
      br()
    ),
    mainPanel(
      h3(textOutput("caption")) 
    )
  )
)

server <- function(input, output, session) {
  # Index to count to count through rows 
  values = reactiveValues(idx = 0)

  # Create a reactive data_frame to read in data from URL
  url_df <- reactive({
    url_df <- read.csv(input$URLtext)
  })

  # Reset counter (and url_df above) if the URL changes
  observeEvent(input$URLtext, {values$idx = 0})

  # Render output
  output$caption <- renderText({
    # If we have an input$URLtext
    if (nchar(req(input$URLtext)) > 5) {
      # Issue invalidation command and step values$idx
      if (isolate(values$idx < nrow(url_df()))) {
        invalidateLater(0, session)
        isolate(values$idx <- values$idx + 1)
      }
    }
    # Sleep 0.5-s, so OP can see what this is doing
    Sys.sleep(0.5)
    # Return row values$idx of column 1 of url_df
    as.character(url_df()[values$idx, 1])
  })
}

shinyApp(ui = ui, server = server)

在 Shiny 中使用反应值通知依赖函数

Notifying dependent functions by using reactive values in Shiny

r

shiny

reactive