jamesob

from selenium import webdriver
import time


def get_chase_amazon_driver(username, password):
    """Return a logged-in Chase Amazon card selenium driver instance."""
    driver = webdriver.Firefox()
    driver.get("http://www.chase.com")

    time.sleep(2)

ddd1600

getCIK = function(ticker) {
  stopifnot(is.character(ticker))
  uri = "http://www.sec.gov/cgi-bin/browse-edgar"

  response = getForm(uri,CIK=ticker,action="getcompany")
  html = htmlParse(response)
  CIKNode = getNodeSet(html, "//acronym[@title=\"Central Index Key\"][text() = \"CIK\"]")
  CIKNodeText = sapply(CIKNode, function(x) xmlValue(getSibling(getSibling(x))))
  CIK = sub(" .*","",CIKNodeText)
  CIK = sub("^0*","",CIK)

benmarwick

# Here are a few methods for getting text from PDF files. Do read through 
# the instructions carefully! NOte that this code is written for Windows 7,
# slight adjustments may be needed for other OSs

# Tell R what folder contains your 1000s of PDFs
dest <- "G:/somehere/with/many/PDFs"

# make a vector of PDF file names
myfiles <- list.files(path = dest, pattern = "pdf",  full.names = TRUE)

blmoore

library("RCurl")
library("jsonlite")
library("ggplot2")
library("RColorBrewer")
library("scales")
library("gridExtra")

api.key <- "yourAPIkey"
rt <- getURI(paste0("http://api.rottentomatoes.com/api/public/v1.0/lists/dvds/top_rentals.json?apikey=", api.key, "&limit=50"))

andrie

## Analyze R packages for popularity, using pagerank algorithm

# Inspired by Antonio Piccolboni, http://piccolboni.info/2012/05/essential-r-packages.html

library(miniCRAN)
library(igraph)
library(magrittr)


# Download matrix of available packages at specific date ------------------

yihui

Moved to https://github.com/yihui/shiny-apps/tree/master/voice

andrie

## Determine CRAN package clusters (communities)


library(miniCRAN)
library(igraph)
library(magrittr)


# Download matrix of available packages at specific date ------------------

timelyportfolio

# devtools::install_github("jeroenooms/curl")
# devtools::install_github("jeroenooms/V8")

library(V8)

ct = new_context()

# get source and remove anonymous function wrapper
t = readLines(
  "https://raw.githubusercontent.com/twitter/twitter-text/master/js/twitter-text.js"

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")

hrbrmstr

library(httr)
library(magrittr)
library(dplyr)
library(ggplot2)

# data retrieval ----------------------------------------------------------

pg <- GET("http://data.giss.nasa.gov/gistemp/tabledata_v3/GLB.Ts+dSST.txt",
          user_agent("Mozilla/5.0 (Macintosh; Intel Mac OS X 10_9_3) AppleWebKit/537.75.14 (KHTML, like Gecko) Version/7.0.3 Safari/7046A194A"))