Skip to content

Instantly share code, notes, and snippets.

View njahn82's full-sized avatar

Najko Jahn njahn82

97 followers · 49 following
View GitHub Profile
@njahn82
njahn82 / apc_mean.Rmd
Last active August 29, 2015 14:20
---
title: "Mean APC per Institution"
author: "Najko Jahn"
date: "28. April 2015"
output: html_document
---
```{r, echo =FALSE}
knitr::opts_knit$set(base.url = "/")
@njahn82
njahn82 / fetch_openaire.r
Last active August 29, 2015 14:24
fetch_openaire.r
require(ropenaire)
require(dplyr)
# fetch ugoe projects
ugoe <- roa_projects(org = "UGOE")
# fetch publications
tt <- plyr::ldply(as.character(ugoe$grantID), roa_pubs)
# tidy up: split collapsed ec projects
tmp <-
tidyr::separate(
@njahn82
njahn82 / check.Rmd
Last active August 29, 2015 14:25
```{r, echo = FALSE}
knitr::opts_knit$set(base.url = "/")
knitr::opts_chunk$set(
comment = "#>",
collapse = TRUE,
warning = FALSE,
message = FALSE,
echo = TRUE,
fig.width = 9,
fig.height = 6,
@njahn82
njahn82 / sciencecard.brew
Created November 29, 2012 08:34
Brew template for ORCID publication listings
<!DOCTYPE html>
<!-- paulirish.com/2008/conditional-stylesheets-vs-css-hacks-answer-neither/ -->
<!--[if lt IE 7]> <html class="no-js lt-ie9 lt-ie8 lt-ie7" lang="en"> <![endif]-->
<!--[if IE 7]> <html class="no-js lt-ie9 lt-ie8" lang="en"> <![endif]-->
<!--[if IE 8]> <html class="no-js lt-ie9" lang="en"> <![endif]-->
<!--[if gt IE 8]><!--> <html class="no-js" lang="en"> <!--<![endif]-->
<head>
<meta charset="utf-8" />
@njahn82
njahn82 / isi_doaj.R
Created October 16, 2015 11:00
Match records from ISI Web of Science with the DOAJ
# load ISI spradsheet
vu_amst <- read.csv("pubs_2012-14 V5 CSV.csv", header = TRUE, sep =";",
na.strings = "")
vu_amst$SN <- as.character(vu_amst$SN)
# load DOAJ spreadsheet
doaj <- httr::content(httr::GET("http://doaj.org/csv"))
# join ISSN and EISSN as vector
doaj.issn <- c(as.character(doaj$Journal.ISSN..print.version.),
@njahn82
njahn82 / report_vu_doaj.Rmd
Last active October 16, 2015 13:56
ISI - DOAJ match for VU Amsterdam
## Load Data
```{r}
require(dplyr)
# load ISI spradsheet and select only columns needed
vu_amst <- read.csv("pubs_2012-14 V5 CSV.csv", header = TRUE, sep =";",
na.strings = "") %>%
select(JI, PY, SN, PU, DI, UT)
tbl_df(vu_amst)
@njahn82
njahn82 / catmandu.md
Last active October 27, 2015 14:20

Using Catmandu within R

system("catmandu convert YAML < example.yaml", intern = TRUE) %>%
  jsonlite::fromJSON()
@njahn82
njahn82 / feed_template.xml
Last active April 14, 2016 18:50
Libreas Feed
---
layout: null
---
<?xml version="1.0" encoding="UTF-8"?>
<rdf:RDF
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns="http://purl.org/rss/1.0/"
xmlns:atom="http://www.w3.org/2005/Atom"
xmlns:dc="http://purl.org/dc/elements/1.1/"
xmlns:prism="http://prismstandard.org/namespaces/1.2/basic/">
@njahn82
njahn82 / sci-hub.md
Last active August 29, 2016 13:26
3:AM Hack Day porposal

Proposed datasets

Sci-Hub usage

In spring 2016, [Science featured a dataset on global usage of Sci-Hub](http://www.sciencemag.org/news/2016/04/whos-downloading-pirated-papers- everyone), a prominent shadow library for scholarly literature. The dataset, openly available via Dryad, tracks more than 28 Mio Sci-Hub usage events over a period of six month on the article-level. Tab-separated files contain timestamps, geo-locations (latitude, longitude), and the Digital Object Identifiers (DOI) of each requested full text.

@njahn82
njahn82 / open_apc_plots.R
Created February 15, 2017 09:37
Plots for TIB/SUB Fortbildung
#' Plots TIB/SUB Fortbildung Open APC Initiative
#' Required libraries
library(dplyr)
library(ggplot2)
library(scales)
#' ## Load datasets from GitHub
#' Get cost data from the Open APC initiatve
apc <- readr::read_csv("https://raw.githubusercontent.com/OpenAPC/openapc-de/f946f5c55e5335c3f2298be88507af94de45d585/data/apc_de.csv", col_names = TRUE)
#' Overview
apc