Skip to content

Commit 50a1d62

Browse files
authored
refactor: ⚰️ remove is_same_register() (#187)
# Description Not used anymore. Thought I had done this already; maybe it slipped back in a merge conflict. Needs no review. ## Checklist - [X] Ran `just run-all`
1 parent 7a37395 commit 50a1d62

File tree

1 file changed

+0
-17
lines changed

1 file changed

+0
-17
lines changed

R/convert.R

Lines changed: 0 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -258,23 +258,6 @@ column_names_to_lower <- function(data) {
258258
dplyr::rename_with(data, tolower)
259259
}
260260

261-
#' Check that all file paths are from the same register
262-
#'
263-
#' Checks that all register names (file names without any non-letters) in
264-
#' `path` are identical, i.e., the registers have the same name.
265-
#'
266-
#' @param path Paths to SAS register files.
267-
#'
268-
#' @returns `TRUE` if all paths share the same register name.
269-
#'
270-
#' @keywords internal
271-
#' @noRd
272-
is_same_register <- function(path) {
273-
register_names <- get_register_names(path)
274-
275-
length(unique(register_names)) == 1L
276-
}
277-
278261
#' Get the register names from file paths
279262
#'
280263
#' Removes all non-letters from the file names in `path`.

0 commit comments

Comments
 (0)