flovv

## please see flovv.github.com for a short blog post on running the code.

#devtools::install_github("MarkEdmondson1234/googleAuthR")

require(googleAuthR)
require(RCurl)

### plug in your credentials
## create project- enable billing- -- enable APIs Vision APi -- go to credentials create OAuth 2.0 client ID: copy client_id and client_secret from JSON file.

flovv

options(stringsAsFactors = FALSE)
require(rvest)

scrapeJSSite <- function(dfrom, dto, date="2016-03-27"){
  
  ## change Phantom.js scrape file
  url <- paste0("https://www.busliniensuche.de/suche/?From=",dfrom,"&To=",dto,"&When=",date,"&ShowRidesharing=false&Company=Alle+Busunternehmen&Passengers=1&SearchMode=0&Radius=15000")
  lines <- readLines("scrape_final.js")
  lines[1] <- paste0("var url ='", url ,"';")

flovv

# a simple script to illustrate the relationship between panel-based measurement error and panel sizes
# simple case of party estimate!
require(plyr)
require(ggplot2)
require(ggthemes)

n=1000
p=5

flovv

#devtools::install_github("chgrl/diezeit")
library(diezeit)

require(ggplot2)
library(plyr)
require(stringr)
require(ggthemes)

options(stringsAsFactors = FALSE)

flovv

require(rvest)
require(stringr)

url <- "http://www.wettfreunde.net/bundesliga-absteiger-wetten/"

# Darmstadt
1/2.25 
1/2.3

mv <- html(url)

flovv

## daily stock market data from Yahoo
getStockMarketData <- function(symbol = "VOW4.DE"){
 require(stringr)
  
  if(str_detect(symbol, ":")){
    symbol <- paste(str_split_fixed(symbol, ":", 2)[,2], str_split_fixed(symbol, ":", 2)[,1], sep=".")
  }
    
    URL <- paste("http://ichart.finance.yahoo.com/table.csv?ignore=.csv&s=",symbol)

flovv

require(jsonlite)
require(V8)

#Task: get the Data from the last table: http://www.thebrandticker.com/en/

## public XHR needs a JS time-stamp. 
#http://www.thebrandticker.com/ticker.json?1436337115096
#http://www.thebrandticker.com/brands.json?1436337115102

flovv

library(RCurl)
didYouMean=function(input){
  input=gsub(" ", "+", input)
  doc=getURL(paste("http://www.google.com/search?q=",input,"/", sep=""))
  
  
  dym=gregexpr(pattern ='Did you mean',doc)
  srf=gregexpr(pattern ='Showing results for',doc)
  
  

flovv

require(rjson)
library(httr)
require(gtools)


dataframeFromJSON <- function(l) {
  l1 <- lapply(l, function(x) {
    x[sapply(x, is.null)] <- NA
    unlist(x)
  })