html - 在R Shiny header 中制作图像超链接

我一直在尝试使图像输出超链接到网站，但是我在仔细阅读堆栈溢出中的其他问题时遇到了麻烦

svg with clickable links in shiny - not clickable

http://www.invisiblecompany.com/shiny%20parts/archives/2004/11/clickable-logo.php

http://www.leahkalamakis.com/add-an-image-to-your-sidebar-make-it-clickable/

标签不起作用

服务器

library(shiny)
library(png)


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

output$image1 <- renderImage({
  width<- "100%"
  height<- "100%"
list(src = "www/logo.png",
     contentType = "image/png",
     width = width,
     height = height,
)

}, deleteFile = FALSE)
output$text1 <- renderText({ "please help make the image hyperlinked"     })


})

用户界面

library(shiny)



ui <- shinyUI(pageWithSidebar(
 titlePanel(imageOutput("image1")),

sidebarPanel(
  helpText(   a("Click Here for the Source Code on Github!",         href="https://github.com/Bohdan-Khomtchouk/Microscope",target="_blank"))

 ),
 mainPanel(
tabsetPanel(


  tabPanel("Instructions",textOutput("text1"))
))
))

您可以将logo.png替换为您想要的任何东西，我认为超链接会出现在服务器列表中。

最佳答案

只需将imageOutput和tags$a包装在一起，以便在用户界面中:

titlePanel(tags$a(imageOutput("image1"),href="https://www.google.com"))

如果要从服务器端定义网页，则需要这样的内容:

#server
  output$example <- renderUI({
    tags$a(imageOutput("image1"),href="https://www.google.com")
  })
#UI
titlePanel(uiOutput("example"))