P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 13:21:50 +02:00
Code Releases Activity

(v1.2.0.9001) filter_ab_class() update

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-06-03 11:48:00 +02:00
parent 02d07b9fb3
commit 5dc4c96b7d
18 changed files with 159 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/guess_ab_col.R
View File

@ -160,6 +160,11 @@ get_column_abx <- function(x,
x <- x[!is.na(x)]
}
if (length(x) == 0) {
message(font_blue("No columns found."))
return(x)
}
# sort on name
x <- x[order(names(x), x)]
duplicates <- c(x[base::duplicated(x)], x[base::duplicated(names(x))])
@ -167,7 +172,7 @@ get_column_abx <- function(x,
x <- c(x[!names(x) %in% names(duplicates)], duplicates)
x <- x[order(names(x), x)]
# succeeded with aut-guessing
# succeeded with auto-guessing
message(font_blue("OK."))
for (i in seq_len(length(x))) {