licenses.R

lic <- readLines("https://raw.githubusercontent.com/wch/r-source/trunk/share/licenses/license.db")
n <- 1
DT::datatable(dplyr::bind_rows(lapply(which(grepl("^$", lic)), function(i) {
  bits <- strsplit(lic[(n+1):(i-1)], ": ")
  n <<- i
  as.data.frame(t(sapply(bits, function(x) setNames(x[2], x[1]))), stringsAsFactors=FALSE)
})))