ユーザーが画像をサーバーにアップロードできる光沢のあるアプリを構築しています。最初にアップロードせずに画面に画像を表示してから、レンダリングされた出力を取得したいと思います。これは可能ですか?
これが今の私のコードです。アップロードする画像ファイルを選択できます。画像は、受信後にサーバー側のファイルからレンダリングされます。往復は避けたいです。
UI
fluidPage(
titlePanel("File upload"),
sidebarLayout(
sidebarPanel(
fileInput("img", "Choose image file",
accept=c("image/jpeg", "image/x-windows-bmp"))
),
mainPanel(
imageOutput("picture", width="500px", height="500px")
)
)
)
サーバ
function(input, output, session)
{
output$picture <- renderImage({
imgFile <- input$img
if(is.null(imgFile))
return(list(src=""))
list(src=imgFile$datapath, alt=imgFile$name, contentType=imgFile$type)
}, deleteFile=FALSE)
# do more stuff with the file
}