tests/testthat/test_plot_polygon.R

In psyosphere: Analyse GPS Data

cat("\nTesting plot_polygon()\n")

# lon <- c(6.849975, 6.849627, 6.850001, 6.850350, 6.849975)
# lat <- c(52.241745, 52.241100, 52.241004, 52.241649, 52.241745)
# polygon <- data.frame(lon, lat)
# remove(lon, lat)
#
# plot <- psyosphere::plot_polygon(polygon)
# plot
#
# # Check results
# if (!ggplot2::is.ggplot(plot)) {
#   stop("plot is not a ggplot variable")
# }