Closes #154

ipeaGIT · Feb 27, 2021 · b85eebe · b85eebe
1 parent 7fccd20
commit b85eebe
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/r-package/R/utils.R b/r-package/R/utils.R
@@ -171,8 +171,7 @@ assert_points_input <- function(df, name) {
       data.table::setDT(df)
       data.table::setnames(df, "x", "lon")
       data.table::setnames(df, "y", "lat")
-      data.table::setnames(df, names(df)[1], "id")
-
+      checkmate::assert_names(names(df), must.include = c("id"), .var.name = name)
     }
 
     checkmate::assert_names(names(df), must.include = c("id", "lat", "lon"), .var.name = name)