我以前部署过我的闪亮应用程序。但有一件事我需要做的是在我的应用程序中添加几个超链接。
我的意思是有人点击超链接，并得到一些文本信息。我应该把信息放入csv文件还是xlsx文件?还是直接打印出来?
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分离法荧光活化细胞分选法
治疗组信息EAE急性(急性时间点取小鼠体重减轻1 g的第一天)
处理组复制数。3
对照组信息EAE控制
控制组复制序号。3
还有，我知道超链接代码:
tags$h6(tags$a(href="TEXT", "1. EAE (Acute)"))
但是我不知道如何在超链接中添加文本。
我希望有人能帮助我。感恩不尽!我不确定你到底在找什么。也许下面的代码会有所帮助。请将图片名称替换为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)