Fix mistyping in commit b14a4db

6 years ago · 0f0a8857c8
1 changed files with 2 additions and 2 deletions
--- a/R/plot-spc-extended.R
+++ b/R/plot-spc-extended.R
@ -269,8 +269,8 @@ merge_dts_l <- function(spc_tbl_l,
 # ------------------------------------------------------------------------------
 reorder_factor_num <- function(dt, column = "group_id") {
  group_id <- NULL
-  if(!any(is.na(
-    suppressWarnings(as.numeric(dt[, group_i, with = FALSE]))))
+  if (!any(is.na(
+    suppressWarnings(as.numeric(dt[, ..column]))))
  ) {
    dt[, group_id := as.factor(group_id)]
    sorted_labels <- paste(sort(as.numeric(levels(dt$group_id))))