由网友(毁了她的清白就要给她未来)分享简介:我正在构建一个闪亮的应用程序,其中有很多条件面板。我在应用程序中有一个后退按钮,可以在条件面板之间导航。我想禁用Web浏览器的后退按钮,因为单击该按钮将转到上一个网页(远离我的应用程序)。有办法做到这一点吗?推荐答案您可以编写一些javascript来完成此操作。这里有两个示例,请注意,我仅在Chrome上进行了测试...![Dreamweaver CS6在哪里添加火狐浏览器](https://p.xsw88.cn/allimgs/daicuo/20230903/4340.png)
我正在构建一个闪亮的应用程序,其中有很多条件面板。我在应用程序中有一个后退按钮,可以在条件面板之间导航。我想禁用Web浏览器的后退按钮,因为单击该按钮将转到上一个网页(远离我的应用程序)。有办法做到这一点吗?
推荐答案
您可以编写一些javascript
来完成此操作。这里有两个示例,请注意,我仅在Chrome
![Dreamweaver CS6在哪里添加火狐浏览器](https://p.xsw88.cn/allimgs/daicuo/20230903/4340.png)
示例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))
相关推荐
最新文章