tolower then factor, order is important to prevent char conversion

rte-antares-rpackage · Nov 13, 2024 · 269d511 · 269d511
1 parent 8f50418
commit 269d511
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/importOutput.R b/R/importOutput.R
@@ -334,10 +334,9 @@
 
   cols_to_factor_lower <- c("area", "link", "cluster")
   cols_to_factor_lower <- intersect(cols_to_factor_lower, res_cols)
-  res[,(cols_to_factor_lower):=lapply(.SD, as.factor), .SDcols=cols_to_factor_lower]
-
   #To remove when endpoint will not send uppercase anymore
   res[,(cols_to_factor_lower):=lapply(.SD, tolower), .SDcols=cols_to_factor_lower]
+  res[,(cols_to_factor_lower):=lapply(.SD, as.factor), .SDcols=cols_to_factor_lower]
 
   cols_to_integer <- c("timeId")
   cols_to_integer <- intersect(cols_to_integer, res_cols)