So laden Sie ein externes Bild auf Shiny

Question

In meinem aktuellen Projekt versuche ich Bilder unter shiny dashboard mit R zu laden. Der Code-Snippet wird wie unten dargestellt:

dashboardBody(
      hr(), 
      fluidRow(
      column(6,align="center",imageOutput("ginger")) 
     ) 
     ) 
    ) 

     server <- function(input, output) { 
     output$ginger <- renderImage({ 
      return(list(
      src = "images/ginger.jpg", 
      contentType = "image/jpeg", 
      width = 300, 
      height = 200, 
      alt = "Face" 
     )) 
     }, deleteFile = FALSE) 

Im Grunde ist es nur auf den shiny dashboard das Bild anzuzeigen. Hier wird das Bild auf dem lokalen Rechner gespeichert. Jetzt möchte ich Bilder von Google Drive oder aus dem Internet laden. Ich versuche das Bild von meinem Google Drive zu laden und die URL lautet https://drive.google.com/file/d/0By6SOdXnt-LFaDhpMlg3b3FiTEU/view.

Ich konnte nicht herausfinden, wie man Bilder von Google Drive oder Web in glänzend und wie Titel im Bild auch hinzufügen?Fehle ich etwas?

Answer 1

This answer ist lehrreich. Hier ist eine Barebones App mit einem externen Bildanruf, um das Bild anzuzeigen, das Sie in Ihrem Google Drive-Konto erwähnen.

library(shiny) 

# Define UI with external image call 
ui <- fluidPage(
    titlePanel("Look at the image below"), 

    sidebarLayout(sidebarPanel(), 

       mainPanel(htmlOutput("picture")))) 

# Define server with information needed to hotlink image 
server <- function(input, output) { 
    output$picture <- 
    renderText({ 
     c(
     '<img src="', 
     "http://drive.google.com/uc?export=view&id=0By6SOdXnt-LFaDhpMlg3b3FiTEU", 
     '">' 
    ) 
    }) 
} 

shinyApp(ui = ui, server = server)