r - 闪亮的observeEvent显示第一个事件,但不是第二个,第三个
问题描述
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)
解决方案
您的代码有几个问题:
renderText
如果您再次按下不会input$go
重新触发(不更改滑块)。因为这个想法是只要他们的反应改变observer/render
就会触发。由于您取决于哪个不改变,什么时候不改变,因此在随后的按钮按下时不会触发渲染功能。这可以通过在渲染函数中设置对按钮的附加依赖性来解决。renderText
rv$time
input$time
input$go
- 但是,这不会解决您的问题,因为浏览器使用缓存。它看到
<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%">')
})
推荐阅读
- apache-spark - 如何在 Spark 中使用 ASCII 函数
- perl - 我想使用 perl 在文件中搜索字符串
- reactjs - 在 React 中渲染字典的数组
- google-sheets - 在谷歌分析中使用哪些指标在谷歌表格中添加
- c# - 如何创建通用包装类来扩展任何模型
- php - Wordpress - 有没有办法只限制某些用户的注册?
- android - 无法充气并且没有找到android支持设计BottomSheetBehavior的类行为
- c - 如何使用纹理单元(它们似乎不起作用)
- javascript - 如何迭代这个 javascript 对象?
- asp.net - 实体框架一数据库上下文多网站同步问题