giocomai

sub RemoveNewLine
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

giocomai

library("XML")
library("plyr")
countriesRu <- ldply(xmlToList(readLines("https://www.artlebedev.ru/tools/country-list/xml/")), data.frame) 
countriesRu <- countriesRu[-1,]

giocomai

sudo dnf install R R-RCurl curl-devel R-zoo R-XML openssl-devel libxml2-devel

giocomai

library("rvest")

read_html(x = "http://www.un.org/en/member-states/") %>%
html_nodes(xpath = "//span[@class='member-state-name']") %>% 
    html_text()

giocomai

library("rvest")
library("tidyverse")
library("lubridate")
library("scales")
Sys.setlocale(category = "LC_TIME", locale = "en_IE")

dumpList <- read_html("https://dumps.wikimedia.org/other/pageviews/2017/2017-04/")

links <- data_frame(filename = html_attr(html_nodes(dumpList, "a"), "href")) %>% # extracting links
    filter(grepl(x = filename, "projectviews")) %>% # keeping only aggregated data by project

giocomai

library("rvest")
library("tidyverse")
library("lubridate")
library("scales")
Sys.setlocale(category = "LC_TIME", locale = "en_IE")

dumpListApril <- read_html("https://dumps.wikimedia.org/other/pageviews/2017/2017-04/")

linksApril <- data_frame(filename = html_attr(html_nodes(dumpListApril, "a"), "href")) %>% # extracting links
    filter(grepl(x = filename, "projectviews")) %>% # keeping only aggregated data by project

giocomai

## Install castarter (devtools required for installing from github)
# install.packages("devtools")
devtools::install_github("giocomai/castarter")

## Load castarter
library("castarter")

## Set project and website name
SetCastarter(project = "EuropeanUnion", website = "EuropeanParliament")

giocomai

---
title: 'Exploring #SOTEU speeches'
author: "Giorgio Comai (OBC Transeuropa/#edjnet)"
date: "13 September 2017"
output:
  html_document:
    code_folding: hide
    theme: readable
---

giocomai

## Install castarter (devtools required for installing from github)
# install.packages("devtools")
devtools::install_github(repo = "giocomai/castarter", ref = "development")

setwd("~/R")
## Load castarter
library("castarter")

## Set project and website name
SetCastarter(project = "EuropeanUnion", website = "EuropeanCommission")

giocomai

## Install castarter (devtools required for installing from github)
# install.packages("devtools")
devtools::install_github(repo = "giocomai/castarter", ref = "development")

setwd("~/R")
## Load castarter
library("castarter")

## Set project and website name
SetCastarter(project = "EuropeanUnion", website = "EuropeanCommission")