无法使用“保存为”函数以保存生成的.CSV文件并将其编译为Windows OS上的zip文件

发布于 2025-02-13 12:36:09 字数 1385 浏览 1 评论 0原文

我遇到问题，使该代码正常工作。

当我单击ShinyApp中的“结果表”按钮时，生成的文件最终位于我的app.r文件所在的同一文件夹中。出现保存作为函数的保存，但事实证明该函数已过时。该功能在Linux上起作用，但在Windows上不起作用，我无法弄清楚其背后的原因。

这是一个小故障吗？如果是这样，还有另一种编写代码在Windows上解决此问题的方法吗？

有人告诉我这是窗户上的小故障，但是那是一段时间，我想检查是否有更好的方法编写代码以使其正常工作。

代码：

#Download Results tables
output$downloadTable <- downloadHandler(
options(scipen = 999),
filename = function(){
"chromosome_count_tables.zip"
},
content = function(file){
compare_tbl_list <- compare_all(files = dataPlotInputBAMSegment(),
ref = ReferenceInputBAMSegment(), window = T,
per = T, compare_from_normal = FALSE)

  segment_plot_tbl_all <- segment_tbl_create_all(compare_tbl_list)
  segment_annotation_tbl_all <- segment_annotation_tbl_create_all(segment_plot_tbl_all)
  segment_annotation_tbl_all <- change_color_all(segment_annotation_tbl_all)

  final_tbl_all <- show_table_all(files = segment_plot_tbl_all, annotation_files = segment_annotation_tbl_all)

  files <- NULL;

  #loop through the sheets
  for (i in 1:length(final_tbl_all)){
    #write each sheet to a csv file, save the name
    fileName <- paste(input$fileBAMSegment[i,1],"_",i,".csv",sep = "")
    write.csv(final_tbl_all[i],fileName,row.names = F)
    files <- c(fileName,files)
  }
  #create the zip file
  system2("zip", args=(paste(file,files,sep=" ")))
}

原文

I am having issues getting this code to work properly.

When i click on the save "results table" button in my ShinyApp, the files generated ended up in the same folder where my app.R files is located. The save as function appears , but it turns out that that function is obsolete. This function worked on Linux but not on Windows and I couldnt figure out the reason behind this.

Is this a glitch and if so , is there another way of writing the code to fix this issue on Windows?

I was being told that it is a glitch on Windows but it was a while back and I would want to check if there is a better way to write the code to get it to work properly.

Code:

#Download Results tables
output$downloadTable <- downloadHandler(
options(scipen = 999),
filename = function(){
"chromosome_count_tables.zip"
},
content = function(file){
compare_tbl_list <- compare_all(files = dataPlotInputBAMSegment(),
ref = ReferenceInputBAMSegment(), window = T,
per = T, compare_from_normal = FALSE)

  segment_plot_tbl_all <- segment_tbl_create_all(compare_tbl_list)
  segment_annotation_tbl_all <- segment_annotation_tbl_create_all(segment_plot_tbl_all)
  segment_annotation_tbl_all <- change_color_all(segment_annotation_tbl_all)

  final_tbl_all <- show_table_all(files = segment_plot_tbl_all, annotation_files = segment_annotation_tbl_all)

  files <- NULL;

  #loop through the sheets
  for (i in 1:length(final_tbl_all)){
    #write each sheet to a csv file, save the name
    fileName <- paste(input$fileBAMSegment[i,1],"_",i,".csv",sep = "")
    write.csv(final_tbl_all[i],fileName,row.names = F)
    files <- c(fileName,files)
  }
  #create the zip file
  system2("zip", args=(paste(file,files,sep=" ")))
}

分享到QQ

分享到微博