more checkmate

Author: berndbischl

R/parallelExport.R

@@ -28,7 +28,7 @@
 #' @export
 parallelExport = function(..., objnames, master=TRUE, level=NA_character_, show.info=NA) {
   args = list(...)
-  checkListElementClass(args, "character")
+  assertList(args, types = "character")
   if (!missing(objnames)) {
     assertCharacter(objnames, any.missing = FALSE)
     objnames = c(as.character(args), objnames)

R/parallelLibrary.R

@@ -28,7 +28,7 @@
 #' @export
 parallelLibrary = function(..., packages, master=TRUE, level=as.character(NA), show.info=NA) {
   args = list(...)
-  checkListElementClass(args, "character")
+  assertList(args, types = "character")
   if (!missing(packages)) {
     assertCharacter(packages, any.missing = FALSE)
     packages = c(as.character(args), packages)

R/parallelSource.R

@@ -28,7 +28,7 @@
 #' @export
 parallelSource = function(..., files, master=TRUE, level=as.character(NA), show.info=NA) {
   args = list(...)
-  checkListElementClass(args, "character")
+  assertList(args, types = "character")
   if (!missing(files)) {
     assertCharacter(files, any.missing = FALSE)
     files = c(as.character(args), files)

R/parallelStart.R

@@ -101,8 +101,7 @@ parallelStart = function(mode, cpus, socket.hosts, bj.resources=list(), logging,
   # multicore not supported on windows
   if (mode == MODE_MULTICORE && .Platform$OS.type == "windows")
     stop("Multicore mode not supported on windows!")
-  # check that storagedir is indeed a valid dir
-  checkDir("Storage", storagedir)
+  assertDirectory(storagedir, access = "w")
 
   # store options for session, we already need them for helper funs below
   options(parallelMap.mode = mode)

R/utils.R

@@ -1,10 +1,3 @@
-# check dir exists and is indeed a dir
-checkDir = function(dirname, dir) {
-  if (!file.exists(dir))
-    stopf("%s directory does not exists: %s", dirname, dir)
-  if (!isDirectory(dir))
-    stopf("% directory is not a directory: %s", dirname, dir)
-}
 
 isShowInfoEnabled = function() {
   getPMOptShowInfo()