Merge pull request #10 from InsightRX/cmt-integer

roninsightrx · web-flow · commit 0b430f448819 · 2026-05-20T09:16:00.000-07:00
fix integer-numeric issue in dataset conversion
diff --git a/R/reformat_data_nca_to_modeling.R b/R/reformat_data_nca_to_modeling.R
@@ -146,7 +146,7 @@ reformat_data_nca_to_modeling <- function(
   ## Convert remaining character columns to categorical (but numeric)
   for(key in names(comb)) {
     if (key %in% already_encoded) next
-    if(! inherits(comb[[key]], "numeric")) {
+    if(! rlang::inherits_any(comb[[key]], c("integer", "numeric"))) {
       suppressWarnings(
         comb[[key]] <- match(comb[[key]], unique(comb[[key]]))
       )

Original file line number	Diff line number	Diff line change
`@@ -146,7 +146,7 @@ reformat_data_nca_to_modeling <- function(`
`146`	`146`	`## Convert remaining character columns to categorical (but numeric)`
`147`	`147`	`for(key in names(comb)) {`
`148`	`148`	`if (key %in% already_encoded) next`
`149`		`- if(! inherits(comb[[key]], "numeric")) {`
	`149`	`+ if(! rlang::inherits_any(comb[[key]], c("integer", "numeric"))) {`
`150`	`150`	`suppressWarnings(`
`151`	`151`	`comb[[key]] <- match(comb[[key]], unique(comb[[key]]))`
`152`	`152`	`)`