Closed Joaobazzo closed 2 years ago
Here.
# aggregate emissions and reorder tmp_dt <- tmp_dt[, lapply(.SD, sum, na.rm = TRUE), .SDcols = !("time"), by = time] newCols <- names(tmp_dt)[!(names(tmp_dt) %in% "time")] data.table::setcolorder(tmp_dt, neworder = c(newCols,"time"))
Here.