在R Shiny仪表板中使用超链接文本

时间:2019-01-14 16:14:57

标签: r hyperlink shiny dashboard

我目前正在尝试构建一个R闪亮的仪表板,我想创建一些链接到网站并在其周围提供信息的部件。最初,我离线启动仪表板,然后简单地运行了一个脚本,使URL成为字符串,然后在以后使用它。我现在想将其托管在闪亮的主机上,并且我无法让R首先运行字符串,因此认为我需要以另一种方式进行操作。

我对仪表板的第一次尝试如下:

  dashboardHeader(title = "dashboard"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("ex1?", tabName = "ex1", icon = icon("arrow-circle-right")),
      menuItem("ex2", tabName = "queries", icon = icon("envelope")),
      menuItem("ex3", tabName = "QMI", icon = icon("folder-open")),
      menuItem("ex4", tabName = "Newport", icon = icon("arrow-circle-right"))
    )
),
  dashboardBody(
    tabItems(
      tabItem(tabName = "Main",
              h3("What we do?", tags$br(),
              h4(box("text")
),
              tabBox(
              title = "Core publications",
              id = "tabset1", height = "200px", width = 5,
              tabPanel("link1", tagList(link1_url),tags$br(),"text"),
              tabPanel("link2",tagList(link2_url),tags$br(), "text"),
              tabPanel("link3",tagList(link3_url),tags$br(), "text3")
),

字符串文件具有例如

ex1_url <- a("text", href="https://www.exampleurl.com")

因此,使用当前代码,当仪表板处于活动状态时,由于没有超级链接的目的地,它崩溃了,我需要一种将背景url链接到ui中的文本的方法。

我觉得我还没有设置最好的方法,因此我们将不胜感激。

谢谢

0 个答案:

没有答案