R блестящий вариант загрузки - PullRequest
0 голосов
/ 09 мая 2019

У меня проблема с загрузкой запрошенных пользователем данных. Я думаю, что я не понимаю (я новичок в R и Shiny) поведение downloadHandler. У меня нет проблем с отображением выбранного файла (который уже сохранен в R как растровый файл BFT_PR, YFT_PR и FAI), но при попытке загрузить его я всегда получаю одинаковые downloadData.txt и Error: server проблема. Я очень ценю любую помощь с этим.

server <- function(input, output) {

  output$range <- renderText({paste("Forecast from", timestart, "to", timeend)})

  # Reactive value for selected dataset ----

  output$model <- renderPlot({

    mapInput <- reactive({
    switch(input$model,
           "Bluefin tuna" = BFT_PR,
           "Yellowfin tuna" = YFT_PR,
           "Fishing Aptitude Index"=FAI)})   

    palette <-colorRampPalette(c("blue", "#007FFF", "cyan",
                                      "#7FFF7F", "yellow", "#FF7F00", "red" ))(100)

    spplot(mapInput(), col.regions=palette, sp.layout= list(landmask_m, landmask_u, FZ),scales=list(draw = TRUE))

  })



  # Download map as geotiff  ----

  output$downloadData <- downloadHandler(

    filename = function() {paste0(input$model, ".tif")},


    content = function(file) {writeRaster(mapInput(), file)}

  )
}

1 Ответ

0 голосов
/ 28 мая 2019

Ездил в прошлом месяце, извините за ответ так поздно. Вот пример моего кода с некоторыми фиктивными данными

r1 <- raster(matrix(sample(1:100, 100),35,52), xmn= -97.75, xmx=-84.75, ymn=17.75, ymx=26.5)
r2 <- raster(matrix(sample(100:200, 100),35,52), xmn= -97.75, xmx=-84.75, ymn=17.75, ymx=26.5)
r3 <- raster(matrix(sample(200:300,100),35,52), xmn= -97.75, xmx=-84.75, ymn=17.75, ymx=26.5)

library(shiny)
library(raster)
library(rgdal)
library (sp)

ui <- fluidPage(

App title ----
titlePanel((p("TUNAGOM DST", style = "color:#3474A7"))),

sidebarLayout(

# Sidebar panel for inputs ----

sidebarPanel(

 helpText("Weekly forecasts.
       Bluefin and Yellowfin tuna catch per unit effort (fish/1000 hooks).
       Fishing Aptitude Index "),

# Distribution maps: Species distribution, Fishing aptitude index. Display menu

# Input: select forecast dataset 

  selectInput("model", "Select Forecast:",
          choices = c("r1", "r2", "r3")),

# Download data button

  downloadButton("downloadData", "Download data")


  ),

 # Main panel for displaying outputs ----
mainPanel(

  # Temporal range (text output)

 textOutput("range"),

  # Output: maps

 plotOutput("model"))
 )
 )

 server <- function(input, output) {

 output$range <- renderText({paste("Forecast from", timestart, "to", timeend)})

 Reactive value for selected dataset ----
 output$model <- renderPlot({

 mapInput <- reactive({
  switch(input$model,
     "r1" = r1,
     "r2" = r2,
     "r3"=r3)})   

 palette <-colorRampPalette(c("blue", "#007FFF", "cyan",
                         "#7FFF7F", "yellow", "#FF7F00", "red" ))(100)

 spplot(mapInput(), col.regions=palette, scales=list(draw = TRUE))
 })

 output$downloadData <- downloadHandler(

 filename = function() {paste0(input$model, ".tif")},


 content = function(file) {writeRaster(mapInput(), file, format="GTiff", 
 overwrite=TRUE)}
 )
 }

 runApp(shinyApp(ui, server), launch.browser = TRUE)
...