如何从闪亮的应用程序下载timevis时间线

Question

我的timevis时间线保存在一个名为tv的对象中，然后我想让用户将时间线下载为.png / .pdf或.html。我在Shiny之外进行了此工作，但是当我尝试使其闪亮时，出现以下错误：==：比较（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{
      #       
      #   }
      # 
      # )

任何帮助将不胜感激！谢谢