Skip to content

Instantly share code, notes, and snippets.

View giocomai's full-sized avatar

Giorgio Comai giocomai

View GitHub Profile
@giocomai
giocomai / election_airplane_combo.R
Created November 5, 2024 10:36
Visualise probability of electoral outcomes in line with the "risk characterisation theatre" logic
# https://projects.fivethirtyeight.com/2024-election-forecast/
# https://projects.fivethirtyeight.com/2020-election-forecast/
# https://projects.fivethirtyeight.com/2016-election-forecast/
# install.packages("remotes")
remotes::install_github("EDJNet/riskviewer")
## N.B. the visualisation barely holds together, breaks down when changing aspect ratio
library("riskviewer")
@giocomai
giocomai / udunits in Fedora.R
Created June 14, 2017 15:03
install udunits2 for R in Fedora
# sudo dnf install udunits2 udunits2-devel
install.packages("udunits2", configure.args = c(udunits2 = '--with-udunits2-include=/usr/include/udunits2'))
@giocomai
giocomai / explore_zavtra.ru_ru_2024.R
Created April 17, 2024 12:19
Explore zavtra.ru dataset
# https://discuss-data.net/dataset/dae0b5b8-157f-471a-bb3c-ea24e0b2a7f7/
# remotes::install_github("giocomai/castarter")
library("castarter")
corpus_name <- "zavtra.ru_ru_2024"
corpus_file <- paste0(corpus_name, ".csv.gz", collapse = "")
## Step 1: Download the corpus ####
# download `zavtra.ru_ru_2024.csv.gz` from the main repository,
@giocomai
giocomai / install Ghostwriter on Fedora.sh
Last active December 11, 2022 12:03
Install Ghostwriter markdown editor on Fedora 30
sudo dnf install qt-devel hunspell-devel qt5-qtwebkit-devel qt5-qtsvg-devel qt5-qtsvg-devel qt5-qtmultimedia-devel qt5-qtbase qt5-linguist qt5-qtwebengine-devel
wget https://github.com/wereturtle/ghostwriter/archive/v1.8.0.tar.gz
tar -xvzf v1.8.0.tar.gz
cd ghostwriter-1.8.0/
/usr/lib64/qt5/bin/qmake-qt5
@giocomai
giocomai / oscar_winners_length.R
Created November 15, 2022 09:02
Are movies that win the Oscars really longer than in the past? Nah... (slow at first run, but data are cached locally)
# 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
giocomai / SaveWebpage.js
Created May 1, 2015 15:00
Download a webpage with phantomjs from the command line. This allows to wait for javascript to be processed before saving the page, which cannot be achieved with wget. Download SaveWebpage.js, and then, from the terminal, run: phantomjs SaveWebpage.js URL nameOfSavedFile
var system = require('system');
var page = require('webpage').create();
var url = system.args[1];
var destination = system.args[2];
page.settings.resourceTimeout = 10000;
setTimeout(function(){
setInterval(function () {
@giocomai
giocomai / get_meps_9th.R
Last active April 21, 2021 08:34
Get MEPs of the 9th legislature
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
giocomai / population grid to kml example.R
Last active November 16, 2020 09:41
population grid to kml example
#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
giocomai / docker-compose_libreoffice.yml
Created June 7, 2020 14:06
Libreoffice Collabora with Traefik / Docker compose (only part with Libreoffice, with `network1` as external network)
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
giocomai / sibiu_1934_map.Rmd
Created January 22, 2020 20:31
Create sync leaflet maps from a Geotiff, see https://www.giorgiocomai.eu/testzone/sibiu1934/
---
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")