禁用R闪亮应用程序中的浏览器后退按钮 [英] Disable browsers back button in R shiny App

问题描述

我正在构建一个闪亮的应用程序，其中有很多条件面板。我在应用程序中有一个后退按钮，可以在条件面板之间导航。我想禁用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))

示例2将完全禁用导航。就我个人而言，我不喜欢这种方法，因为人们可能会对您的网站不提供标准导航功能感到恼火

rm(list = ls())
library(shiny)
jscode2 <- "history.pushState(null, null, document.title);
window.addEventListener('popstate', function () {
    history.pushState(null, null, document.title);});"
ui <- basicPage(
  mainPanel(tags$head(tags$script(jscode2)))
)

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

这篇关于禁用R闪亮应用程序中的浏览器后退按钮的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！