package.r

#!/usr/bin/env Rscript

if (!require(pacman, quiet = TRUE)) install.packages("pacman")

pacman::p_load(docopt, dplyr, stringr, purrr)

"
Usage:
  package.r [options] <pkgname>
  package.r <pkgname> [-i <import>...]

Options:
  -r --raw-data                            Use raw data
  -i import..., --import import            Specify imports (comma separated)
  -v --verbose

" -> doc

opts <- docopt(doc)

if (opts$verbose) print(opts)

devtools::create(opts$pkgname)

if (isTRUE(opts$`raw-data`)) devtools::use_data_raw(opts$pkgname)

opts$import %>%
    map(partial(devtools::use_package, pkg = opts$pkgname)) %>%
    invisible