make_pkg_descriptions.R

# for the release announcement, a list of new package names and their Description fields
# start with 'pkgs' which is a vector of new package names
# manually generate this by diffing the last 2 manifests

f <- function(pkg) {
  desc <- sprintf("%s/DESCRIPTION", pkg)
  dcf <- read.dcf(desc)
  desc <- dcf[,'Description']
  names(desc) <- pkg
  desc
}

descs <- unlist(lapply(sort(pkgs), f))

x <- ""

for(name in names(descs)) {
  x <<- paste0(x, "\n\n", name, " - ", gsub("\n", " ", unname(descs[name])))
}

cat(x, file="some.file.txt")