fire182 | R Documentation |
A shapefile of fires in 2018 occurring in Big Cypress National Preserve and Everglades National Park
fire182
A shapefile of fires in 2018 in Big Cypress National Preserve and Everglades National Park
## Not run: summary(fire182) ### if crs check is desirable # edenDat <- getEDEN() # fireDat <- getFireHydro(EDEN_date = edenDat$date, # EDEN_GIS_directory = edenDat$data) ### to create: fireShps <- grep(x = list.files("C:/ESRIDATA/fireHydro/fire_history_recd_2019", recursive = TRUE, full.names = TRUE), pattern = "shp$", value = TRUE) layers_2017 <- grep(x = fireShps, pattern = "_2017|CY_17_ALL", value = TRUE) layers_2018 <- grep(x = fireShps, pattern = "_2018|CY_18", value = TRUE) layers_2019 <- grep(x = fireShps, pattern = "/2019/|/2019_2/", value = TRUE) fire17 <- lapply(layers_2017, st_read, stringsAsFactors = FALSE) fire18 <- lapply(layers_2018, st_read, stringsAsFactors = FALSE) fire19 <- lapply(layers_2019, st_read, stringsAsFactors = FALSE) lapply(fire17, sf::st_transform, "+proj=utm +zone=17 +datum=NAD83 +units=m +no_defs") lapply(fire18, sf::st_transform, "+proj=utm +zone=17 +datum=NAD83 +units=m +no_defs") # works as long as crs of fire19[[1]] == "+proj=utm +zone=17 +datum=NAD83 +units=m +no_defs" fire19[[2]] <- sf::st_transform(x = fire19[[2]], crs = sf::st_crs(fire19[[1]])) names17 <- names(fire17[[1]])[names(fire17[[1]]) %in% names(fire17[[2]])] union17 <- rbind(fire17[[1]][, names17], fire17[[2]][, names17]) names18 <- names(fire18[[1]])[names(fire18[[1]]) %in% names(fire18[[2]])] union18 <- rbind(fire18[[1]][, names18], fire18[[2]][, names18]) names19 <- names(fire19[[1]])[names(fire19[[1]]) %in% names(fire19[[2]])] union19 <- rbind(fire19[[1]][, names19], fire19[[2]][, names19]) fire172 <- sf::st_buffer(fire17, dist = 0) fire182 <- sf::st_buffer(fire18, dist = 0) fire192 <- sf::st_buffer(fire19, dist = 0) fire172 <- sf::st_transform(fire172, sf::st_crs(fireHydro::edenDEM)) fire182 <- sf::st_transform(fire182, sf::st_crs(fireHydro::edenDEM)) fire192 <- sf::st_transform(fire192, sf::st_crs(fireHydro::edenDEM)) save("fire172", "fire182", "fire192", file = "data/burnHistory.RData") ## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.