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