dickoa

library(popdata)
library(unhcrthemes)
library(tidyverse)
library(janitor)

### Most function use "pd_" prefix
### "pd" stands for PopData

### Log into popdata
# pd_login()

dickoa

#' @noRd
repeat_to_df <- function(x, form) {
  nm <- unique(form$name[form$type %in% "begin_repeat"])
  nm <- intersect(names(x), nm)
  if (length(nm) > 0) {
    x <- lapply(nm, function(n) {
      res <- x[[n]]
      res <- res[vapply(res, is.data.frame, logical(1))]
      res <- rbindlist(res, fill = TRUE)

dickoa

remotes::install_github("dickoa/unhcrthemes") 

library(unhcrthemes)
library(ggplot2)
library(ragg)

### checking scale_color
ggplot(iris, aes(x = Petal.Length, y = Petal.Width, color = Species)) +
  geom_point() +
  scale_color_unhcr_d(palette = "pal_main_qual") +

dickoa

dickoa

{
  "name": "hno_ukr",
  "title": "Ukraine: Humanitarian Needs Overview",
  "type": "cookbook",
  "columns": [
    "#inneed",
    "#affected",
    "#loc",
    "#country"
  ],

dickoa

{
    "name": "hno_sector_drc",
    "title": "Humanitarian Needs Overview for DRC",
    "type": "cookbook",
    "columns": [
	"#inneed",
	"#sector"
    ],
    "recipes": [
	{

dickoa

{
    "name": "hno_sector",
    "title": "Humanitarian Needs Overview",
    "type": "cookbook",
    "columns": [
	"#inneed",
	"#region",
	"#country",
	"#adm1",
	"#sector"

dickoa

{
  "name": "hrp",
  "title": "Humanitarian Responses Plan",
  "type": "cookbook",
  "columns": [
    "#targeted",
    "#region",
    "#country",
    "#adm1"
  ],

dickoa

Keybase proof

I hereby claim:

• I am dickoa on github.
• I am dickoa (https://keybase.io/dickoa) on keybase.
• I have a public key whose fingerprint is 188B 5A3A C523 96A3 1BED AAA6 D4F1 DBD4 6340 C474

To claim this, I am signing this object:

dickoa

library(dplyr)
library(RPostgres)

mydb <- src_postgres(dbname = "yourdb"
                     user = "user",
                     password = "password",
                     host = "localhost",
                     port = 5432L)