Fix #7 double slashes, start working on unit tests

R/loadConfig.R

@@ -142,7 +142,13 @@ expandPath = function(path) {
   if (length(parts) < 2) { return(parts) }
   if (identical(".", parts[1])) { parts = parts[2:length(parts)] }
 
-  # Expand any environment variables and return the complete path.
+  # Expand any environment variables and return the complete path
+  if(.Platform$OS.type=="unix") {
+    # Prevent double slashes
+    if(any(parts=="/")){
+      parts[which(parts=="/")]=""
+    }
+  }
   fullPath = do.call(file.path, lapply(parts, expand))
   return(fullPath)
 }

tests/testthat/test_utils.R

@@ -0,0 +1,13 @@
+context("Utils")
+
+DF=mtcars
+newDF=listifyDF(DF)
+
+test_that("listifyDF is a yields correct object type", {
+  expect_is(listifyDF(DF = DF),'data.frame')
+  expect_is(listifyDF(DF = DF)[[1]],'list')
+})
+
+test_that("listifyDF does not change the dimensions",{
+  expect_equal(dim(listifyDF(DF)), dim(DF))
+})