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

ci for devel and freq fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-03-29 21:45:46 +01:00
parent ce68ff4ee7
commit 56d4b4719f
2 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
R/freq.R
View File

@ -391,9 +391,10 @@ frequency_tbl <- function(x,
}
if (NROW(x) > 0 & any(class(x) == "mo")) {
header_list$families <- x %>% mo_family() %>% n_distinct()
header_list$genera <- x %>% mo_genus() %>% n_distinct()
header_list$species <- x %>% mo_species() %>% n_distinct()
x_mo <- as.mo(x) # do it once for all three
header_list$families <- x_mo %>% mo_family() %>% n_distinct()
header_list$genera <- x_mo %>% mo_genus() %>% n_distinct()
header_list$species <- x_mo %>% mo_species() %>% n_distinct()
}
if (NROW(x) > 0 & any(class(x) == "difftime") & !is.hms(x)) {