1maptools <- function(changes=FALSE) { 2 .DESC <- packageDescription("maptools") 3 cat(.DESC[["Package"]], ", version ", .DESC[["Version"]], 4 ", ", .DESC[["Date"]], "\n", sep="") 5 .CH <- NULL 6 if (changes) { 7 cat("\n") 8 file <- system.file("changes", package = "maptools") 9 .CH <- scan(file, list(version="character", 10 changes="character"), sep="\t", quiet=TRUE) 11 for (i in length(.CH$changes):1) { 12 cat(unlist(strsplit(.CH$changes[i], " ")), fill=TRUE, 13 labels=.CH$version[i]) 14 cat("\n") 15 } 16 } 17 invisible(.CH) 18} 19 20