fix: if length 4.3.0 #520

JohnCoene · May 4, 2023 · 85324f3 · 85324f3
1 parent be11ed0
commit 85324f3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -29,15 +29,15 @@ globalVariables(c("x", "e", ".", "acc", "epoch", "loss", "size", "val_acc", "val
 .assign_axis <- function(x, data) {
   x$mapping$include_x <- FALSE
   cl <- x$mapping$x_class
-  if (cl == "character" || cl == "factor") {
+  if (any(c("factor", "character") %in% cl)) {
     labs <- unique(data[[x$mapping$x]])
 
     if (length(labs) == 1) {
       labs <- list(labs)
     }
 
     x$opts$xAxis <- list(list(data = labs, type = "category", boundaryGap = TRUE))
-  } else if (cl == "POSIXct" || cl == "POSIXlt" || cl == "Date") {
+  } else if (any(c("POSIXct", "POSIXlt", "Date") %in% cl)) {
     labs <- unique(data[[x$mapping$x]])
 
     if (length(labs) == 1) {