#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.