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

(v0.8.0.9033) antivirals data set, cleanup

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-11-18 12:10:47 +01:00
parent 67f3f4387b
commit 267320f15f
97 changed files with 1131 additions and 644 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
R/mo.R
View File

@ -572,22 +572,21 @@ exec_as.mo <- function(x,
# add start en stop regex
x <- paste0("^", x, "$")
x_withspaces_start_only <- paste0("^", x_withspaces)
x_withspaces_end_only <- paste0(x_withspaces, "$")
x_withspaces_start_end <- paste0("^", x_withspaces, "$")
if (isTRUE(debug)) {
cat(paste0(blue('x'), ' "', x, '"\n'))
cat(paste0(blue('x_species'), ' "', x_species, '"\n'))
cat(paste0(blue('x_withspaces_start_only'), ' "', x_withspaces_start_only, '"\n'))
cat(paste0(blue('x_withspaces_end_only'), ' "', x_withspaces_end_only, '"\n'))
cat(paste0(blue('x_withspaces_start_end'), ' "', x_withspaces_start_end, '"\n'))
cat(paste0(blue('x_backup'), ' "', x_backup, '"\n'))
cat(paste0(blue('x_backup_without_spp'), ' "', x_backup_without_spp, '"\n'))
cat(paste0(blue('x_trimmed'), ' "', x_trimmed, '"\n'))
cat(paste0(blue('x_trimmed_species'), ' "', x_trimmed_species, '"\n'))
cat(paste0(blue('x_trimmed_without_group'), ' "', x_trimmed_without_group, '"\n'))
cat(paste0(blue("x"), ' "', x, '"\n'))
cat(paste0(blue("x_species"), ' "', x_species, '"\n'))
cat(paste0(blue("x_withspaces_start_only"), ' "', x_withspaces_start_only, '"\n'))
cat(paste0(blue("x_withspaces_end_only"), ' "', x_withspaces_end_only, '"\n'))
cat(paste0(blue("x_withspaces_start_end"), ' "', x_withspaces_start_end, '"\n'))
cat(paste0(blue("x_backup"), ' "', x_backup, '"\n'))
cat(paste0(blue("x_backup_without_spp"), ' "', x_backup_without_spp, '"\n'))
cat(paste0(blue("x_trimmed"), ' "', x_trimmed, '"\n'))
cat(paste0(blue("x_trimmed_species"), ' "', x_trimmed_species, '"\n'))
cat(paste0(blue("x_trimmed_without_group"), ' "', x_trimmed_without_group, '"\n'))
}
progress <- progress_estimated(n = length(x), min_time = 3)
@ -1782,6 +1781,7 @@ pillar_shaft.mo <- function(x, ...) {
out[is.na(x)] <- pillar::style_na(" NA")
out[x == "UNKNOWN"] <- pillar::style_na(" UNKNOWN")
# make it always fit exactly
pillar::new_pillar_shaft_simple(out, align = "left", width = max(nchar(x)))
}