library(plyr)
dat <- read.csv('https://t.co/mN2RgcyQFc')[,c('date', 'pts')]
dat2 <- transform(dat, date = as.numeric(as.POSIXct(date)))
dat3 <- setNames(as.list(dat2$pts), dat2$date)

library(rChartsCalendar)
r1 <- plotCalMap(
  data = dat3,
  domain = 'month', 
  start = "2012-10-27",
  legend = seq(10, 50, 10),
  itemName = 'point',
  range = 7
)