# NOT RUN {
library(moveVis)
library(move)
data("move_data", "basemap_data")
m <- align_move(move_data, res = 4, unit = "mins")
# create spatial frames using a custom NDVI base layer
r_list <- basemap_data[[1]]
r_times <- basemap_data[[2]]
# }
# NOT RUN {
frames <- frames_spatial(m, r_list = r_list, r_times = r_times, r_type = "gradient",
fade_raster = TRUE)
# add labels to frames:
frames <- add_labels(frames, title = "Example animation using moveVis::add_labels()",
subtitle = "Adding a subtitle to frames created using frames_spatial()",
caption = "Projection: Geographical, WGS84. Sources: moveVis examples.",
x = "Longitude", y = "Latitude")
# have a look at one frame
frames[[100]]
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab