页面刷新按钮为R闪亮

8zzbczxx 于 2023-02-26 发布在其他

关注(0)|答案(1)|浏览(118)

我尝试在链接here后实现页面刷新按钮。但是当我尝试部署到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"))

在server.R中：

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

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

来源：https://stackoverflow.com/questions/34142841/page-refresh-button-in-r-shiny

1条答案

按热度按时间

hwazgwia1#

**编辑：**从shiny 0.13.0版本开始，可以使用Shiny的session$reload()函数刷新页面
0.13.0之前的原始答案（您仍然可以使用，但不需要）

下面的代码是使用“刷新”按钮的工作的Shiny应用程序的最小示例

library(shiny)
library(shinyjs)

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

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

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

shinyApp(ui = ui, server = server)

赞(0）回复(0）举报 2023-02-26

我来回答

页面刷新按钮为R闪亮

1条答案

相关问题

热门标签

最新问答