-get_license <- function(pkg,license) {
- license <- chomp(gsub('[[:space:]]+',' ',license))
- if (length(grep('^file ',license))) {
- if (length(grep('^file LICEN[CS]E$',license))) {
- file = gsub('file ','',license)
+get_license <- function(pkg,license,verbose=FALSE) {
+ license <- gsub('[[:space:]]+$',' ',license)
+ if (length(grep('^file\\s',license))) {
+ notice("License recognised as 'file'-based license.")
+ if (length(grep('^file\\s+LICEN[CS]E$',license))) {
+ file = gsub('file\\s+','',license)