Jake Russ JakeRuss
JakeRuss
/ clean-up-pdftools.R
Created
December 17, 2018 16:09
table-izing the output from pdftools 2.0
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(pdftools) | |
| library(tidyverse) | |
| library(janitor) | |
| pdf_file <- "https://github.com/ropensci/tabulizer/raw/master/inst/examples/data.pdf" | |
| df <- pdf_data(pdf_file)[[1]] | |
| # Table-ize ---- |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(jsonlite) | |
| url <- "http://www.claritin.com/webservice/allergyforecast.php?zip=33956" | |
| df <- fromJSON(url) |
JakeRuss
/ toAmericanOdds.R
Created
October 26, 2014 23:17
Convert decimal betting odds to American format
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Convert decimal betting odds to American format | |
| # | |
| toAmericanOdds <- function(x) { | |
| if (!is.numeric(x)) | |
| x <- as.numeric(x) | |
| # For decimal odds greater than or equal to 2, | |
| # American odds = (decimal odds – 1) * 100 |