diff --git a/R/class.R b/R/class.R index 6796d1a09e7cd28074f742d943b44a5af3db4085..e8fd98b5c4e2933974abce13e64657ef9edd60ca 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) }) - } ) )