Merge pull request #807 from markfairbanks/internal-cleanup

Some internal cleanup
markfairbanks · Apr 1, 2024 · 98499f9 · 98499f9
2 parents ad1d195 + b4a45a3
commit 98499f9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 7 deletions.
diff --git a/R/nest_by.R b/R/nest_by.R
@@ -65,7 +65,3 @@ nest_by.data.frame <- function(.df, ..., .key = "data", .keep = FALSE) {
   nest_by(.df, ..., .key = .key, .keep = .keep)
 }
 
-tt_nest_by <- function(.df, ..., .key = "data", .keep = FALSE) {
-
-}
-
diff --git a/R/select.R b/R/select.R
@@ -41,12 +41,12 @@ select <- function(.df, ...) {
 
 #' @export
 select.tidytable <- function(.df, ...) {
-  tt_select(.df, ...)
+  .select(.df, ...)
 }
 
 #' @export
 select.grouped_tt <- function(.df, ...) {
-  tt_select(.df, ..., group_cols())
+  .select(.df, ..., group_cols())
 }
 
 #' @export
@@ -55,7 +55,7 @@ select.data.frame <- function(.df, ...) {
   select(.df, ...)
 }
 
-tt_select <- function(.df, ...) {
+.select <- function(.df, ...) {
   locs <- tidyselect_locs(.df, ...)
 
   out <- new_data_frame(.df)[locs]
-Original file line number
+Diff line change
@@ Expand Up @@
       nest_by(.df, ..., .key = .key, .keep = .keep)
     }
-    tt_nest_by <- function(.df, ..., .key = "data", .keep = FALSE) {
-    }