光沢のある画像のアップロード

Question

この単純なコードが機能しない理由はわかりません。目標は、デバイスから画像をアップロードし、光沢のある出力として表示することです。私はエラーを得続ける、 *****エラー：無効なファイル名引数*****

library(jpeg) 
library(shiny) 
library(magick) 
library(magrittr) 




    ui <- fluidPage(

#-------------------------------------Header Panel--------------------------------------------------# 

titlePanel('Invoice Recognition & Interpretation -IRI'), 

#--------------------------------Sidebar : Image Upload---------------------------------------------# 
sidebarLayout(

    sidebarPanel(
    fileInput(inputId = "file1", 
       label = "Upload Invoice", 
      accept = c('image/png', 'image/jpeg','image/jpg') 
    ), 

    tags$hr() 

), 


    mainPanel( 

    imageOutput(outputId = "Invoice") 

    ) 
) 
) 


server <- function(input, output) { 

re1<-reactive({ input$file1}) 

output$Invoice<-renderImage({re1()}) 

} 
shinyApp(ui, server) 

Answer 1

あなたがそこに道のほとんどをしている、しかし、あなたはあなたのfileInputがデータフレームを返すことを理解する必要がありますパスだけではありません。また、renderImageは<img>と似ており、srcを割り当てる必要があります。

library(shiny) 

ui <- fluidPage(

    titlePanel('Invoice Recognition & Interpretation -IRI'), 

    sidebarLayout(
    sidebarPanel(
     fileInput(
     inputId = "file1", 
     label = "Upload Invoice", 
     accept = c('image/png', 'image/jpeg','image/jpg') 
    ), 
     tags$hr() 
    ), 
    mainPanel(
     textOutput("filename"), 
     imageOutput(outputId = "Invoice") 
    ) 
) 
) 

server <- function(input, output) { 

    re1 <- reactive({gsub("\\\\", "/", input$file1$datapath)}) 

    output$Invoice <- renderImage({list(src = re1())}) 

} 

shinyApp(ui, server)