微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

如何在 Shiny 应用程序中包含指向网站的 URL 链接?

如何解决如何在 Shiny 应用程序中包含指向网站的 URL 链接?

理想情况下,我试图在我闪亮的应用程序代码中嵌入一个网站,这样当用户点击“项目 1”下的“细胞培养”时,谷歌主页就会​​显示出来。我尝试这样做,但我的代码不起作用。理想情况下,当用户单击“Item 1”下的“Cell Culture”时,Google 的主页应该会自动显示在仪表板中,但是,如果这不可能并且用户必须单击超链接才能访问 google 的主页,那也没关系。

这是我目前的代码

    library(shiny)
library(shinydashboard)


ui <- dashboardPage(
    dashboardHeader(title = "Dashboard"),dashboardSidebar(
      sidebarMenu(
        menuItem("Item 1",tabName = "Item 1",icon = icon("medicine"),menuSubItem("Cell Culture",list(ui = fluidPage(
                        uIoUtput("tab")))),menuSubItem("Isolation"),menuSubItem("Drug Substance"),menuSubItem("Drug Product")),menuItem("Item 2",tabName = "Item 2",menuSubItem("Cell Culture"),menuSubItem("Drug Product"))
      )
    ),dashboardBody())

server = function(input,output,session){
  url <- a("Google Homepage",href="https://www.google.com/")
  output$tab <- renderUI({
    tagList("URL link:",url)
  })
}

shinyApp(ui,server)

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。