From c16d387b018ed767375bdf49319b0ebdc8d532aa Mon Sep 17 00:00:00 2001
From: Mauro Lepore <maurolepore@gmail.com>
Date: Fri, 26 Jan 2024 22:05:35 +0000
Subject: [PATCH] Update usage of tidyselect expression

---
 R/add_var.R        | 2 +-
 R/pick_main_stem.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/add_var.R b/R/add_var.R
index ffe7c32..5098eba 100644
--- 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
index 4979478..368b822 100644
--- 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