在Shiny中是否有用于只读(不包括上载)的R函数?

在Shiny中是否有用于只读(不包括上载)的R函数?,r,shiny,large-data,large-files,shinyapps,R,Shiny,Large Data,Large Files,Shinyapps,我有一个DAT文件大小>5 GB,包含>41百万行。为了使它在某些软件中可执行,我需要在打印之前通过一些操作将其转换为CSV。由于大小的原因,不可能在MS Excel中很好地完成它。所以我更喜欢在结尾使用RStudio 我已经尝试过在Rmd空间中编码,并且成功了。但我的同事们也有同样的问题,所以我开始在Shiny中部署代码,以便他们不安装R和RStudio,而只是访问我应该创建的某个Shiny应用程序 这些代码完全有效。我只是把它们放在Rmd里 data <- read.table("xx

我有一个DAT文件大小>5 GB,包含>41百万行。为了使它在某些软件中可执行,我需要在打印之前通过一些操作将其转换为CSV。由于大小的原因,不可能在MS Excel中很好地完成它。所以我更喜欢在结尾使用RStudio

我已经尝试过在Rmd空间中编码,并且成功了。但我的同事们也有同样的问题,所以我开始在Shiny中部署代码,以便他们不安装R和RStudio,而只是访问我应该创建的某个Shiny应用程序

这些代码完全有效。我只是把它们放在Rmd里

data <- read.table("xxx.dat")
uniq <- unique(data[,3])
df <- data.frame(uniq)
library(stringr)
data$V9 <- str_replace_all(data$V8,"-","0") 
uniq <- as.character(uniq)

for(i in 1:nrow(df)){
  aa <- ifelse(nchar(uniq[i])==7,paste(substr(uniq[i],1,4),substr(uniq[i],6,7),sep=""),paste(substr(uniq[i],1,5),substr(uniq[i],7,8),sep=""))
  write.table(data.frame(filter(data,V3==df[i,1]))[,c(6,7,9)],sprintf('%s.csv',aa),row.names=FALSE,col.names=FALSE,sep=",")

}


可能重复的数据不相同。您共享的链接完全适用于小文件,但我使用大于5 GB的文件。这之前也有人问过:此外,请阅读-默认情况下,Shiny将文件上载限制为每个文件5 MB。您可以使用
shinny.maxRequestSize
选项修改此限制。例如,将
选项(shinny.maxRequestSize=30*1024^2)
添加到app.R的顶部会将限制增加到30MB。谢谢。坦白说,我已经读过了。顺便问一下,是否有可能只阅读(不上传)闪亮?可能重复的不一样。您共享的链接完全适用于小文件,但我使用大于5 GB的文件。这之前也有人问过:此外,请阅读-默认情况下,Shiny将文件上载限制为每个文件5 MB。您可以使用
shinny.maxRequestSize
选项修改此限制。例如,将
选项(shinny.maxRequestSize=30*1024^2)
添加到app.R的顶部会将限制增加到30MB。谢谢。坦白说,我已经读过了。顺便问一下,是否有可能只阅读它(不上传)在闪亮?