RShiny 下载 html 文件而不是 csv 文件

如何解决RShiny 下载 html 文件而不是 csv 文件

我正在尝试将 dtaframe 下载为 csv 文件，但是当我按下下载按钮时，我想出了一个 html 文件。你能帮我下载一个csv文件吗？我的代码在下面

谢谢

用户界面：

downloadButton(outputId = "clean_download",label = "Download cleaned data")

服务器：

output$clean_download <- downloadHandler(
    filename =  function() {
      paste('clean_data.csv',sep='')
    },content = function(filename) {
     write.csv(as.data.frame(train_cleaned()),filename,row.names=FALSE)
      
    } 
  )