https://bit.ly/3hkxZCO

Code looked like this: profvis::profvis(src_sqlite("output/CollegeScorecard.sqlite") %>% tbl("data") %>% filter(id == 243744) %>% select(school.name) %>% collect())

Source: databaseBasketball.com

Replaced bilinear and some cell/xy/rowcol manipulating functions, with C++ equivalents

Using rbind/pmin/pmax instead of apply

https://gist.github.com/jcheng5/525f225b92b3d3c3da9b

profr output visualized using leaflet

See http://geog.uoregon.edu/geogr/topics/maps01.html