4

TL；DR： observeEvent 仅适用于第一个实例，但不适用于后续实例。

说明： 在下面一个闪亮的小应用程序中，我根据用户输入动态构建了一个 URL，该 URL 指向我在 GH 上托管的相应的预渲染“计时器”gif 图像。在下面这个闪亮的应用程序代码中，observeEvent 可以很好地拉动 sliderInput 值（例如 5 秒），构建一个 URL，然后单击“go”将使用一个聪明的 shinyjs 包显示计时器。但是，如果我不更改输入（仍然是 5 秒），单击 go 不会重建图像。如果我将值更改为不同的数字（4 秒），它将显示正确的 gif。如果我改回原始数字（5 秒），则没有 gif。如果我转到一个新号码（3 秒），请更正 gif。如果我在 observeEvent 中打印 input$time 或 rv$time 的值，那么这些值中的每一个都会正确更新（都打印相应的值）。

目标：在每次更新 input$go 时显示对应于 input$time 的 gif

代表：

library(shiny)
library(tidyverse)
library(glue)
library(shinyjs)

# Define UI
ui <-  navbarPage(title = "Reprex", 
                  ## RHYME TIME -----
                  tabPanel("Time",
                           useShinyjs(),
                           sidebarLayout(
                             sidebarPanel( 
                               sliderInput("time",
                                           "Seconds",
                                           min = 3,
                                           max = 10,
                                           value = 5
                               ),
                               actionButton(inputId = "go",
                                            label = "Go"), 
                             ),
                             mainPanel(
                               HTML("<center>"),
                               shinyjs::hidden(htmlOutput("simple_timer")),
                               HTML("</center>")
                               
                             )
                           )
                  )
)

# Define server logic
server <- function(input, output, session) {
  #a container to store my time var
  rv <- reactiveValues(
    time = 0
  )
  
  #the event that is triggered by input$go getting clicked
  observeEvent(input$go, {
    rv$time <- input$time #this should update rv$time after go is clicked
    shinyjs::show("simple_timer") #this is the clever package with simple show/hide funs
  })
  
  #the reactive text that generates my HTML
  output$simple_timer <- renderText({
    glue::glue('<img src ="https://github.com/matthewhirschey/time_timer/raw/main/data/{rv$time}_sec.gif", 
            align = "center", 
            height="50%", 
            width="50%">')
  })
}

# Run the application 
shinyApp(ui = ui, server = server)
4

1 回答 1

3

您的代码有几个问题：

  1. renderText如果您再次按下不会input$go重新触发（不更改滑块）。因为这个想法是只要他们的反应改变observer/render就会触发。由于您取决于哪个不改变，什么时候不改变，因此在随后的按钮按下时不会触发渲染功能。这可以通过在渲染函数中设置对按钮的附加依赖性来解决。renderTextrv$timeinput$timeinput$go
  2. 但是，这不会解决您的问题，因为浏览器使用缓存。它看到<img>标签没有改变（相同src），因此它不会重新加载图片。为了避免这种情况，您可以通过向src.

长话短说，这段代码可以解决问题：

output$simple_timer <- renderText({
   input$go # make code dependent on the button
   # add `?timestamp=<timestamp>`to the src URL to convince the browser to reload the pic
   glue::glue('<img src ="https://github.com/matthewhirschey/time_timer/raw/main/data/{rv$time}_sec.gif?timestamp={Sys.time()}", 
              align = "center", 
              height="50%", 
              width="50%">')
})
于 2021-03-23T13:01:33.550 回答