hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove new setupMuso features

Browse Source
This commit is contained in:
Hollos Roland 2019-12-16 14:34:03 +01:00
parent 519b2e7716
commit b0b74ea5d9
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
RBBGCMuso/R/setupMuso.R
View File

@ -295,26 +295,26 @@ setupMuso <- function(executable=NULL,
annualVarCodes = gsub("\\s.*","",annualVarCodes)
)
if(getOption("RMuso_version")==6){
manFile <- scan(iniInput[2],what="",n=1,skip=44,sep=" ") # HARDCODED -> UNTIL JSON VERSION
mgm <- readLines(manFile)
mgmConn <- file(manFile,open="r")
manTypes <- c("planting","thinning","mowing","grazing","harvesting","ploughing","fertilizing","irrigating")
mgmFiles <- rep("none",length(manTypes))
if(scan(mgmConn,skip=3,n=1,what=integer())==1){
mgmFiles[1] <- scan(mgmConn,skip=1,n=1,what="", sep = " ")
}
for(i in 2:length(mgmFiles)){
if(scan(mgmConn,skip=2,n=1,what=integer())==1){
mgmFiles[i] <- scan(mgmConn,skip=1,n=1,what="", sep =" " )
} else {
blackhole<-scan(mgmConn,skip =1, n=1,what="")
}
}
names(mgmFiles) <- manTypes
settings[["management"]] <- mgmFiles
close(manConn)
}
# if(getOption("RMuso_version")==6){
# manFile <- scan(iniInput[2],what="",n=1,skip=44,sep=" ") # HARDCODED -> UNTIL JSON VERSION
# mgm <- readLines(manFile)
# mgmConn <- file(manFile,open="r")
# manTypes <- c("planting","thinning","mowing","grazing","harvesting","ploughing","fertilizing","irrigating")
# mgmFiles <- rep("none",length(manTypes))
# if(scan(mgmConn,skip=3,n=1,what=integer())==1){
# mgmFiles[1] <- scan(mgmConn,skip=1,n=1,what="", sep = " ")
# }
# for(i in 2:length(mgmFiles)){
# if(scan(mgmConn,skip=2,n=1,what=integer())==1){
# mgmFiles[i] <- scan(mgmConn,skip=1,n=1,what="", sep =" " )
# } else {
# blackhole<-scan(mgmConn,skip =1, n=1,what="")
# }
# }
# names(mgmFiles) <- manTypes
# settings[["management"]] <- mgmFiles
# close(manConn)
# }
# if(writep!=nrow(grepHelper)){