erzk

# countries by the number of universities in the CWUR ranking

library(dplyr)
library(ggplot2)
library(RColorBrewer)
library(rworldmap)

cwur <- read.csv("cwurData.csv")

# data frames with the universities and count them by country

erzk

library(maptools)

# read the shapefile data
shpfile1 <- "POL_adm1.shp" # 2 - voivodeship-level
sh1 <- readShapePoly(shpfile1)

shpfile2 <- "POL_adm2.shp" # 2 - powiat-level
sh2 <- readShapePoly(shpfile2)

# create the overlapping plots

erzk

# shapefile overlapping Google Maps
library(ggplot2)
library(ggmap)
library(rgdal)

# geographical centre of Poland
poland <- get_googlemap(c(lon=19.27, lat=52.03),
                     zoom = 6, 
                     maptype = "satellite")

erzk

# interactive leaflet plot
library(leaflet)

leaflet() %>% 
  addTiles() %>% 
  addPolygons(data = sh2,
              weight = 2) %>%
  addPolygons(data = sh1,
              color = "red",
              weight = 1)

erzk

// based on calculation from Tableau's website
REGEXP_EXTRACT([Postcode], "([A-Z][A-Z]?)")

erzk

# load this package to use HTTP verbs
library(httr)

postcode_lookup <- function(postcode) {
  r <- GET(paste0("https://api.postcodes.io/postcodes/", postcode))
  warn_for_status(r)
  content(r)
}

# returns a list

erzk

library(rvest)

# URL: http://www.rohcollections.org.uk/SearchResults.aspx?searchtype=performance&page=0&genre=Opera

performances <- c()
for (i in 0:233){
  site_perf <- paste0("http://www.rohcollections.org.uk/SearchResults.aspx?searchtype=performance&page=",
                      i,
                      "&genre=Opera")
  print(site_perf) # optional print to see the progress

erzk

# install the package if not available with:
# install.packages("R.matlab")
library(R.matlab)

# load the nirs file
data <- readMat("Simple_Probe.nirs")

# get the available names
names(data)

erzk

---
title: "Loading and plotting nirs data"
author: "Eryk Walczak"
date: "18 December 2016"
output:
  html_document: default
  pdf_document: default
---

```{r setup, include=FALSE}

erzk

import serial

port = serial.Serial('COM1', 9600, timeout=0)

port.write('A \r')