Fix for data types #35

NEWS.md

@@ -1,6 +1,7 @@
 # common 1.1.2
 
 * Added `source.all()` function.
+* Fix for data type on `subsc()` and `supsc()`.
 
 # common 1.1.1
 

R/subsc.R

@@ -32,6 +32,10 @@ subsc <- function(x) {
   ret <- c()
   val <- c()
 
+  if (!is.character(x)) {
+    x <- as.character(x)
+  }
+
   lnms <- names(sublower)
   unms <- names(subupper)
 

R/supsc.R

@@ -34,10 +34,13 @@
 #' @export
 supsc <- function(x) {
 
-
   ret <- c()
   val <- c()
 
+  if (!is.character(x)) {
+    x <- as.character(x)
+  }
+
   lnms <- names(suplower)
   unms <- names(supupper)
 

docs/pkgdown.yml

@@ -3,7 +3,7 @@ pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   common: common.html
-last_built: 2024-03-03T22:54Z
+last_built: 2024-03-04T13:41Z
 urls:
   reference: https://common.r-sassy.org/reference
   article: https://common.r-sassy.org/articles

tests/testthat/test-supsub.R

@@ -62,6 +62,13 @@ test_that("super3: Superscript other characters work as expected.", {
 })
 
 
+test_that("super4: Non-character arguments turned to character without error.", {
+
+  ret2 <- supsc(1)
+
+  expect_equal(TRUE, TRUE)
+
+})
 
 
 test_that("sub1: Subscript lower case letters work as expected.", {
@@ -118,5 +125,12 @@ test_that("sub3: Subscript other characters work as expected.", {
 })
 
 
+test_that("sub4: Non-character arguments turned to character without error.", {
 
+  ret <- subsc(1)
+
+
+  expect_equal(TRUE, TRUE)
+
+})