Добавить ссылку на внешний URL-адрес в боковой панели меню - PullRequest
Новая
       45

Добавить ссылку на внешний URL-адрес в боковой панели меню

0 голосов
/ 25 мая 2020

Надеюсь, ты сможешь мне помочь. Есть ли способ добавить гиперссылку в боковое меню блестящей панели инструментов? Я пробовал использовать следующий код: 


ui <- dashboardPage(

  dashboardHeader(title = "Co-Lock App"),
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem("Manual", tabName = 'manual', icon = icon("book-reader")),
      menuItem("Tumor Cell Expression", tabName =  "known", icon = icon("check-double")),
      menuItem("Immune Cell Expression", tabName = "immune", icon = icon("check-double")),
      menuItem("Tumor Cell Targets", tabName = "target", icon = icon("bullseye")),
      menuItem("Immune Cell Targets", tabName = "immunetarget", icon = icon("bullseye")),
      menuItem("Perfect Match", tabName = "match", icon = icon("heart")),
      menuItem(uiOutput("png"))
    )
  ),
  dashboardBody())

server <- function(input, output, session){

  output$png <- renderUI({
    tags$a(img(src = "ccle.png"), href = "https://www.ebi.ac.uk/gxa/experiments/E-MTAB-2770/Results", target = "_blank")
  })

}

shinyApp(ui = ui, server = server)

Пока ссылка работает, изображение png огромно, и когда я пытаюсь отрегулировать ширину и высоту, ничего не меняется. Есть ли что-нибудь вокруг этого?

Спасибо!

...