R中的页面刷新按钮闪亮 [英] Page refresh Button in R shiny

问题描述

我尝试实现链接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的情况下做到这一点？

推荐答案

为了完整起见，下面的代码是使用"刷新"按钮运行的闪亮应用的最小示例

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)

编辑：从SHINY版本0.13.0开始，可以使用SHINY的session$reload()函数刷新页面

这篇关于R中的页面刷新按钮闪亮的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！