From 8dd9a823935cbc16a54210ca6d0759baaa28e3c2 Mon Sep 17 00:00:00 2001
From: Aric Prieve <77032411+arprieve@users.noreply.github.com>
Date: Tue, 14 Nov 2023 15:39:30 -0800
Subject: [PATCH] Remove no space requirement for paths in AllClasses.R

---
 R/AllClasses.R | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/R/AllClasses.R b/R/AllClasses.R
index 314c4182..f7ecfd8d 100644
--- a/R/AllClasses.R
+++ b/R/AllClasses.R
@@ -107,13 +107,7 @@ ArchRProject <- function(
   .validInput(input = showLogo, name = "showLogo", valid = "boolean")
   .validInput(input = threads, name = "threads", valid = c("integer"))
 
-  if(grepl(" ", outputDirectory)){
-    stop("outputDirectory cannot have a space in the path! Path : ", outputDirectory)
-  }
   dir.create(outputDirectory,showWarnings=FALSE)
-  if(grepl(" ", normalizePath(outputDirectory))){
-    stop("outputDirectory cannot have a space in the full path! Full path : ", normalizePath(outputDirectory))
-  }
   sampleDirectory <- file.path(normalizePath(outputDirectory), "ArrowFiles")
   dir.create(sampleDirectory,showWarnings=FALSE)
 
@@ -498,10 +492,6 @@ saveArchRProject <- function(
   .validInput(input = overwrite, name = "overwrite", valid = "boolean")
   .validInput(input = load, name = "load", valid = "boolean")
 
-  if(grepl(" ", outputDirectory)){
-    stop("outputDirectory cannot have a space in the path! Path : ", outputDirectory)
-  }
-
   dir.create(outputDirectory, showWarnings=FALSE)
   outputDirectory <- normalizePath(outputDirectory)
   outDirOld <- normalizePath(getOutputDirectory(ArchRProj))