briatte

#!/bin/bash
##
## webloc2url.sh - Replace .webloc (Mac) files with .url (Windows) files.
##
## INITIAL VERSION (c) 2015 by mzm
##   https://github.com/flagsoft/webloc2url/blob/master/webloc2url.sh
##
## LICENSE: GPL

TEMP_LIST="webloc2url-list.txt.$$.tmp"

briatte

library(magrittr)
library(magick)
image_read("logo:") %>%
  image_convert('png', colorspace = 'gray') %>%
  image_edge(radius = 1) %>%
  image_negate() %>%
  image_transparent('white', 10000) %>%
  image_background("white") %>%
  image_browse()

briatte

# You won't need all of these packages. I just copied it from another,related analysis:
# https://github.com/svmiller/etjc

library(car)
library(arm)
library(countrycode)
library(data.table)
library(tidyverse)
library(sqldf)
# library(pdftools)

briatte

#!/bin/bash

cd $(echo $0 | sed 's#/[^/]*$##')

git pull > /tmp/file.tmp 2>&1

./run.sh >> /tmp/load_portes_etroites.tmp 2>&1

if git status | grep "data/" > /dev/null; then
  cat /tmp/load_portes_etroites.tmp

briatte

library(dplyr)
library(httr)
library(readr)
library(rvest)

d <- read_xml("~/Downloads/digg_reader_subscriptions.xml") %>% 
  xml_nodes("outline")
d <- data_frame(
  title = xml_attr(d, "text"),
  url = xml_attr(d, "xmlUrl")

briatte

library(MASS)
library(rio)
library(tidyverse)

multhet <- function(y, ## = formula(1~1),
	v, ##  = formula(~1),
	data) {

	## check length of inputs
	if (class(y) != "formula") { 

briatte

################################################################################
#                                                    
# ikashnitsky.github.io 2017-07-18
# Accessing Eurostat data using the `eurostat` R package
# Young people neither in employment nor in education and training in Europe
# Ilya Kashnitsky, [email protected]
#                                                  
################################################################################

# Erase all objects in memory

briatte

library(ggplot2)
library(readr)

d <- read_tsv("data/affiliations.tsv") %>%
  filter(j != "2015_STRC20IPSA") %>% 
  mutate(
    y = str_sub(j, 1, 4),
    e = str_extract(affiliation, "\\((.*?)\\)") %>% 
      str_replace_all("\\(|\\)", "")
  ) %>% 

briatte

################################################################################
#                                                    
# ikashnitsky.github.io 2017-06-30
# Produce an RGB coded map of pop structures at NUTS-3 level
# Ilya Kashnitsky, [email protected]
#                                                  
################################################################################

# Erase all objects in memory
rm(list = ls(all = TRUE))

briatte

library(dplyr)
# library(igraph)
library(readr)
library(stringr)
library(tidyr)
library(networkD3)

f <- "parcours_selected.tsv"
e <- read_tsv(f, col_types = "ccccccccccccccc") %>% 
  filter(siteId %in% 3, type == "action") %>%