Created by Ryan Hafen
library(rbokeh)
url <- 'https://raw.githubusercontent.com/weinfz/nba_shot_value_charts/master/court.png'
p <- figure(width = 600, height = 600 * aspect, padding_factor = 0,
xlab = NULL, ylab = NULL) %>%
ly_image_url(x = -300, y = -20, url = url, w = 600, h = 440, anchor = 'bottom_left') %>%