Как скачать временную шкалу из блестящего приложения

Question

Моя временная шкала timevis сохраняется внутри объекта, называемого tv, и я хочу дать пользователю возможность загрузить временную шкалу в формате .png / .pdf или .html. Я получил это за пределами блестящего, но когда я пытаюсь получить блестящий, я получаю следующую ошибку: Ошибка в ==: сравнение (1) возможно только для атомарных и списочных типов. Я попытался с "pdf" и pdf, но ни один не работал

Мой код:

      datasetInput <- reactive({
        switch(input$dataset,
               "html" = html,
               "png" = png,
               "pdf" = pdf)
      })


# gives error: comparison (1) is possible only for atomic and list types
      # output$downloadData <- downloadHandler(
      #   if(datasetInput == "png"){
      #     tv %>%
      #       htmltools::html_print() %>%
      #       webshot::webshot(file = paste(name, filetype, sep="."))
      #   }else if(datasetInput == "pdf"){
      # 
      #   }else{
      #       
      #   }
      # 
      # )

Любая помощь будет принята с благодарностью! Спасибо