better stable solution to handle relative path added #1

kassambara · Apr 14, 2017 · ec214df · ec214df
1 parent 3c329d1
commit ec214df
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/qc_report.R b/R/qc_report.R
@@ -39,7 +39,7 @@ qc_report <- function(qc.path, result.file, experiment = NULL,
                       interpret = FALSE, template = NULL, preview = TRUE)
   {
 
-  if(qc.path == ".")
+  if(qc.path == ".") 
     qc.path <- getwd()
   # partial match of sample file name
   # file = "samplename"
@@ -56,6 +56,7 @@ qc_report <- function(qc.path, result.file, experiment = NULL,
 
   if(!.path.exists(qc.path))
     stop("Specified QC path doesn't exist.")
+  qc.path <- normalizePath(qc.path)
 
   .create_dir(dirname(result.file))