Update usage of tidyselect expression

forestgeo · Jan 26, 2024 · c16d387 · c16d387
1 parent 6c78889
commit c16d387
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/add_var.R b/R/add_var.R
@@ -283,7 +283,7 @@ rename_pxpy <- function(data) {
 
 restore_pxpy_if_necessary <- function(data_, data) {
   if (rename_pxpy(data)) {
-    data_ <- dplyr::rename(data_, px = .data$gx, py = .data$gy)
+    data_ <- dplyr::rename(data_, px = "gx", py = "gy")
   }
   data_
 }

diff --git a/R/pick_main_stem.R b/R/pick_main_stem.R
@@ -79,7 +79,7 @@ pick_main_f <- function(stemid = TRUE, treeid = TRUE) {
     data_ <- pick_stemid_treeid(data_, stemid = stemid, treeid = treeid)
 
     # Restore rows order
-    data_ <- select(arrange(data_, .data$rowid), -.data$rowid)
+    data_ <- select(arrange(data_, .data$rowid), -"rowid")
     # Restore original names
     out <- rename_matches(data_, data)
     # Restore original groups