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