## ----setup, include = FALSE---------------------------------------------------

options(rmarkdown.html_vignette.check_title = FALSE)

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>", 
  eval = F
)


## ----libraries, message=FALSE, warning=FALSE----------------------------------
# library(anipaths)
# library(tidyverse)
# library(magrittr)

## ----subset-------------------------------------------------------------------
# vultures %<>%
#   mutate(POSIX = as.POSIXct(timestamp, tz = "UTC"))
# 
# vultures_spring11 <- vultures %>%
#   filter(POSIX > as.POSIXct("2011-04-05", origin = "1970-01-01") &
#            POSIX < as.POSIXct("2011-05-05", origin = "1970-01-01")
#          &
#            (individual.local.identifier %in%
#            c('Argentina', 'Domingo', 'La Pampa', 'Whitey', 'Young Luro'))
#   )

## ----crawl with tails---------------------------------------------------------
# animate_paths(paths = vultures_spring11,
#               delta.t = "day",
#               coord = c("location.long", "location.lat"),
#               Time.name = "POSIX",
#               ID.name = "individual.local.identifier",
#               interpolation_type = "crawl",
#               simulation = TRUE)

## ----crawl with tails hi res--------------------------------------------------
# animate_paths(paths = vultures_spring11,
#               delta.t = 3600 * 4,
#               coord = c("location.long", "location.lat"),
#               Time.name = "POSIX",
#               ID.name = "individual.local.identifier",
#               interpolation_type = "crawl",
#               simulation = TRUE)

## ----blur---------------------------------------------------------------------
# animate_paths(paths = vultures_spring11,
#               delta.t = 3600 * 6,
#               coord = c("location.long", "location.lat"),
#               Time.name = "POSIX",
#               ID.name = "individual.local.identifier",
#               interpolation_type = "crawl",
#               crawl.plot.type = "blur.tail")

## ----make background----------------------------------------------------------
# background <- list(center = c(-70, -20),
#                    zoom = 4,
#                    maptype = "satellite")

## ----use background-----------------------------------------------------------
# library(ggmap)
# animate_paths(paths = vultures_spring11,
#               delta.t = 3600 * 6,
#               coord = c("location.long", "location.lat"),
#               Time.name = "POSIX",
#               ID.name = "individual.local.identifier",
#               background = background,
#               interpolation_type = "crawl", simulation = TRUE)

## ----Whitney subset-----------------------------------------------------------
# vultures_Whitey <- vultures_spring11 %>%
#   filter(individual.local.identifier == "Whitey")

## ----single path--------------------------------------------------------------
# animate_paths(paths = vultures_Whitey,
#               delta.t = 3600 * 4,
#               coord = c("location.long", "location.lat"),
#               Time.name = "POSIX",
#               ID.name = "individual.local.identifier",
#               interpolation_type = "crawl", background = T,
#               simulation = TRUE, main = "Whitey")

## ----remove files, include = F------------------------------------------------
# system("rm -r js; rm -r css; rm -r images; rm index.html")