#' writeHBV_metinput.R
#'
#' This function write the HBV format input met data.
#' @param DataZoo data to write, row names are time stamps 20171102/1200
#' @param fileName file to write.
#'
#' @keywords data
#' @export
#' @examples
#' writeHBV_metinput()
writeHBV_metinput <- function(DataZoo, fileName = "data/input_data.txt") {
if ( ! require(zoo) ) { install.packages("zoo"); library(zoo) }
print(fileName)
write.table(t(c("Time", names(DataZoo))),
file = fileName, append = FALSE, quote = FALSE, row.names = FALSE, col.names = FALSE, sep = "\t")
write.table(round(DataZoo, digits = 3),
file = fileName, col.names = TRUE, row.names = TRUE, append = TRUE, quote = FALSE, sep = "\t")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.