turtlesOwn() when tVal = NA consider NA as numerical and not character

NA will be considered as character (and the whole column as character) when "NA" is given.
Otherwise, missing data or NA will be considered as numerical

R/turtle-functions.R

@@ -2711,6 +2711,8 @@ setMethod(
 #' @param tVal    Vector representing the values of `tVar`.
 #'                Must be of length 1 or of length `turtles`.
 #'                If missing, `NA` is given.
+#'                If missing or if `NA` is given, the column will be `numeric`.
+#'                To be a `character` column, `"NA"` must be given.
 #'
 #' @return `AgentMatrix` representing the `turtles` with the new
 #'         variable `tVar` added.
@@ -2755,7 +2757,7 @@ setMethod(
   "turtlesOwn",
   signature = c("agentMatrix", "character", "ANY"),
   definition = function(turtles, tVar, tVal) {
-    if (inherits(tVal, "numeric") | inherits(tVal, "integer")) {
+    if (inherits(tVal, "numeric") | inherits(tVal, "integer") | inherits(tVal, "logical")) {
       turtles@.Data <- cbind(turtles@.Data, newCol = tVal)
       colnames(turtles@.Data)[ncol(turtles@.Data)] <- tVar
     } else {

tests/testthat/test-turtle-functions.R

@@ -1313,6 +1313,9 @@ test_that("turtlesOwn works", {
   ))
   expect_identical(t5@.Data, cbind(t1@.Data, female = c(2, 2, 1, 1, 1)))
   expect_equivalent(t5@levels$female, c("FALSE", "TRUE"))
+  t6 <- turtlesOwn(turtles = t1, tVar = "numericalValue", tVal = NA)
+  t6 <- NLset(turtles = t6, agents = NLwith(agents = t6, var = "who", val = 3), var = "numericalValue", val = 6)
+  expect_true(class(of(agents = t6, var = "numericalValue")) == "numeric")
 })
 
 test_that("subHeadings works", {