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

(v1.6.0.9020) fix for skimr in dplyr 1.0.6

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-05-06 15:17:11 +02:00
parent 5899678b74
commit 3319fbae58
17 changed files with 29 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/mo.R
View File

@ -1732,9 +1732,9 @@ freq.mo <- function(x, ...) {
get_skimmers.mo <- function(column) {
skimr::sfl(
skim_type = "mo",
unique_total = ~pm_n_distinct(., na.rm = TRUE),
gram_negative = ~sum(mo_is_gram_negative(stats::na.omit(.))),
gram_positive = ~sum(mo_is_gram_positive(stats::na.omit(.))),
unique_total = ~length(unique(stats::na.omit(.))),
gram_negative = ~sum(mo_is_gram_negative(.), na.rm = TRUE),
gram_positive = ~sum(mo_is_gram_positive(.), na.rm = TRUE),
top_genus = ~names(sort(-table(mo_genus(stats::na.omit(.), language = NULL))))[1L],
top_species = ~names(sort(-table(mo_name(stats::na.omit(.), language = NULL))))[1L]
)