Fix reordering numeric `group_id` and also use `..` data table prefix

R/plot-spc-extended.R

@@ -267,10 +267,10 @@ merge_dts_l <- function(spc_tbl_l,
 # order when converted to numeric type
 # https://stackoverflow.com/questions/15665535/reorder-factors-numerically-in-a-data-frame
 # ------------------------------------------------------------------------------
-reorder_factor_num <- function(dt, column) {
+reorder_factor_num <- function(dt, column = "group_id") {
   group_id <- NULL
   if(!any(is.na(
-    suppressWarnings(as.numeric(dt[, group_id, with = FALSE]))))
+    suppressWarnings(as.numeric(dt[, group_i, with = FALSE]))))
   ) {
     dt[, group_id := as.factor(group_id)]
     sorted_labels <- paste(sort(as.numeric(levels(dt$group_id))))