Nothing
## ----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")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.