require(move)
loginStored = movebankLogin(username = "Diego_Ellis", password = "")
all_studies <- getMovebank(entity_type = "study", login=loginStored)
dim(all_studies)
head(all_studies$name)

library(ggplot2)
world <- map_data("world")

ggplot() +
 geom_polygon(data = world,
              fill = "grey38",
              aes(x = long, y = lat, group = group)) +
 geom_point(data = all_studies,
            aes(x = main_location_long, y = main_location_lat, color = as.factor(there_are_data_which_i_cannot_see))) +
 scale_color_discrete(guide = guide_legend(title = "Data Restrictions"))

getMovebank("tag_type", loginStored)
getMovebank("study", loginStored)

searchMovebankStudies(x="coyote", login=loginStored)

head(searchMovebankStudies(x="oose", loginStored))

head(searchMovebankStudies(x="bird", login = loginStored))


ID <- getMovebankID(study = "Black-backed jackal, Etosha National Park, Namibia", login=loginStored)
head(getMovebankAnimals(study = ID, login = loginStored))

# be patient
jackals <- getMovebankData(study = "Black-backed jackal, Etosha National Park, Namibia", login = loginStored, removeDuplicatedTimestamps = TRUE)

idData <- jackals@idData
jackal_movement <- jackals@data
jackal_id_movement <- jackals@trackId
jackal_movement$local_identifier <- jackal_id_movement
str(jackal_movement)

jackal_movement <- read.table(file = "black-backed-jackal-Namibia.csv", header=T, sep=",")

library(tidyverse)
library(ggmap)

jackal_box <- make_bbox(lon = location_long, lat = location_lat, data=jackal_movement, f= 0.1)
jackal_map <- get_map(location = jackal_box, source = 'google', maptype = 'terrain')
# ggmap(jackal_map) + geom_point(data=jackal_movement, aes(x=location_long, y=location_lat))

ggmap(jackal_map) + geom_point(data=jackal_movement, aes(x=location_long, y=location_lat, color=local_identifier), alpha = 0.5)