hpiwowar

#!/usr/bin/env python
# Initially written by Heather Piwowar, June 2011
# Public domain: have at it!
# For exporting bibtex info into csv for running stats

import csv
import re
from pybtex.database.input import bibtex as bibtex_in
from pybtex.database.output import bibtex as bibtex_out
from operator import itemgetter, attrgetter

epijim

###############################################################################################
##                                                                                           ##
##           Setup                                                                           ##
##                                                                                           ##
###############################################################################################

# install.packages("Rfacebook")  # from CRAN
# install.packages("Rook")  # from CRAN
# install.packages("igraph") # from CRAN

jeroen

# Proof of concept of using V8 to parse HTML in R
# Example taken from rvest readme
# Jeroen Ooms, 2015

library(V8)
stopifnot(packageVersion("V8") >= "0.4")

# Get Document
html <- paste(readLines("http://www.imdb.com/title/tt1490017/"), collapse="\n")

JustDevZero

retrography

#!/usr/bin/Rscript 

if (!require(jsonlite, quietly = TRUE, warn.conflicts = FALSE)) {
	stop("This program requires the `jsonlite` package. Please install it by running `install.packages('jsonlite')` in R and then try again.")
}

args <- commandArgs(trailingOnly = TRUE)

if (length(args) == 0) {
	input <- readLines(file("stdin"))

mkearney

library(rtweet)

## number of iterations
n <- 5

## to do a certain task (e.g., searching for tweets on a topic), 
##    twitter policy says you should use one token
## so select one token
token <- get_tokens()
if (!"Token" %in% class(token)) {

macloo

#!/usr/bin/env python
# encoding: utf-8

"""
python 2.x
Scrape members from a Twitter list and then get their bios, locations, etc.
Based on 
https://github.com/lamthuyvo/social-media-data-scripts/blob/master/scripts/twitter_bio_info_compiler.py 
and 
https://github.com/kylemanna/social-utils/blob/master/twitter/list-follow.py 

almogsi

library(rJava)
library(coreNLP)
initCoreNLP()

#in this case, 'test' is a data frame with a col named 'text'

for (i in 1:dim(test)[1]) {
  cat(paste0(i / dim(test)[1] * 100, '% completed'))
  ann <- annotateString(paste(test$text[i]), format = c("obj"), outputFile = NA, includeXSL = FALSE)
  gd <- getDependency(ann)

dfbarrero

#!/usr/bin/Rscript --vanilla

library(sp)
#library(RColorBrewer)

colorPalette <- colorRampPalette(c("white", "orange"))(32)

spain <- readRDS("ESP_adm1.rds")

# Datos de Informe Anual del Sector TIC y de los Contenidos en España 2016. ONTSI

ryanrosenberg

library(tidyverse)

buzzes <- read_csv("~/Desktop/regs analysis/all_buzzes.csv")

tossups_heard <- read_csv("~/Desktop/regs analysis/tossups_heard.csv") %>% 
  filter(!is.na(Packet)) %>% 
  group_by(Packet) %>% 
  summarize(Heard = max(Heard))

tossups <- buzzes %>%