R/wide2long.R

In tadhg-moore/gotmtools: Tools to work with GOTM input data and also process the output data

#' Converts wide data to long data
#'
#' Convert a dataframe in wide format to long format.
#'
#' @param data dataframe; values loaded with load.3d
#' @param depths dataframe; depths loaded with load.depths
#' @return dataframe in the same format as the observation file
#' @export
wide2long <- function(data, depths){
  tim = rep(data[,1], (ncol(data)-1))
  tim = tim[order(tim)]
  deps = c()
  tmp = c()
  pb = txtProgressBar(min = 0, max = nrow(data), style = 3)
  nc = 2:ncol(data)
  for(i in 1:nrow(data)){
    deps = append(deps, as.numeric(depths[i,nc]))
    tmp = append(tmp, as.numeric(data[i,nc]))
    setTxtProgressBar(pb, i)
  }
  close(pb)
  df = data.frame(date = tim, depths = deps, temp = tmp)
  return(df)
}