| # I struggled with uploading things to Microsoft Graph API/Sharepoint/OneDrive for business - here's the code that finally worked for me. | |
| library(AzureGraph) | |
| library(httr) | |
| # Creates authentication token via browser | |
| graph_token <- AzureGraph::create_graph_login()$token | |
| # Send a PUT request to the Microsoft Graph API |
| #### Snippet where I write csv files to https://github.com/DynastyProcess/data each week #### | |
| write.csv(values_players,'../data/files/values-players.csv',row.names = FALSE) | |
| write.csv(values_picks,'../data/files/values-picks.csv',row.names = FALSE) | |
| write.csv(values,'../data/files/values.csv',row.names = FALSE) | |
| write.csv(dp_playerids,'../data/files/db_playerids.csv',row.names = FALSE) | |
| data_repo <- git2r::repository('../data') # Set up connection to repository folder | |
| git2r::add(data_repo,'files/value*') # add specific files to staging of commit | |
| git2r::add(data_repo,'files/db_*') |
| #### Convert bookdown to epub #### | |
| library(devtools) | |
| ## Clone to folder | |
| book_repo <- "hadley/adv-r" | |
| dest_folder <- "~/documents/github" |
| library(rvest) | |
| library(tidyverse) | |
| library(glue) | |
| library(ratelimitr) | |
| library(DBI) | |
| # Ratelimit read_html to 100 pages per minute | |
| lim_readhtml<-limit_rate(read_html,rate(n = 100,period = 60)) | |
| # Set parameters of loop |
| observeEvent(input$run_main, { | |
| showModal(modalDialog(title = "Please wait", "Loading Data!")) | |
| df_reactivevalues <- tryCatch( | |
| fn_loaddata(df_reactivevalues), | |
| error = function(e) { | |
| Sys.sleep(2) | |
| showModal(modalDialog(title = "Oh no, we've found an error!", e$message))}, | |
| warning = function(e) { |
| library(ffscrapr) # on CRAN, woop woop! | |
| library(tidyverse) | |
| base_conn <- mfl_connect(2020, | |
| rate_limit_number = 2, | |
| rate_limit_seconds = 3) | |
| sfb_leagues <- mfl_getendpoint(base_conn, | |
| endpoint = "leagueSearch", | |
| SEARCH = "#SFBX Conference") %>% |
| json_list <- readRDS(url("https://github.com/guga31bb/sport_radar/blob/master/data/participation/c2b24b1a-98c5-465c-8f83-b82e746b4fcf.rds?raw=true")) | |
| plays <- json_list %>% | |
| list() %>% | |
| map(`[`,c("summary","plays")) %>% | |
| tibble() %>% | |
| unnest_wider(1) %>% | |
| hoist('summary','season','week') %>% | |
| mutate( | |
| season = map_dbl(season,pluck,"year"), |
| positions <- data.frame(pos = c("QB","RB","WR","TE"), | |
| posdesc = c("Quarterback","Running Back","Wide Receiver","Tight End")) | |
| shinyWidgets::pickerInput( | |
| inputId = 'positions', | |
| label = 'position', | |
| choices = positions$pos, | |
| selected = positions$pos, | |
| multiple = TRUE, | |
| options = list( |
| library(tidyverse) | |
| scooby_data <- read.csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-07-13/scoobydoo.csv") | |
| x <- | |
| scooby_data %>% | |
| select(season, title, | |
| starts_with("caught"), | |
| starts_with("captured"), | |
| starts_with("unmask"), |
Listing various examples to tackle on stream
https://rfordatascience.slack.com/archives/C8K09CDNZ/p1626704301265200
library(tidyverse)
# read the web page
url_data <- "https://www.dmr.gov.za/mineral-policy-promotion/operating-mines/limpopo"
# read the css selector of the data I want by defining a variable