#' write_hbv_landscape
#' this function writes a list landscape to a file landscape_file
#' @param landscape
#' @param landscpe_file
#' @export
write_hbv_landscape <- function(landscape = landscape, landscape_file = landscape_file) {
# landscape <- list(ncols = 10, nrows = 10, xllcorner = 100, yllcorner = 100, cellsize = 1, NODATA_value = -9999, numberofelements = 1000, landscape_info = data.frame())
write.table(sprintf("ncols %d", landscape$ncols), file = landscape_file, append = FALSE, quote = FALSE, col.names = FALSE, row.names = FALSE)
write.table(sprintf("nrows %d", landscape$nrows), file = landscape_file, append = TRUE, quote = FALSE, col.names = FALSE, row.names = FALSE)
write.table(sprintf("xllcorner %.3f", landscape$xllcorner), file = landscape_file, append = TRUE, quote = FALSE, col.names = FALSE, row.names = FALSE)
write.table(sprintf("yllcorner %.3f", landscape$yllcorner), file = landscape_file, append = TRUE, quote = FALSE, col.names = FALSE, row.names = FALSE)
write.table(sprintf("cellsize %d", landscape$cellsize), file = landscape_file, append = TRUE, quote = FALSE, col.names = FALSE, row.names = FALSE)
write.table(sprintf("NODATA_value %d", landscape$NODATA_value), file = landscape_file, append = TRUE, quote = FALSE, col.names = FALSE, row.names = FALSE)
write.table(sprintf("# Number of landscape elements : %d", landscape$numberofelements), file = landscape_file, append = TRUE, quote = FALSE, col.names = FALSE, row.names = FALSE)
write.table(landscape$landscape_info, file = landscape_file, append = TRUE, quote = FALSE, col.names = FALSE, row.names = FALSE, sep = " ")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.