闪亮的图像上传

Posted 2023-03-12

【中文标题】闪亮的图像上传

【英文标题】：Shiny image upload

【发布时间】：2017-12-06 20:47:35

【问题描述】：

不确定为什么这个简单的代码不起作用。目标是从设备上传图像并作为闪亮的输出查看。我不断收到错误， *****错误：文件名参数无效*****

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)

【参考方案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)