RShiny:输入多个图像文件并将其放入表中

我正在尝试在shiny的一个项目中比较用户上传的图像和保存在我的亚马逊s3服务器中的图像。

在从s3下载时，我使用的是：

save_object(object=xyz ,bucket = "xyz", file = paste0("www/",xyz,".jpg"))

我将输入作为：

fileInput("image","upload the image")

我的数据帧是这样的：

a$name<- xyz

a$server_image<- paste0("<img src=",'"',"xyz.jpg",'"'," ","height=",'"',"300",'"',"></img>")

a$uploaded_image<- paste0("<img src=",'"',input$image$datapath,'"'," ","height=",'"',"300",'"',"></img>")

我正在尝试获得如下所示的输出。

output$output_table<-DT::renderDataTable({DT::datatable(a,escape = FALSE)})

在这种情况下，从aws s3下载到"www/“目录的图像在表中显示正确，但在查看上传的图像时出现问题。

我还尝试在input$image上使用file.copy将其复制到文件夹"www"，但在部署应用程序时也不起作用。

如何在不使用renderImage的情况下查看使用fileInput和视图拍摄的图像？

转载请注明出处:http://www.mrdmz.com/article/20230526/2198102.html

➤