From 80f40a47b512dd9e94bd8e8b8abc41991c3f9c87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Thu, 30 May 2019 12:47:48 +0200
Subject: [PATCH] More typos
---
R/run.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/run.R b/R/run.R
index 557f24c..b503cc5 100644
--- a/R/run.R
+++ b/R/run.R
@@ -36,7 +36,7 @@ sw.do<-function(fn_data,fn_cmpd_list,mode,rdir=".") {
no_drama_mkdir(rdir)
wdirs<-sapply(basename(fn_data),function(nm) file.path(rdir,stripext(nm)))
- sapply(wdirs,mkdir)
+ sapply(wdirs,no_drama_mkdir)
stgs<-sapply(basename(wdirs),function (nm) paste(nm,"yml",sep='.'))
v(fn_data,stgs,wdirs,fn_cmpd_list,mode)
}
@@ -55,7 +55,7 @@ sw.do<-function(fn_data,fn_cmpd_list,mode,rdir=".") {
##' @export
mb.prep<-function(w,rdir=".") {
idir<-function(n) file.path(rdir,stripext(n))
- sapply(names(w),function (n) mkdir(file.path(idir(n),"info")))
+ sapply(names(w),function (n) no_drama_mkdir(file.path(idir(n),"info")))
fn_info<-sapply(names(w),function (n) file.path(idir(n),"info",attch(n,'.info.csv')))
fn_stgs<-sapply(names(w),function(n) file.path(idir(n),attch(n,'.ini')))
mb.prep.v(w,fn_info,fn_stgs)
--
GitLab