Shiny 在R应用程序中禁用浏览器后退按钮

我正在构建一个有很多条件面板的闪亮应用程序。我在应用程序中有一个后退按钮，可以在条件面板之间导航。我想禁用“web浏览器后退”按钮，因为单击该按钮会转到上一个网页（远离我的应用程序）。有办法做到这一点吗？

您可以编写一些

javascript

来做到这一点。这里我有两个例子，请注意，我只在

Chrome

示例1在激活浏览器中的

back

按钮时将返回一条消息

rm(list = ls())
library(shiny)
jscode <- 'window.onbeforeunload = function() { return "Please use the button on the webpage"; };'
ui <- basicPage(
  mainPanel(tags$head(tags$script(jscode)))
)

server <- function(input, output,session) {}
runApp(list(ui = ui, server = server))

rm（list=ls（））
图书馆（闪亮）
jscode您可以编写一些
javascript
来实现这一点。这里我有两个例子，请注意，我只在
Chrome

示例1在激活浏览器中的
back
按钮时将返回一条消息

rm(list = ls())
library(shiny)
jscode <- 'window.onbeforeunload = function() { return "Please use the button on the webpage"; };'
ui <- basicPage(
  mainPanel(tags$head(tags$script(jscode)))
)

server <- function(input, output,session) {}
runApp(list(ui = ui, server = server))

rm（list=ls（））
图书馆（闪亮）
jscode