remotes::install_gitlab("dickoa/rhxl") ## rhdx dependency
remotes::install_gitlab("dickoa/rhdx") ## github mirror also avalailable
install.packages("gifski")
library(tidyverse)
library(sf)
library(rhdx)
library(gganimate)
set_rhdx_config()
wca <- pull_dataset("west-and-central-africa-administrative-boundaries-levels") %>%
get_resource(1) %>%
read_resource(folder = "/data")
reading layer: wca_adm0
glimpse(wca)
g5_ab <- wca %>%
filter(admin0Pcod %in% c("BF", "ML", "NE", "MR", "TD"))
g5_ab %>%
ggplot() +
geom_sf() +
theme_minimal()
solr_query <- "organization:acled AND groups:(mli OR bfa OR tcd OR mrt OR ner)"
g5_acled <- search_datasets(query = "conflict data",
fq = solr_query)
g5_acled <- g5_acled[1:5] ## pick the first 5 the 6th is the Africa wide dataset
create a helper function to read resources from each dataset
read_acled_data <- function(dataset) {
dataset %>%
get_resource(1) %>%
read_resource(force_download = TRUE)
}
g5_acled_data <- map_df(g5_acled, read_acled_data)
remotes::install_gitlab("dickoa/rhxl") ## rhdx dependency
remotes::install_gitlab("dickoa/rhdx") ## github mirror also avalailable
install.packages("gifski")
library(tidyverse)
library(sf)
library(rhdx)
library(gganimate)
set_rhdx_config()
wca <- pull_dataset("west-and-central-africa-administrative-boundaries-levels") %>%
get_resource(1) %>%
read_resource(folder = "/data")
reading layer: wca_adm0
glimpse(wca)
g5_ab <- wca %>%
filter(admin0Pcod %in% c("BF", "ML", "NE", "MR", "TD"))
g5_ab %>%
ggplot() +
geom_sf() +
theme_minimal()
solr_query <- "organization:acled AND groups:(mli OR bfa OR tcd OR mrt OR ner)"
g5_acled <- search_datasets(query = "conflict data",
fq = solr_query)
g5_acled <- g5_acled[1:5] ## pick the first 5 the 6th is the Africa wide dataset
create a helper function to read resources from each dataset
read_acled_data <- function(dataset) {
dataset %>%
get_resource(1) %>%
read_resource(force_download = TRUE)
}
g5_acled_data <- map_df(g5_acled, read_acled_data)