Fix: flatplot fix factors for 0.0.6

quantixed · quantixed · commit 1b3a9ba77ab9 · 2025-03-07T16:07:54.000Z
diff --git a/R/flatplot.R b/R/flatplot.R
@@ -66,7 +66,8 @@ flatplot <- function(df,
   }
 
   # if the cond column is not character, convert it
-  if (!is.character(df[[cond]])) {
+  # but only if it is not already a factor
+  if (!is.factor(df[[cond]]) && !is.character(df[[cond]])) {
     df[[cond]] <- as.character(df[[cond]])
   }
 

Original file line number	Diff line number	Diff line change
`@@ -66,7 +66,8 @@ flatplot <- function(df,`
`66`	`66`	`}`
`67`	`67`
`68`	`68`	`# if the cond column is not character, convert it`
`69`		`- if (!is.character(df[[cond]])) {`
	`69`	`+ # but only if it is not already a factor`
	`70`	`+ if (!is.factor(df[[cond]]) && !is.character(df[[cond]])) {`
`70`	`71`	`df[[cond]] <- as.character(df[[cond]])`
`71`	`72`	`}`
`72`	`73`