R/zoo2swmm_ts.R

In NVE/hongR:

#' zoo2swmm_ts
#'
#' This function write a zoo object to a swmm time series format
#' @param zoo the object 
#' @param file to write.
#' @keywords data
#' @export
zoo2swmm_ts <- function(zoo = precipitation, file = "prec.txt") {
  time_str <-  format(time(zoo), "%m/%d/%Y %H:%M:%S")
  value_str <- sprintf("%.2f", as.numeric(zoo))
  write_str <- data.frame(time = time_str, value = value_str)
  write.table(write_str, file, col.names = FALSE, row.names = FALSE, sep = "\t", quote = FALSE)
}