#1 Change fx names

pharmaverse · Feb 2, 2022 · 3447850 · 3447850
1 parent 52515dd
commit 3447850
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 14 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -10,8 +10,8 @@ export(create_subgrps)
 export(create_var_from_codelist)
 export(drop_unspec_vars)
 export(metatools_example)
-export(sort_key)
-export(sort_order)
+export(order_cols)
+export(sort_by_key)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,across)
 importFrom(dplyr,all_of)

diff --git a/R/sort.R b/R/sort.R
@@ -21,8 +21,8 @@
 #' spec <- define_to_metacore(metacore_example("ADaM_define.xml"), quiet = TRUE) %>%
 #'   select_dataset("ADSL")
 #' data <- read_xpt(metatools_example("adsl.xpt"))
-#' sort_order(data, spec)
-sort_order <- function(data, metacore, dataset_name = NULL) {
+#' order_cols(data, spec)
+order_cols <- function(data, metacore, dataset_name = NULL) {
   metacore <- make_lone_dataset(metacore, dataset_name)
   var_ord <- metacore$ds_vars %>%
     filter(!is.na(.data$order)) %>%
@@ -55,8 +55,8 @@ sort_order <- function(data, metacore, dataset_name = NULL) {
 #' spec <- define_to_metacore(metacore_example("ADaM_define.xml"), quiet = TRUE) %>%
 #'   select_dataset("ADSL")
 #' data <- read_xpt(metatools_example("adsl.xpt"))
-#' sort_key(data, spec)
-sort_key <- function(data, metacore, dataset_name = NULL) {
+#' sort_by_key (data, spec)
+sort_by_key <- function(data, metacore, dataset_name = NULL) {
   metacore <- make_lone_dataset(metacore, dataset_name)
   var_ord <- metacore$ds_vars %>%
     filter(!is.na(.data$key_seq)) %>%

diff --git a/man/sort_order.Rd → man/order_cols.Rd b/man/sort_order.Rd → man/order_cols.Rd
diff --git a/man/sort_key.Rd → man/sort_by_key.Rd b/man/sort_key.Rd → man/sort_by_key.Rd