У меня есть файл DAT размером> 5 ГБ и содержащий> 41 миллион строк. Чтобы сделать его исполняемым в определенном программном обеспечении, мне нужно преобразовать его в CSV с помощью некоторых манипуляций, конечно, перед печатью. Из-за размера невозможно сделать это хорошо в MS Excel. Поэтому я предпочитаю использовать RStudio в конце.
Я уже пробовал просто кодировать в пространстве Rmd и преуспел. Но у моих коллег та же проблема, поэтому я инициировал развертывание кода в Shiny, чтобы позволить им не устанавливать R и RStudio, а просто получить доступ к определенному блестящему приложению, которое я должен был создать.
это коды, которые полностью сработали. Я просто положил их в 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=",")
}
я ожидал создать его в Shiny, чтобы мои друзья могли использовать его без установки R и RStudio. В блестящей странице я просто хотел поместить 3 части;
- ActionButton для просмотра файла, который я хочу преобразовать (включая имя файла)
- ActionButton для просмотра места назначения, в которое я бы поместил файл, который я преобразовал (каталог)
- ActionButton, чтобы преобразовать его
Кто-нибудь может мне помочь, пожалуйста
shiny.maxRequestSize
. Например, добавлениеoptions(shiny.maxRequestSize = 30*1024^2)
в начало app.R увеличит ограничение до 30 МБ. - person ismirsehregal   schedule 21.05.2019