📈

David Ranzolin daranzolin

📈

Data Analyst and Analytics Developer

daranzolin / yelp_api.R

Created April 27, 2016 03:45

Yelp API

daranzolin / web_scraping.R

Created May 13, 2016 15:05

	library(rvest)
	library(dplyr)
	library(stringr)
	library(readr)

	#Read CSV from working directory, clean and prepare data
	schools <- read_csv("schools.csv") %>%
	slice(-c(2535:2539)) %>%
	mutate(school = ifelse(unlist(stringr::str_extract(`Account Name`, "(\\w+)$")) %in% "School",
	unlist(stringr::str_replace(`Account Name`, "School", "")),

daranzolin / shiny_app.R

Created May 13, 2016 15:12

	library(tidyr)
	library(ggplot2)
	library(dplyr)
	library(shiny)
	library(shinythemes)
	library(readr)
	library(plotly)

	ui <- fluidPage(theme = shinytheme("united"),
	titlePanel("Evaluation Review Application"),

daranzolin / makeStringsGadget

Created July 29, 2016 04:15

	library(shiny)
	library(miniUI)

	makeStringsGadget <- function(...) {

	ui <- miniPage(
	gadgetTitleBar("Type your strings freely!"),
	miniContentPanel(
	textInput("sep", "Separator:"),
	textInput("text", "Strings:")

daranzolin / get-official-object-issues

Last active September 11, 2016 21:02

Demonstration of how negative function arguments are coerced to class "call"

	check_negative_args_classes <- function(lon = NULL, lat = NULL) {
	args <- as.list(match.call())
	return(args)
	}

	l <- check_negative_args_classes(lon = 45, lat = -86.7)
	lapply(l, class)

	"""
	Output:

daranzolin / get_course_gradebook.R

Last active December 14, 2016 18:41

Function to obtain course gradebook from Canvas

	library(rcanvas)
	library(tidyverse)

	get_course_gradebook <- function(course_id) {
	course_assignment_ids <- get_course_items(course_id, "assignments") %>% .$id %>% as.list()
	course_ids <- rep(course_id, length(course_assignment_ids)) %>% as.list()

	get_assignment_submissions <- function(course_id, assignment_id) {
	url <- sprintf("%s/api/v1/courses/%s/assignments/%s/submissions", canvas_url(), course_id, assignment_id)
	httr::GET(url, query = list(access_token = Sys.getenv("CANVAS_API_TOKEN"))) %>%

daranzolin / Canvas File Upload Attempt

Last active April 21, 2018 23:55

	canvas_url <- function() paste0(Sys.getenv("CANVAS_DOMAIN"), "/api/v1/")

	sc <- function(x) {
	Filter(Negate(is.null), x)
	}

	canvas_query <- function(urlx, args, type = "GET") {
	fun <- getFromNamespace(type, "httr")
	args <- sc(args)
	resp <- fun(urlx,

daranzolin / RStudio_rcanvas_canvas_course_content_copy.R

Created April 27, 2018 20:13

	library(tidyverse)
	source("utils.R")

	decrement_section <- function(section_code) {
	old_section_num <- readr::parse_number(section_code) - 1
	section_code <- stringr::str_extract(section_code, "^(\\w+)")
	paste(section_code, old_section_num)
	}

	create_content_migration <- function(migration_type = "course_copy_importer", course_id = NULL, source_course_id = NULL) {

daranzolin / widgetData.csv

Created August 21, 2018 23:29

daranzolin / widgetData2.csv

Created August 21, 2018 23:38