P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 01:22:25 +02:00
Code Releases Activity

(v1.6.0.9010) big first_isolate() update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-04-26 23:57:37 +02:00
parent 5f9e7bd3ee
commit 93683a4ae2
38 changed files with 1134 additions and 933 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
R/guess_ab_col.R
View File

@ -102,6 +102,7 @@ get_column_abx <- function(x,
verbose = FALSE,
info = TRUE,
only_rsi_columns = FALSE,
sort = TRUE,
...) {
meet_criteria(x, allow_class = "data.frame")
meet_criteria(soft_dependencies, allow_class = "character", allow_NULL = TRUE)
@ -109,6 +110,7 @@ get_column_abx <- function(x,
meet_criteria(verbose, allow_class = "logical", has_length = 1)
meet_criteria(info, allow_class = "logical", has_length = 1)
meet_criteria(only_rsi_columns, allow_class = "logical", has_length = 1)
meet_criteria(sort, allow_class = "logical", has_length = 1)
if (info == TRUE) {
message_("Auto-guessing columns suitable for analysis", appendLF = FALSE, as_note = FALSE)
@ -186,11 +188,15 @@ get_column_abx <- function(x,
}
# sort on name
x <- x[order(names(x), x)]
if (sort == TRUE) {
x <- x[order(names(x), x)]
}
duplicates <- c(x[duplicated(x)], x[duplicated(names(x))])
duplicates <- duplicates[unique(names(duplicates))]
x <- c(x[!names(x) %in% names(duplicates)], duplicates)
x <- x[order(names(x), x)]
if (sort == TRUE) {
x <- x[order(names(x), x)]
}
# succeeded with auto-guessing
if (info == TRUE) {