本教程旨在解决shiny应用中点击按钮后，如何将用户重定向到新标签页或新窗口的问题。通过集成自定义javascript消息处理器，我们能够动态创建一个隐藏的html `` 元素，并利用其 `target="_blank"` 属性，实现点击按钮后在新标签页中打开指定url，从而优化用户交互体验。
在开发Shiny应用时，我们经常需要实现用户点击某个按钮后跳转到外部链接的功能。常见的做法是使用JavaScript的 window.location 来进行重定向。然而，这种方法默认会在当前浏览器窗口或标签页中打开新链接，这可能会中断用户的当前操作流程，影响用户体验。虽然 window.open 函数可以用于在新窗口中打开链接，但在实际应用中，它常常受到浏览器弹出窗口拦截器的限制，导致功能无法按预期执行。
解决方案：利用动态创建的HTML 元素
为了克服上述限制，一个更健壮且兼容性更好的方法是利用JavaScript动态创建一个隐藏的HTML （锚点）元素，设置其 href 属性为目标URL，并将其 target 属性设置为 _blank，然后模拟用户点击这个隐藏的链接。这种方法模拟了用户点击普通链接的行为，因此通常不会被浏览器视为弹出窗口而被拦截。
实现步骤与代码示例
以下是如何在Shiny应用中实现这一功能的详细步骤和完整代码。
-
定义JavaScript自定义消息处理器
我们首先需要定义一个JavaScript函数，作为Shiny的自定义消息处理器。这个函数会在Shiny服务器端发送特定消息时被调用。
// myjs.js (或直接作为字符串嵌入R代码) Shiny.addCustomMessageHandler('mymessage', function(message) { // 1. 创建一个隐藏的元素 var a = document.createElement('a'); a.style.display = 'none'; // 确保元素不可见 // 2. 设置链接的目标URL a.href = message; // 3. 设置target属性为'_blank'，确保在新标签页/窗口打开 a.target = '_blank'; // 4. 将元素添加到DOM中（必须在点击前添加到DOM） document.body.appendChild(a); // 5. 模拟点击这个隐藏的链接 a.click(); // 6. 点击后移除该元素，保持DOM整洁 a.remove(); });这段JavaScript代码的核心逻辑是：
- document.createElement('a'): 创建一个 标签。
- a.style.display = 'none': 将其设置为不可见，避免在页面上闪现。
- a.href = message: 将从Shiny服务器接收到的URL赋值给 href 属性。
- a.target = '_blank': 这是关键，指示浏览器在新标签页或新窗口中打开链接。
- document.body.appendChild(a): 将创建的 元素添加到文档的 body 中，使其成为DOM的一部分，这样才能被“点击”。
- a.click(): 模拟用户点击这个链接。
- a.remove(): 在链接被点击并触发跳转后，从DOM中移除这个临时的 元素，保持页面干净。
-
构建Shiny UI
在Shiny的UI部分，我们需要通过 tags$head 和 tags$script 将上述JavaScript代码嵌入到HTML头部。同时，定义一个 actionButton 作为触发跳转的元素。
library(shiny) # 将JavaScript代码作为字符串存储 myjs <- "Shiny.addCustomMessageHandler('mymessage', function(message) { var a = document.createElement('a'); a.style.display = 'none'; a.href = message; a.target = '_blank'; document.body.appendChild(a); a.click(); a.remove(); });" ui <- fluidPage( tags$head(tags$script(myjs)), # 将JavaScript嵌入到页面头部 actionButton("button", "点击我跳转") # 定义一个按钮 ) -
编写Shiny Server逻辑
在服务器端，我们使用 observeEvent 监听按钮的点击事件。当按钮被点击时，通过 session$sendCustomMessage 函数向客户端发送一个自定义消息，其中包含目标URL。这个消息会被之前定义的JavaScript处理器捕获并执行。
server <- function(input, output, session) { observeEvent(input$button, { url <- "https://stackoverflow.com/" # 定义目标URL session$sendCustomMessage("mymessage", url) # 发送自定义消息 }) } -
运行Shiny应用
最后，将UI和Server部分组合起来，运行Shiny应用。
shinyApp(ui, server)
完整代码示例
library(shiny)
# 定义JavaScript自定义消息处理器
myjs <- "Shiny.addCustomMessageHandler('mymessage', function(message) {
var a = document.createElement('a');
a.style.display = 'none';
a.href = message;
a.target = '_blank';
document.body.appendChild(a);
a.click();
a.remove();
});"
# 构建Shiny UI
ui <- fluidPage(
tags$head(tags$script(myjs)), # 将JavaScript嵌入到页面头部
actionButton("button", "点击我跳转到Stack Overflow") # 定义一个按钮
)
# 编写Shiny Server逻辑
server <- function(input, output, session) {
observeEvent(input$button,{
url <- "https://stackoverflow.com/" # 定义目标URL
session$sendCustomMessage("mymessage", url) # 发送自定义消息
})
}
# 运行Shiny应用
shinyApp(ui, server)注意事项
- 浏览器弹出窗口拦截器： 尽管这种方法比直接使用 window.open 更不易被拦截，但在某些极度严格的浏览器设置下，仍然有被拦截的风险。通常，如果跳转是用户明确操作（如点击按钮）的结果，浏览器会允许。
- 用户体验： 在新标签页中打开外部链接通常是更好的用户体验，因为它允许用户在不离开当前应用的情况下查看外部信息。
- 安全性： 在跳转到外部链接时，请确保目标URL是可信的，以避免将用户引导到恶意网站。
- 动态URL： 示例中 url 是硬编码的，但在实际应用中，你可以根据应用的逻辑或用户输入动态生成URL。
总结
通过在Shiny应用中巧妙地结合R代码和自定义JavaScript消息处理器，我们能够实现点击按钮后在新标签页或新窗口中打开指定URL的功能。这种方法利用动态创建的 元素和 target="_blank" 属性，有效规避了 window.location 的当前页跳转限制以及 window.open 可能遇到的弹出窗口拦截问题，为用户提供了更流畅、更友好的交互体验。
