v0.14.0

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: bowerbird
 Type: Package
 Title: Keep a Collection of Sparkly Data Resources
-Version: 0.13.3
+Version: 0.14.0
 Authors@R: c(person("Ben", "Raymond", email = "ben.raymond@aad.gov.au", role = c("aut", "cre")),
              person("Michael", "Sumner", role = "aut"),
              person("Miles", "McBain", email = "miles.mcbain@gmail.com", role = c("rev", "ctb")),

R/rget.R

@@ -65,14 +65,6 @@ bb_handler_rget_inner <- function(config, verbose = FALSE, local_dir_only = FALS
     if (!is.na(cfrow$user) && nchar(cfrow$user)>0) this_flags <- c(this_flags,list(user=cfrow$user))
     if (!is.na(cfrow$password) && nchar(cfrow$password)>0) this_flags <- c(this_flags,list(password=cfrow$password))
 
-    ##if (!is.null(cfrow$dry_run) && cfrow$dry_run) {
-    ##    if (verbose) {
-    ##        temp <- vapply(seq_len(length(this_flags)),function(z)paste0(names(this_flags)[z],"=",this_flags[z]),FUN.VALUE="",USE.NAMES=FALSE)
-    ##        cat(sprintf(" dry_run is TRUE, not executing bb_rget with parameters: url=\"%s\", %s\n",cfrow$source_url,paste(temp,collapse=", ")))
-    ##    }
-    ##    ok <- TRUE
-    ##} else {
-
     ## if dry_run, still call bb_rget
     if (!is.null(cfrow[["dry_run"]]) && !is.na(cfrow$dry_run)) {
         this_flags$dry_run <- cfrow$dry_run