# NOT RUN {
# Merges two small example .asc files of LIDAR data
# from https://environment.data.gov.uk (open government licence)
path_to_files <- system.file("extdata/example_asc", package = "geoviz")
path_to_output <- tempdir()
mosaic_files(path_to_files,
raster_output_file = paste0(path_to_output, '/mosaic_out.raster', sep = ''),
extract_zip = TRUE, file_crs = "+init=epsg:27700")
raster_mosaic <- raster::raster(paste0(path_to_output, '/mosaic_out.gri', sep = ''))
# }
Run the code above in your browser using DataLab