| ... | ... |
@@ -104,6 +104,10 @@ makeCNEDensity <- function(x, outputDir=".", |
| 104 | 104 |
warning("No CNEs in `x`!")
|
| 105 | 105 |
return(FALSE) |
| 106 | 106 |
} |
| 107 |
+ |
|
| 108 |
+ ## Always try to create the output folder |
|
| 109 |
+ dir.create(outputDir, showWarnings=FALSE, recursive=TRUE) |
|
| 110 |
+ |
|
| 107 | 111 |
## make the bed files |
| 108 | 112 |
message("Making bed files...")
|
| 109 | 113 |
bedFirst <- first(x) |
