Merge pull request #73 from koheiw/add-concatenator

Save concatenator
koheiw · Feb 21, 2024 · c97e024 · c97e024
2 parents b96c498 + 6617718
commit c97e024
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/textmodel.R b/R/textmodel.R
@@ -125,6 +125,7 @@ textmodel_newsmap.dfm <- function(x, y, label = c("all", "max"), smooth = 1.0, d
                    data = x,
                    weight = NULL,
                    feature = colnames(model),
+                   concatenator = meta(x, field = "concatenator", type = "object"),
                    call = match.call(sys.function(-1), call = sys.call(-1)),
                    version = utils::packageVersion("newsmap"))
     if (entropy != "none")

diff --git a/tests/testthat/test-textmodel.R b/tests/testthat/test-textmodel.R
@@ -71,7 +71,8 @@ test_that("methods for textmodel_newsmap works correctly", {
 
     expect_equal(
         names(map),
-        c("model", "entropy", "data", "weight", "feature", "call", "version")
+        c("model", "entropy", "data", "weight", "feature",
+          "concatenator", "call", "version")
     )
 
     # class association is calculated correctly