Html 将外部超链接添加到r中的tabPanel或NavBar菜单
我正在尝试将外部超链接添加到Shining中的Html 将外部超链接添加到r中的tabPanel或NavBar菜单,html,r,shiny,Html,R,Shiny,我正在尝试将外部超链接添加到Shining中的navbarPage设置中的Tabbabel和navbarMenu选项卡/下拉列表(使用bootstrapPage)。我在一个闪亮的应用程序中发现了多个关于链接到另一个选项卡的问题,但我想在不打开新的浏览器窗口的情况下专门链接到另一个网页 我发现以下问题有助于达到目的: 第二个问题是我想做什么;但是,当我使用以下方法来完成此操作时,它会添加一个“幻影”选项卡: 下面是我正在使用的闪亮应用程序设置的一些示例代码: library(shiny); l
navbarPage
设置中的Tabbabel
和navbarMenu
选项卡/下拉列表(使用bootstrapPage
)。我在一个闪亮的应用程序中发现了多个关于链接到另一个选项卡的问题,但我想在不打开新的浏览器窗口的情况下专门链接到另一个网页
我发现以下问题有助于达到目的:
第二个问题是我想做什么;但是,当我使用以下方法来完成此操作时,它会添加一个“幻影”选项卡:
下面是我正在使用的闪亮应用程序设置的一些示例代码:
library(shiny); library(shinythemes)
ui <- bootstrapPage("",
navbarPage(
id = "navbar",
theme = shinytheme("yeti"),
title = a("Home", href = "https://google.com", style = "color:white;"), ## page title with hyperlink and browser tab title (works as intended)
tabPanel(title = HTML("Panel_1</a></li><li><a href='http://google.com' target='_blank'>test")), ## tabPanel hyperlink test (adds "phantom" tab)
navbarMenu(title = "Test Menu",
tabPanel(title = a("Open Sales Gsheet", href="http://google.com", target="_blank")) ## navbarMenu hyperlink test (adds "phantom" option)
)
)
)
server <- function(input, output, session) {
## empty server
}
shinyApp(ui, server)
库(闪亮);图书馆(shinythemes)
ui在闪亮的navbar页面中添加自定义元素很棘手,但是可以使用一些javascript来完成。以下代码应将链接添加到导航栏中的下拉菜单。将其保存为应用程序基本目录中的.js文件,然后将脚本包含在ui函数中
应用程序基本目录中的navAppend.js
:
$(document).ready(function() {
$(".navbar .container-fluid .navbar-nav .dropdown .dropdown-menu").append('<li><a href="https://google.com" target="_blank">Open Sales Gsheet</a></li>');
});
您可以尝试将页面嵌入iFrame,但网站所有者可以决定是否允许:。这实际上可能就是我想要的。这将需要一些重新工作的东西,但我想我可能能够使它的工作。非常感谢。
$(document).ready(function() {
$(".navbar .container-fluid .navbar-nav .dropdown .dropdown-menu").append('<li><a href="https://google.com" target="_blank">Open Sales Gsheet</a></li>');
});
ui <- tagList(
tags$head(includeScript("navAppend.js")),
navbarPage(
id = "navbar",
theme = shinytheme("yeti"),
title = a("Home", href = "https://google.com", style = "color:white;"), ## page title with hyperlink and browser tab title (works as intended)
# nav menu the link will be added to
navbarMenu(title = "Test Menu")
)
)