tcash21

library(plotly)
library(shiny)

mtcars$key <- row.names(mtcars)
mtcars$col <- "black"
mtcars$name <- row.names(mtcars)

ui <- fluidPage(
  plotlyOutput("plot")
)

tcash21

Keybase proof

I hereby claim:

• I am tcash21 on github.
• I am tcash21 (https://keybase.io/tcash21) on keybase.
• I have a public key ASCkG9_SuHwKSbUbA-4XN6CucoDLXcR3yf-AdseMHSh6FQo

To claim this, I am signing this object:

tcash21

library(rvest)
library(jsonlite)

#/lol/summoner/v3/summoners/{summonerId}
#/lol/match/v3/matchlists/by-account/{accountId}

key <- 'Your-API-KEY'
summoner_id <- '88770698'

base_url <- 'https://na1.api.riotgames.com' 

tcash21

library(XML)
library(RCurl)
library(ggplot2)

results <- c()

## Loop through the 30 pages of player data
for(i in 1:30){
  theURL <- paste("http://www.nhl.com/ice/playerstats.htm?fetchKey=20122ALLSASAll&viewName=summary&sort=points&pg=", i, sep="")
  webpage <- getURL(theURL)

tcash21

library(rvest)
library(tidytext)
library(stringr)
library(purrr)
library(ggplot2)
library(tidyr)

options(stringsAsFactors = FALSE)

## use phantomjs to download the webpage content (javascript-generated)

tcash21

d3.csv("../data/imdb.csv", function(data) {
  dataset = data
});


offset = 2

circles = d3.select("body")
  .append("svg")
    .attr("width", width)

tcash21

install.packages("devtools")  
devtools::install_github("stattleship/stattleship-r")
install.packages('dplyr')
install.packages('ggplot2')

## Load the stattleshipR package
library(stattleshipR)  
library(dplyr)
library(ggplot2)

tcash21

library(benford.analysis)

## read in data
counties <- read.csv(file="https://raw.githubusercontent.com/Prooffreader/election_2016_data/master/data/presidential_general_election_2016_by_county.csvhttps://raw.githubusercontent.com/Prooffreader/election_2016_data/master/data/presidential_general_election_2016_by_county.csv")

## Run Benford tests
hrc <- benford(subset(counties, name == 'H. Clinton')$votes)
trump <- benford(subset(counties, name == 'D. Trump')$votes)

## plot results

tcash21

library(ROAuth)
requestURL <- "https://api.twitter.com/oauth/request_token"
accessURL <- "https://api.twitter.com/oauth/access_token"
authURL <- "https://api.twitter.com/oauth/authorize"
consumerKey <- 'XXXXX'
consumerSecret <- 'XXXXXX'

my_oauth <- OAuthFactory$new(consumerKey = consumerKey,
                             consumerSecret = consumerSecret,
                             requestURL = requestURL,

tcash21

conditionalPanel(id='loader',
        condition="($('html').hasClass('shiny-busy'))",
        img(src="spinner.gif")
),