This function adds a progress bar to animation frames created with frames_spatial.

add_progress(frames, colour = "grey", size = 1.8, verbose = TRUE)

Arguments

frames

list of ggplot2 objects, crated with frames_spatial.

colour

character, progress bar colour.

size

numeric, progress bar line size..

verbose

logical, if TRUE, messages and progress information are displayed on the console (default).

Value

List of frames.

See also

Examples

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]]

# \donttest{
frames <- frames_spatial(m, r_list = r_list, r_times = r_times, r_type = "gradient",
                         fade_raster = TRUE)

# add a progress bar:
frames.a <- add_progress(frames)
frames.a[[100]]

# or in red and larger
frames.b <- add_progress(frames, colour = "red", size = 2.5)
frames.b[[100]]
# }