# \donttest{
files <- read_fb_mobility_files(
path_to_csvs = paste0(system.file("extdata",
package = "quadkeyr"
), "/"),
colnames = c(
"lat", "lon",
"quadkey", "date_time",
"n_crisis", "percent_change"
),
coltypes = list(
lat = "d",
lon = "d",
quadkey = "c",
date_time = "T",
n_crisis = "c",
percent_change = "c"
)
)
# Get a regular grid and create the polygons
regular_grid <- get_regular_polygon_grid(data = files)
# Keep only the QuadKeys reported
files_polygons <- files |>
dplyr::inner_join(regular_grid$data,
by = c("quadkey")
)
# Generate the raster files
polygon_to_raster(
data = files_polygons,
nx = regular_grid$num_cols,
ny = regular_grid$num_rows,
template = files_polygons,
var = "percent_change",
filename = "cityA",
path = paste0(
system.file("extdata",
package = "quadkeyr"
),
"/"
)
)
# }
Run the code above in your browser using DataLab