args <- commandArgs(TRUE)
dir <- args[1]
type <- args[2]

tools:::write_PACKAGES(dir, verbose=TRUE, type=type)