id, date and title as first columns

Docma-TU · Jun 12, 2019 · 780085c · 780085c
1 parent 8797ba9
commit 780085c
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/R/as.meta.R b/R/as.meta.R
@@ -47,5 +47,9 @@ as.meta <- function(x, cols = colnames(x), idCol = "id", dateCol = "date", title
   colnames(x)[colnames(x) == idCol] <- "id"
   colnames(x)[colnames(x) == titleCol] <- "title"
 
+  # firstThreeCols = c("id", "date", "title")
+  # x = x[,match(c(firstThreeCols, setdiff(colnames(x), firstThreeCols)), colnames(x))]
+  x <- cbind(x[,c("id", "date", "title")], x[,!(colnames(x) %in% c("id", "date", "title"))])
+
   invisible(x)
 }
diff --git a/tests/testthat/test_as.meta.R b/tests/testthat/test_as.meta.R
@@ -10,4 +10,6 @@ test_that("as.textmeta.corpus", {
   meta <- meta[, -1]
   expect_true(isMeta(as.meta(meta, dateFormat = "%Y-%m-%d")))
 
+  expect_equal(colnames(as.meta(meta))[1:3], c("id", "date", "title"))
+
 })