Прямой доступ к изображениям Webshot в Shiny

Question

Цель: создать снимок экрана с веб-сайтом, который будет автоматически отображаться, когда пользователь вводит имя гена, например TP53, NAPRT

. Проблема: хотя это работает локально, происходит сбой, когда я публикую sh его в сети. Я подозреваю, что это связано с тем, что файлы, загруженные с веб-сайта, более недоступны. Я попытался указать имя файла с www/Filename.png, но это работает как в автономном режиме для всех генов, так и в Интернете только для тех, которые уже были созданы ранее, и, таким образом, изображения уже существовали в www*1004*

. Как вы можете видите, запуск R работает, а публикация - нет.

library(webshot)

# Define UI for application that draws a histogram
ui <- fluidPage(
  textInput("gene", "Gene symbol", value = "TP53"),
  imageOutput('myImage')
)

# Define server logic required to draw a histogram
server <- function(input, output) {
  output$myImage <- renderImage({
   outfile <- paste(input$gene,'.png', sep="") 

    owd <- setwd(tempdir())
    webshot(paste('http://ualcan.path.uab.edu/cgi-bin/Pan-cancer.pl?genenam',input$gene,sep="="),
            outfile,
            selector = '#banner3',
            delay = 2,
            expand = c(0,40,0,0))
    # Return a list containing the filename
    list(src = outfile,
         contentType = 'image/png',
         width = 600,
         height = 450,
         alt = "This is alternate text")
  }, deleteFile = FALSE)
    }

# Run the application 
shinyApp(ui = ui, server = server)```