Herstellung eines Bildes Hyperlink in R Shiny Header

Question

Ich habe versucht, die Bildausgabe Hyperlink auf eine Website zu machen, aber ich habe Schwierigkeiten mit den anderen Fragen

svg with clickable links in shiny - not clickable

auf Stack-Überlauf durchgelesen zu haben

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/

die Tags funktionieren nicht

se rver.r

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"  }) 


}) 

ui.r

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")) 
)) 
)) 

können Sie die logo.png ersetzen mit dem, was Sie wollen, ich glaube, der Hyper-Link in der Liste im Server geht.

Answer 1

wickeln gerade imageOutput mit tags$a so in der Benutzeroberfläche:

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

Wenn Sie die Webseite von der Server-Seite definieren wollen, dann so etwas wie dieses benötigen Sie:

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