DropboxからR Shinyアプリに画像ファイルを読み込む

Question

私は、ユーザーがドロップダウンメニューから画像ファイルを選択できるようにする、とてもシンプルなアプリを作ろうとしています。そして、選択したものがDropboxから読み込まれ、アプリ。ここで説明するように、rdrop2パッケージのdrop_get関数を使用しています：https://github.com/karthik/rdrop2。 残念ながら、ファイルがロードされていないようですが、代わりのテキストが表示されるまで数秒かかるので、何かがバックグラウンドで起こっています（コンソールにエラーメッセージも警告も表示されません）。光沢のあるアプリの外で試してみると、ファイルが完全に読み込まれるため、私のトークンとドロップボックスの設定がうまくいくはずです。トークンは私の個人的なDropboxの認証の詳細を含んでいるように、コードを100％再現可能ではありません

謝罪...

ui.R

library(shiny) 

shinyUI(fluidPage(
    titlePanel("My app"), 
    sidebarLayout(
    sidebarPanel(
     selectInput("figure", 
        "Choose figure", 
        choices = list("file1","file2"), 
        selected = "file1") 
    ), 
    mainPanel(
     imageOutput("image") 
    ) 
) 
)) 

server.R

library(shiny) 
library(rdrop2) 
token <- readRDS("droptoken.rds") 
drop_acc(dtoken = token) 
shinyServer(function(input, output) { 
    reactive({ 
     drop_get(paste(input$figure, '.jpg', sep = '')) 
     }) 
    output$image <- renderImage({ 
     filename <- paste(input$figure, '.jpg', sep='') 
     list(src = filename, 
      alt = paste("Image name:", input$figure)) 
    }, deleteFile = FALSE) 
}) 

Answer 1

ますrenderImage内であなたの反応関数を呼び出す必要があります。次のコードに似た何かが私の光り輝くアプリの一つで働いていました。

library(shiny) 
library(rdrop2) 
token <- readRDS("droptoken.rds") 
drop_acc(dtoken = token) 
shinyServer(function(input, output) { 
    myImage <- reactive({ 
     drop_get(paste(input$figure, '.jpg', sep = '')) 
     }) 
    output$image <- renderImage({ 
     myImage() 
     filename <- paste(input$figure, '.jpg', sep='') 
     list(src = filename, 
      alt = paste("Image name:", input$figure)) 
    }, deleteFile = FALSE) 
}) 

EDIT：あるいは、renderImageにdrop_getコードを入れることができます。

library(shiny) 
library(rdrop2) 
token <- readRDS("droptoken.rds") 
drop_acc(dtoken = token) 
shinyServer(function(input, output) { 
    output$image <- renderImage({ 
     drop_get(paste(input$figure, '.jpg', sep = '')) 
     filename <- paste(input$figure, '.jpg', sep='') 
     list(src = filename, 
      alt = paste("Image name:", input$figure)) 
    }, deleteFile = FALSE) 
})