Steph Locke stephlocke
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(httr) | |
| library(purrr) | |
| library(dplyr) | |
| library(tidyr) | |
| apikey="demo" | |
| get_deal_properties = function(apikey="demo"){ | |
| base_url = "https://api.hubapi.com" | |
| properties_url = modify_url(base_url, | |
| path ="/properties/v1/deals/properties/") |
stephlocke
/ basic.R
Created
December 14, 2018 15:24
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
| # Load R packages for use | |
| library("dplyr") | |
| library("recipes") | |
| library("rsample") | |
| library("broom") | |
| library("jsonlite") | |
| library("sessioninfo") | |
| # Sample data | |
| sm_iris = initial_split(iris) |
stephlocke
/ recursinghubspot.pq
Last active
November 2, 2018 19:32
recursing through the hubspot deals api
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
| let | |
| iterations = 10, // Number of iterations | |
| url = | |
| "https://api.hubapi.com/deals/v1/deal/paged?" & "hapikey=demo" & "&includeAssociations=true" & "&limit=1" & "&properties=dealname" & "&propertiesWithHistory=true" | |
| , | |
| FnGetOnePage = | |
| (url) as record => | |
| let | |
| Source = Json.Document(Web.Contents(url)), | |
| data = try Source[deals] otherwise null, |
stephlocke
/ find_local_tweeps.R
Last active
February 19, 2019 23:24
— forked from noamross/find_local_tweeps.R
A visit to Durham
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(rtweet) #rtweet API creds should already be set up | |
| library(stringi) | |
| library(dplyr) | |
| friends = get_friends(user="stephlocke") | |
| followers = get_followers("stephlocke") | |
| tweeps_id = distinct(bind_rows(friends, followers)) | |
| tweeps_info = lookup_users(tweeps_id$user_id) | |
| # A regex for a visit to Durham |
stephlocke
/ ethicaldatascience.md
Created
September 20, 2018 16:08
Some links and resources around ethical data science
stephlocke
/ post.json
Created
September 1, 2018 11:45
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
| [ | |
| { | |
| "userId": 1, | |
| "id": 1, | |
| "title": "Analytics", | |
| "body": "quia et suscipit\nsuscipit recusandae consequuntur expedita et cum\nreprehenderit molestiae ut ut quas totam\nnostrum rerum est autem sunt rem eveniet architecto" | |
| }, | |
| { | |
| "userId": 1, | |
| "id": 2, |
stephlocke
/ PASS.R
Last active
August 20, 2018 14:54
Latest R budget scrape plus charts and figures
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
| ## ----message=FALSE------------------------------------------------------- | |
| library(tabulizer) | |
| library(tidyverse) | |
| library(zoo) | |
| library(tidytext) | |
| ## ------------------------------------------------------------------------ | |
| "http://www.pass.org/Portals/0/Governance%202017/2018%20Budget.pdf?ver=2017-10-26-171625-747×tamp=1509063392150" %>% | |
| tabulizer::extract_text() -> | |
| rawtxt |
stephlocke
/ htmlwidgetiframeMWE.Rmd
Created
July 12, 2018 13:34
Example of trying to get an iframe of a html widget
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
| --- | |
| title: "sample" | |
| output: | |
| md_document: | |
| variant: markdown_github | |
| preserve_yaml: true | |
| always_allow_html: yes | |
| --- | |
| ```{r setup, include = FALSE, message = FALSE, warning = FALSE, error = FALSE} |
stephlocke
/ scrape.R
Created
July 8, 2018 11:41
Scrape and consolidate the year superheroes made their debut in comics
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(tidyverse) | |
| library(rvest) | |
| "https://en.wikipedia.org/wiki/List_of_superhero_debuts" %>% | |
| read_html() %>% | |
| html_nodes(xpath = "//*[@id='mw-content-text']/div/table") %>% | |
| map(html_table, fill = TRUE) %>% | |
| map_df( ~ mutate(., `Year Debuted` = as.character(`Year Debuted`))) %>% | |
| mutate(`Char_Team` = coalesce(`Character / Team / Series`, `Character / Team`)) %>% | |
| select(Char_Team, Year_Debut = `Year Debuted`) %>% |