R/tdebug.R

In BioCro: Simulation of Biomass Crops

## Temporary function to debug soil model

tf <- function(x,layers){

  ltmp <- 3
  ans <- numeric(5e4)
  count <- 1
  tmp2 <- 0
  tmp <- capture.output(x)
  tmp1 <- lapply(tmp,function(x) strsplit(x," "))
  ## Start loop
  for(i in 1:5e4){
    ltmp <- length(unlist(tryCatch(tmp1[[i]], error=function(err) return(0))))
    if(ltmp < 2){
      break
    }else{
      tmp2 <- tmp2 + as.double(unlist(tmp1[[i]])[2])
      if(i %% layers == 0){
        ans[count] <- tmp2
        tmp2 <- 0
        count <- count + 1
      }

    }
  }
  ans[1:count]
}