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

Question

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

我的意思是有人点击超链接，并获得一些文本信息。我是否应该将信息放入 csv 或 xlsx 文件中？或者只是在闪亮的 ui 和服务器中打印它们？

编辑

文本：

**样本信息

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 Acute（急性时间点取自小鼠体重减轻 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)