1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 11:01:57 +02:00

(v0.8.0.9003) printing fix for AB columns

This commit is contained in:
2019-10-23 15:44:11 +02:00
parent 3e5ab53209
commit c01dc8a5b7
11 changed files with 19 additions and 17 deletions

View File

@ -118,7 +118,7 @@ get_column_abx <- function(x,
verbose = FALSE,
...) {
message(blue("NOTE: Auto-guessing columns suitable for analysis..."))
message(blue("NOTE: Auto-guessing columns suitable for analysis..."), appendLF = FALSE)
x <- as.data.frame(x, stringsAsFactors = FALSE)
x_bak <- x
@ -169,6 +169,9 @@ get_column_abx <- function(x,
duplicates <- x[base::duplicated(x)]
x <- x[!names(x) %in% names(duplicates)]
# succeeded with aut-guessing
message(blue("OK."))
if (verbose == TRUE) {
for (i in seq_len(length(x))) {
message(blue(paste0("NOTE: Using column `", bold(x[i]), "` as input for `", names(x)[i],