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

(v0.7.1.9009) note for WHOCC

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-07-09 11:22:46 +02:00
parent d9e257f8db
commit b15d59cf03
34 changed files with 711 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
R/mo.R
View File

@ -483,7 +483,7 @@ exec_as.mo <- function(x,
x <- gsub("(alpha|beta|gamma).?ha?emoly", "\\1-haemoly", x)
# remove genus as first word
x <- gsub("^Genus ", "", x)
# allow characters that resemble others
# allow characters that resemble others, but not on first try
if (initial_search == FALSE) {
x <- tolower(x)
x <- gsub("[iy]+", "[iy]+", x)