R输出图像列表的闪亮下拉列表

Question

我正在尝试显示由R on Shiny制作的情节图像。我的输出图像在App-1 \ www。

中

使用主面板，我可以逐个显示图像。是否可以使用下拉列表并从闪亮的图像调用图像？

有什么建议吗？

此致 拉吉

Answer 1

这对我来说就像是一个黑客，但它确实有效。我也想知道这是否可以使用：

mainPanel(
  img(src="nestler_test.jpg", height = 700, width = 00)
)

此处还有格式化道歉......

ui.R

库（有光泽）

定义UI

shinyUI（fluidPage（

＃应用程序标题   titlePanel（＆＃34; The Example＆＃34;），

#Sidebar，带有滑块输入，用于容器数量   sidebarLayout（     sidebarPanel（       selectInput（＆＃34; stage＆＃34;，＆＃34;示例文本：＆＃34;，                   choices = c（＆＃34; stage1＆＃34;，＆＃34; 2＆＃34;，＆＃34; 3＆＃34;））     ），

# Show a plot of the generated distribution
mainPanel(
  plotOutput("distPlot")
)

） ））

server.R

库（JPEG）

定义服务器逻辑

shinyServer（函数（输入，输出）{

输出$ distPlot＆lt; - renderPlot（{

if (input$stage=="stage1") {
  img=readJPEG('1st_test.jpg')
} else if (input$stage=='2') {
  img=readJPEG('2nd_test.jpg')
}
plot(c(100, 250), c(300, 550), type='n', ylab='',xlab='', xaxt='n', yaxt='n', frame.plot=F)
rasterImage(img, 100, 300, 250, 550)

}） }）