From f17a8da3859f001856704cc873dcb6859dea68dd Mon Sep 17 00:00:00 2001
From: Mathieu Loiseau <mathieu.loiseau@univ-grenoble-alpes.fr>
Date: Mon, 10 Dec 2018 18:58:23 +0100
Subject: [PATCH] Now works with just one field
---
R/class.R | 40 +++++++++++++++++++++++++++++-----------
1 file changed, 29 insertions(+), 11 deletions(-)
diff --git a/R/class.R b/R/class.R
index 6796d1a..e8fd98b 100644
--- a/R/class.R
+++ b/R/class.R
@@ -345,8 +345,14 @@ Batchator <- R6Class("Batchator",
loadContent = function(file_path){
tryCatch({
csvM <- read.csv(file=file_path, header = FALSE)
- self$field_list <- as.vector(t(csvM[1,]))
- self$content <- csvM[-1,]
+ if(ncol(csvM) == 1){
+ self$field_list <- as.vector(csvM[1,])
+ self$content <- as.vector(csvM[-1,])
+ }
+ else{
+ self$field_list <- as.vector(t(csvM[1,]))
+ self$content <- csvM[-1,]
+ }
},
error = function(e){
print(paste(e$message, "No content loaded"))
@@ -365,21 +371,33 @@ Batchator <- R6Class("Batchator",
warning("Either no content or no templates, use loadContent, setPageNamePattern and/or loadTemplate.")
}
else{
- for(i in 1:nrow(self$content)){
- self$wiki$resetContent(str_replace_all(self$template,
- setNames(as.vector(t(self$content[i,])),
- self$field_list)))
- self$wiki$setPage(str_replace_all(self$page_name_pattern,
- setNames(as.vector(t(self$content[i,])),
- self$field_list)))
- self$wiki$postContent()
+ if(!is.null(nrow(self$content))){
+ for(i in 1:nrow(self$content)){
+ self$wiki$resetContent(str_replace_all(self$template,
+ setNames(as.vector(t(self$content[i,])),
+ self$field_list)))
+ self$wiki$setPage(str_replace_all(self$page_name_pattern,
+ setNames(as.vector(t(self$content[i,])),
+ self$field_list)))
+ self$wiki$postContent()
+ }
+ }
+ else{
+ for(i in 1:length(self$content)){
+ self$wiki$resetContent(str_replace_all(self$template,
+ setNames(as.vector(t(self$content[i])),
+ self$field_list)))
+ self$wiki$setPage(str_replace_all(self$page_name_pattern,
+ setNames(as.vector(t(self$content[i])),
+ self$field_list)))
+ self$wiki$postContent()
+ }
}
}
},
error = function(e){
print(e$message)
})
-
}
)
)
--
GitLab