scipionesarlo

<?php
include_once('../simple_html_dom.php');

function scraping($url) {
    // create HTML DOM
    $html = file_get_html($url);

    
    // Find the table that has class="tabelle_spieler" in the source code
    // There are two of these tables and we want the second one therefor 1 (index start by 0)

scipionesarlo

library(ggplot2)
library(gtable)

library(grid)
library(ggthemes)

# extract gtable

ggplot_second_axis <- function(p1, p2){
  p2 <- p2 + theme() %+replace% 

scipionesarlo

diverge0 <- function(p, ramp) {
  # p: a trellis object resulting from rasterVis::levelplot
  # ramp: the name of an RColorBrewer palette (as character), a character 
  #       vector of colour names to interpolate, or a colorRampPalette.
  require(RColorBrewer)
  require(rasterVis)
  if(length(ramp)==1 && is.character(ramp) && ramp %in% 
     row.names(brewer.pal.info)) {
    ramp <- suppressWarnings(colorRampPalette(brewer.pal(11, ramp)))
  } else if(length(ramp) > 1 && is.character(ramp) && all(ramp %in% colors())) {

scipionesarlo

# Drawing a scatter plot of raster images
doInstall <- TRUE  # Change to FALSE if you don't want packages installed.
toInstall <- c("png", "devtools", "MASS", "RCurl")
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")}
lapply(toInstall, library, character.only = TRUE)

# Some helper functions, lineFinder and makeTable
source_gist("818983")
source_gist("818986")

scipionesarlo

require(rCharts)
require(rjson)

#get source from original example
#this is a JSON, so will need to translate
#this is complicated and unnecessary but feel I need to replicate
#for completeness

#expect most data to come straight from R
#in form of source, target, value

scipionesarlo