Skip to content

Instantly share code, notes, and snippets.

View cmgiven's full-sized avatar

Chris Given cmgiven

91 followers · 0 following
  • Washington, DC
View GitHub Profile
@cmgiven
cmgiven / .block
Created August 16, 2016 14:50
Gooey Exploding Scatterplot
license: mit
@cmgiven
cmgiven / .block
Last active October 27, 2019 19:52
Zoomable Choropleth
license: mit
height: 600
@cmgiven
cmgiven / .block
Last active October 27, 2019 19:52
Interactive General Update Pattern
license: mit
height: 640
@cmgiven
cmgiven / julie-bisi-query.sql
Created September 6, 2019 17:55
select
Enrollment.EnrollmentFunding.EnrollmentId,
Student.Enrollment.FacilityCode,
Universal.Agency.Name,
Student.Student.SASID,
Student.StudentDetails.LastName,
Student.StudentDetails.FirstName,
Student.StudentDetails.MiddleName,
/* MISSING: Suffix */
Student.StudentDetails.Dob,
@cmgiven
cmgiven / .block
Last active December 22, 2018 14:24
Brushable Scatterplot/Choropleth
license: mit
height: 350
@cmgiven
cmgiven / sample.R
Created December 4, 2017 21:53
Example R worker
install.packages(c("ROracle", "dplyr", "lubridate", "glue", "survival"))
source("R/vacolsConnect.R")
library(dplyr)
library(lubridate)
library(glue)
library(survival)
con <- vacolsConnect()
query <- function (query) { return(dbGetQuery(con, query)) }
@cmgiven
cmgiven / .block
Created August 10, 2016 15:53
Triangular Scatterplot
license: mit
height: 800
@cmgiven
cmgiven / bhs_cooccur.R
Created December 3, 2016 22:09
Behavioral Health Event Co-Occurence
library("dplyr")
library("tidyr")
library("cooccur")
options(stringsAsFactors=FALSE)
bhs <- read.csv("Behavioral Health Services - higher grouping.csv") %>%
mutate(
SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),
@cmgiven
cmgiven / aecf_id_load.R
Created December 3, 2016 16:04
AECF Connecting Data Systems, Data Loading
library("dplyr")
options(stringsAsFactors=FALSE)
bhs <- read.csv("Behavioral Health Services.csv") %>%
mutate(
SVC_START_DT = as.Date(SVC_START_DT, "%m/%d/%Y"),
SVC_END_DT = as.Date(SVC_END_DT, "%m/%d/%Y"),
SUBMT_DT = as.Date(SUBMT_DT, "%m/%d/%Y")
)
@cmgiven
cmgiven / keybase.md
Created November 12, 2016 16:16

Keybase proof

I hereby claim:

  • I am cmgiven on github.
  • I am cmgiven (https://keybase.io/cmgiven) on keybase.
  • I have a public key whose fingerprint is A08A 263C F610 EF95 8CDB 84F0 CF79 B8A5 DDC3 931E

To claim this, I am signing this object: