Question

我正在尝试构建一个输入面板，该面板获取第一个面板的结果，然后更改另一个面板中的“选择”向量。变量allpath4的加载方式与org相同。

 selectInput("org", "Choose an organism:", 
              choices = org ),

  conditionalPanel(
          condition = "input.org != 'NA'",
              selectInput("path", "Choose a pathway:", 
                   choices =allpath4[grep(strsplit("input.org", "-")[[1]][1], allpath4[,1]),2] )
           )

我收到的错误是因为我无法阅读input$org内部函数，我该怎么做？

在相关主题中，我尝试使用renderImage允许我加载每次从输入面板更改参数时下载的I图像，例如

url <- paste("http://www.kegg.jp/kegg-bin/show_pathway?", input$org, "+default%3dred+", sep="")
download.file(url, paste('file', inorg, '.png', sep=''))

如果我使用

output$plot2 <- renderImage({
       # A temp file to save the output. It will be deleted after renderImage
       # sends it, because deleteFile=TRUE.
   inorg <- input$org 
   filename <- normalizePath(file.path('./',
                  paste('file', inorg, '.png', sep='')))


       # Return a list
       list(src = filename)
     })

我可以在第一次加载应用时加载正确的图像，但是如果我更改selectInput中的输入，则不加载新图。有什么猜测吗？

conditionalPanel和renderImage有光泽

0 个答案: