R/append.new.HOBO.file.R

In rosalieb/rhobo: Quality control assistant for HOBO data

#' @title Combine previous HOBO file with new HOBO file
#' 
#' @description Takes the previously QC'd HOBO file and append the new dataset.
#' 
#' @author Rosalie Bruel
#' 
#' @export
#' @param newfile data frame of new HOBO dataset that need to be appended to the old one. "datetime" format has been formated within the read.hobo() function.
#' @param file2append data frame of old HOBO dataset the new HOBO data frame will be appended to. The "datetime" format is formated within the current function.
#' @param ind_init index of when to start correcting the measurements
#' @param ind_end index of when to stop correcting the measurements
#' @param CF_init correction factor at the beginning
#' @param TM_init Time measurement initialization : when probes are back in the lakes
#' @param CF_end correction factor at the end
#' @param TM_end Time measurement end: when probes are taken out of the lakes
#' @keywords planaqua
#' @keywords hobo

append.new.HOBO.file <- function(newfile,file2append,CF_init=1,TM_init,CF_end=1,TM_end){
  
  tmplac <- newfile
  file2append$datetime <- as.POSIXct(file2append$datetime, format = "%Y-%m-%d %H:%M:%S", tz="GMT")
  
    index = (tmplac$datetime- TM_init)[(tmplac$datetime- TM_init)<=0]
  ind_init = which(index == max(index))
    index = (tmplac$datetime- TM_end)[(tmplac$datetime- TM_end)<=0]
  ind_end = which(index == max(index))
  
  tmplac[,c('p')] <- NA
  tmplac=interp.p(tmplac,ind_init,ind_end,CF_init,CF_end)
  tmplac$do.obs=tmplac$do.raw*tmplac$p
  
  file2append <- rbind(file2append,tmplac[ind_init:ind_end,])
  
  return(file2append) 
}