R/write_hbv_disc.R

In NVE/hongR:

#' writeHBV_disc.R
#'
#' This function write the HBV format discharge data.
#' @param fileName file to write.

#' @keywords data
#' @export
#' @examples
#' writeHBV_disc(DataZoo, fileName =  "data/discharge_data.txt")

write_hbv_disc <- function(DataZoo, fileName) {
	if ( ! require(zoo) )        { install.packages("zoo");        library(zoo) }
	#print(fileName)
	if (is.null(dim(DataZoo)) == TRUE) {
		dim(DataZoo) <- c(length(DataZoo), 1)
	} 
 	rownames(DataZoo) <- format(time(DataZoo), "%Y%m%d/%H%M")
	write.table(DataZoo, file = fileName, col.names = FALSE, row.names = TRUE, quote = FALSE, sep = "\t")
}