giocomai

# https://en.wikipedia.org/wiki/List_of_Academy_Award-winning_films

library("dplyr", warn.conflicts = FALSE)
library("tidywikidatar")
library("ggplot2")
# https://github.com/ivelasq/severance
library(severance)

tw_set_language(language = "en") 

giocomai

library("dplyr", warn.conflicts = FALSE) # data wrangling
library("tidywikidatar")

tw_enable_cache()
tw_set_cache_folder(path = fs::path(fs::path_home_r(),
                                    "R",
                                    "tw_data"))

tw_create_cache_folder(ask = FALSE)

giocomai

#remotes::install_github("giocomai/latlon2map")
library("latlon2map")
ll_set_folder(path = "~/R")
library("ggplot2")
library("dplyr")
library("sf")

# recupera griglia di esempio come oggetto sf

if (file.exists("base_grid.rds")==FALSE) {

giocomai

  libreoffice:
    image: libreoffice/online:master
    environment:
      - "domain=nextcloud\\.example\\.com"
      - "SLEEPFORDEBUGGER=0"
      - "username=user"
      - "password=actualgoodpassword"
      - "extra_params=--o:ssl.enable=false --o:ssl.termination=true"
    networks:
      network1:

giocomai

---
title: "Sibiu 1934 historic map"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library("tidyverse")
library("leaflet")
library("leaflet.opacity")

giocomai

```{r eval = FALSE}


partito_facet_tm <- carto_partiti_combo %>% 
  tm_shape()  + 
  tm_polygons(col = "perc",
              palette = "YlGnBu") +

giocomai

if (!require("pacman")) install.packages("pacman")
pacman::p_load("tidyverse")
pacman::p_load("gganimate")
pacman::p_load("gifski")

nit <- tibble::tribble(
  ~Country, ~`2001`, ~`2002`, ~`2003`, ~`2004`, ~`2005`, ~`2006`, ~`2007`, ~`2008`, ~`2009`, ~`2010`, ~`2011`, ~`2012`, ~`2013`, ~`2014`, ~`2015`, ~`2016`, ~`2017`, ~`2018`,
  "Albania", 4.42, 4.25, 4.17, 4.13, 4.04, 3.79, 3.82, 3.82, 3.82, 3.93, 4.04, 4.14, 4.25, 4.18, 4.14, 4.14, 4.14, 4.11,
  "Bosnia Herzegovina", 5.17, 4.83, 4.54, 4.29, 4.18, 4.07, 4.04, 4.11, 4.18, 4.25, 4.32, 4.36, 4.39, 4.43, 4.46,  4.5, 4.54, 4.64,
  "Bulgaria", 3.42, 3.33, 3.38, 3.25, 3.18, 2.93, 2.89, 2.86, 3.04, 3.04, 3.07, 3.14, 3.18, 3.25, 3.29, 3.25, 3.36, 3.39,

giocomai

library("tabulizer")
library("tidyverse")

dir.create("data", showWarnings = FALSE)
dir.create(file.path("data", "original_files"), showWarnings = FALSE)

census_2011_pdf_url <- "https://www.armstat.am/file/article/1._bajin_1_182-311.pdf"
census_2011_pdf_file <- file.path("data", "original_files", "census_2011.pdf")

if (file.exists(census_2011_pdf_file)==FALSE) {

giocomai

if (!require("pacman")) install.packages("pacman")
pacman::p_load("jsonlite")
pacman::p_load("tidyverse")

#https://www.datacommons.org/docs/download.html
text <- readLines(con = "fact_checks_20180502.txt")
text <- stringr::str_remove_all(string = text, pattern = stringr::fixed('<script type=\"application/ld+json\">'))
text <- stringr::str_remove_all(string = text, pattern = stringr::fixed("</script>"))

txtList <- purrr::map(.x = text, .f = fromJSON, simplifyDataFrame = TRUE, flatten = TRUE)

giocomai

# load libraries

library("gganimate")
library("tidyverse")

# introduce data

structure(list(id = c("Barroso\n2010", "Barroso\n2010", "Barroso\n2010", 
                      "Barroso\n2011", "Barroso\n2011", "Barroso\n2011", "Barroso\n2012", 
                      "Barroso\n2012", "Barroso\n2012", "Barroso\n2013", "Barroso\n2013",