support for old rsi arguments

2025-07-09 06:02:01 +02:00 · 2023-03-11 14:24:34 +01:00
parent 4416394e10
commit 262598b8d7
21 changed files with 327 additions and 199 deletions
--- a/data-raw/reproduction_of_microorganisms.R
+++ b/data-raw/reproduction_of_microorganisms.R
@ -1366,8 +1366,10 @@ microorganisms <- taxonomy
 # https://lpsn.dsmz.de/species/stenotrophomonas-maltophilia

 # all MO's to keep as 'accepted', not as 'synonym':
-to_restore <- c("Stenotrophomonas maltophilia",
-                "Moraxella catarrhalis")
+to_restore <- c(
+  "Stenotrophomonas maltophilia",
+  "Moraxella catarrhalis"
+)
 all(to_restore %in% microorganisms$fullname)
 for (nm in to_restore) {
  microorganisms$lpsn_renamed_to[which(microorganisms$fullname == nm)] <- NA