R中的页面刷新按钮

我尝试在链接后面实现一个页面刷新按钮。然而，当我尝试部署到

shinyapp.io

时，它失败了，并要求安装我已经安装的包

V8

。应用程序在机器上运行良好。我使用的代码是：

jsResetCode <- "shinyjs.reset = function() {history.go(0)}",

useShinyjs(), # Include shinyjs in the UI

extendShinyjs(text = jsResetCode), # Add the js code to the page   

p(actionButton("reset_button", "Reset Tool"))

---

没有shinyjs有没有办法做到这一点？

下面的代码是一个使用“刷新”按钮的闪亮应用程序的最小示例

库（闪亮）
图书馆（shinyjs）
jscode阅读shinyjs中的“关于V8先决条件的说明”。“如果您正在部署一个使用extendShinyjs到shinyapps.io的应用程序，那么您需要在代码中的某个位置添加对库（V8）的调用。这是必要的，因为shinyapps.io服务器需要知道它应该安装V8软件包。如果您不这样做，那么您只会看到一个错误，说明软件包丢失。”我只在一开始就调用了V8。即使如此，在shinyapps.io中部署后，它也不起作用。它是什么意思“我只在一开始就调用它”？代码中是否有
库（V8）
调用？如果是这样的话，你就不会有任何问题了。不知怎的，一开始它不起作用。也许一个更新的问题会让你愿意接受迪安·阿塔利的答案。当前版本包含一种非shinyjs

刷新页面的方式。您好，感谢您的输入，我也有同样的问题，通过遵循您的答案，效果非常好。我想知道如何实现您的代码，在多个选项卡上创建页面刷新按钮。我在这里发布了我的问题：。我非常感谢你的帮助！编辑很有帮助：只需使用会话$reload（）就可以了。我会把它放在最上面，这样人们第一眼就能看到它。我开始安装shinyjs哈哈

observeEvent(input$reset_button, {js$reset()}) 

library(shiny)
library(shinyjs)

jscode <- "shinyjs.refresh = function() { history.go(0); }"

ui <- fluidPage(
  useShinyjs(),
  extendShinyjs(text = jscode),
  textInput("text", "Text"),
  actionButton("refresh", "Refresh app")
)

server <- function(input, output, session) {
  observeEvent(input$refresh, {
    js$refresh();
  })
}

shinyApp(ui = ui, server = server)