如何在闪亮的文本中添加超链接

Question

我已经部署了我的闪亮的应用程序。但是有一件事我需要做的就是在我的应用程序中添加几个超链接。

我的意思是有人点击超链接，得到一些文本信息。是否应该将信息放入csv或xlsx文件？还是直接在闪亮的ui和服务器上打印？

EDITE

案文：

**样本信息

GSE95401_EAE_Acute

原版书名

对健康和疾病模型中小鼠脑内皮细胞转录体的分析揭示了一个核心血脑屏障功能障碍模块PMID 31611708。

数据源https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=GSE95401

疾病/治疗

用含乳剂的MOG35-55肽诱导EAE。

[医]肌肉毛蜂

C57BL/6-Rosa-tdTomato菌株

2至3个月

器官脊髓

EC分离方法荧光活化细胞分选(FACS)

治疗组信息EAE急性(急性时点采取第一天，小鼠显示1克体重下降)。

处理组复制号。3.

控制组信息EAE控制

控制组复制编号。3.

另外，我知道超链接代码：

tags$h6(tags$a(href="TEXT", "1. EAE (Acute)"))

但是我不知道其他关于如何在超链接中添加文本的信息。

我希望有人能帮我。心存感激！

Answer 1

我不知道你到底在找什么。也许下面的代码会有所帮助。请将图像名替换为www文件夹中的一些示例图像。

library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = div("TEST App", 
                              img(src = 'YBS.png',
                                  title = "A Test Application", height = "30px"),
                              style = "position: relative; margin:-3px 0px 0px 5px; display:right-align;"
  ), 
  titleWidth=300,
  tags$li(a(href = 'http://www.rstudio.com',
            icon("power-off"),
            title = "RStudio Home"),
          class = "dropdown"),
  tags$li(a(href = 'https://www.cnn.com',
            tags$img(src = 'YBS.png', height = "30px"),
            title = "CNN Home"),
          class = "dropdown")
  ),
  dashboardSidebar(),
  dashboardBody(
    tabBox(
           title = "Tab box",
           width = "100%",
           id = "tabset1", height = "250px",
           tabPanel("Tab 1",
                    tags$li(tags$a(href="http://www.rstudio.com", 
                                   paste("My Test on RSTudio link"),
                                   title="1. EAE (Acute)"))
           ),
           tabPanel("Tab 2",
                    tags$li(tags$a(href="http://www.rstudio.com", 
                                   img(src = "sphere.png", height="10%", width="10%", align="right"),
                                   title="2. EAE (Acute)"))
           )
    )
  )
)

server <- function(input, output) {}

shinyApp(ui, server)