Rのshinyで、uiサイドでfileInputで読み込んだ画像を、mainPanelに表示する方法を教えてください。

Question

Rのshinyで、uiサイドでfileInputで読み込んだ画像を、mainPanelに表示する方法を教えてください。
以下のように書きましたが、画像が表示されずに困っています。
library(shiny)

shinyUI(fluidPage(

titlePanel("TCF"),

fluidRow(
column(2,
fileInput("file1", "Choose image File",
multiple = TRUE,
accept = c(".png","bmp","jpeg","jpg"))
),
column(10,

mainPanel(
	fluidRow(
     column(12,
  imageOutput("image"))
	)
))
)   

))

library(shiny)

shinyServer(function(input, output) {

output$image <- renderPlot({
req(input$file1)

bmp(input$file1$datapath,width=300,height=300)

})
})

Comments

[KojiDoi]

これでは追試ができません。ヘルプを良く読んで、プログラムコードがちゃんと表示されるように質問を編集・修正してください。

Answer 1

この質問から日にちが経ってしまっているので
何らかの形でもう既に解決されているかもしれませんが・・・

serverのbmp(input$file1$datapath,width=300,height=300)の部分を
HTML形式で読み込ませてみてはいかがでしょうか。
詳細はshinyのギャラリーへ。

こちらもshinyは学びの途中で悪戦苦闘中です（笑）

library(shiny)

ui<-shinyUI(fluidPage(

titlePanel("TCF"),

fluidRow(
column(2,
fileInput("file1", "Choose image File",
multiple = TRUE,
accept = c(".png","bmp","jpeg","jpg"))
),
column(10,

mainPanel(
fluidRow(
column(12,
imageOutput("image"))
))))))

server<-shinyServer(function(input, output) {

output$image <- renderImage({
req(input$file1)
return(list(
        src = input$file1$datapath,
        contentType = "image/png",
		width  = 300,
        height = 300
      ))
})
})

shinyApp(ui,server)

Comments

[Shellykagoshima]

ありがとうございます。動作しました。