for (var in vars) {
# var_1 <- rlang::enquo(var)
p <- ggplot(data = target_gridcells_with_landcover) + geom_sf(aes(fill = !!sym(var)))
ggsave( p, filename = str_c( 'DIR', var, '.jpg' ), width = 8, height = 8, dpi = 300 ) }
for (var in vars) {
# var_1 <- rlang::enquo(var)
p <- ggplot(data = target_gridcells_with_landcover) + geom_sf(aes(fill = !!sym(var)))
ggsave( p, filename = str_c( 'DIR', var, '.jpg' ), width = 8, height = 8, dpi = 300 ) }