Оператор if вызвал проблему для загрузчика загрузчика () в блестящем приложении

Question

У меня есть блестящее приложение ниже, которое загружает шейп-файлы. Приложение работает нормально, пока я не добавил условие if else и не получил уведомление unexpected token ','. Почему это происходит? Если я удаляю ,, я получаю:

Error in shinysession$registerDownload: argument "content" is missing, with no default

, и если я оставляю его, приложение вообще не работает.

require(shiny)
require(sp)
require(rgdal)
Sys.setenv("R_ZIPCMD" = "C:/Rtools/bin/zip.exe")

runApp(
  list(
    ui = bootstrapPage(
      fileInput('inputdata', 'Input file',accept=c('.csv')),
      selectInput("select", label = "Choose a dataset", 
                  choices = c("Tree" , "Crowns"), 
                  selected = "Tree"),
      downloadButton('downloadShp', 'DownloadSHP')
    ),
    server = function(input, output) {

      createShp <- reactive({
        myXY <- input$inputdata
        if (is.null(myXY)){
          return(NULL)      
        } else {
          xyPoints <- read.table(myXY$datapath, sep=",", header=T)

          SHP <- SpatialPointsDataFrame(coords= cbind(xyPoints[,1:2]), data =  xyPoints)
          proj4string(SHP) <- CRS("+init=epsg:4326")
          return(SHP)
        }
      })

      output$downloadShp <- downloadHandler(
        if(input$select=="Tree"){
        filename = function() { paste0("shpExport.zip") }, #paste('shpExport.zip',
        content = function(file) {
          if (length(Sys.glob("shpExport.*"))>0){
            file.remove(Sys.glob("shpExport.*"))
          }
          writeOGR(createShp(), dsn="shpExport.shp", layer="shpExport", driver="ESRI Shapefile")
          zip(zipfile='shpExport.zip', files=Sys.glob("shpExport.*"),zip = Sys.getenv("R_ZIPCMD", "zip"))
          file.copy("shpExport.zip", file)
          if (length(Sys.glob("shpExport.*"))>0){
            file.remove(Sys.glob("shpExport.*"))
          }
        }
        }
        else{
          filename = function() { paste0("shpExport2.zip") }, #paste('shpExport.zip',
          content = function(file) {
            if (length(Sys.glob("shpExport2.*"))>0){
              file.remove(Sys.glob("shpExport2.*"))
            }
            writeOGR(createShp(), dsn="shpExport2.shp", layer="shpExport2", driver="ESRI Shapefile")
            zip(zipfile='shpExport2.zip', files=Sys.glob("shpExport2.*"),zip = Sys.getenv("R_ZIPCMD", "zip"))
            file.copy("shpExport2.zip", file)
            if (length(Sys.glob("shpExport2.*"))>0){
              file.remove(Sys.glob("shpExport2.*"))
            }
          } 
        }
      )

    }) 
)

Answer 1

downloadHandler является функцией, поэтому ее аргументы должны быть фактическими аргументами. Вы не можете сделать

downloadHandler(
  if (condexpr) {
    filename = ...,
    content = ...
  } else {
    filename = ...,
    content = ...
  }
)

, это просто недопустимый синтаксис R.

Вместо этого что-то вроде

downloadHandler(
  filename = if (condexpr) func1 else func2,
  content = if (condexpr) ... else ...
)

или

downloadHandler(
  filename = function() if (condexpr) expr1 else expr2,
  content = function(file) if (condexpr) expr1 else expr2
)

А так как ?downloadHandler состояний

Реактивные значения и функции могут использоваться из этой функции

для обоих аргументов filename= и content=, вы все равно можете использовать (input$select=="Tree") в качестве условного.