P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2024-12-26 17:26:12 +01:00
Code Releases Activity

translate CoNS

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-09-08 16:24:12 +02:00
parent 26f5be0033
commit 936198372e
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
R/mo_property.R
View File

@ -222,6 +222,8 @@ mo_translate <- function(x, language) {
case_when( case_when(
# German # German
language == "de" ~ x %>% language == "de" ~ x %>%
gsub("Coagulase Negative Staphylococcus","Koagulase-negative Staphylococcus", ., fixed = TRUE) %>%
gsub("Coagulase Positive Staphylococcus","Koagulase-positive Staphylococcus", ., fixed = TRUE) %>%
gsub("(no MO)", "(kein MO)", ., fixed = TRUE) %>% gsub("(no MO)", "(kein MO)", ., fixed = TRUE) %>%
gsub("Negative rods", "Negative St\u00e4bchen", ., fixed = TRUE) %>% gsub("Negative rods", "Negative St\u00e4bchen", ., fixed = TRUE) %>%
gsub("Negative cocci", "Negative Kokken", ., fixed = TRUE) %>% gsub("Negative cocci", "Negative Kokken", ., fixed = TRUE) %>%
@ -240,6 +242,8 @@ mo_translate <- function(x, language) {
# Dutch # Dutch
language == "nl" ~ x %>% language == "nl" ~ x %>%
gsub("Coagulase Negative Staphylococcus","Coagulase-negatieve Staphylococcus", ., fixed = TRUE) %>%
gsub("Coagulase Positive Staphylococcus","Coagulase-positieve Staphylococcus", ., fixed = TRUE) %>%
gsub("(no MO)", "(geen MO)", ., fixed = TRUE) %>% gsub("(no MO)", "(geen MO)", ., fixed = TRUE) %>%
gsub("Negative rods", "Negatieve staven", ., fixed = TRUE) %>% gsub("Negative rods", "Negatieve staven", ., fixed = TRUE) %>%
gsub("Negative cocci", "Negatieve kokken", ., fixed = TRUE) %>% gsub("Negative cocci", "Negatieve kokken", ., fixed = TRUE) %>%
@ -258,6 +262,8 @@ mo_translate <- function(x, language) {
# Spanish # Spanish
language == "es" ~ x %>% language == "es" ~ x %>%
gsub("Coagulase Negative Staphylococcus","Staphylococcus coagulasa negativo", ., fixed = TRUE) %>%
gsub("Coagulase Positive Staphylococcus","Staphylococcus coagulasa positivo", ., fixed = TRUE) %>%
gsub("(no MO)", "(sin MO)", ., fixed = TRUE) %>% gsub("(no MO)", "(sin MO)", ., fixed = TRUE) %>%
gsub("Negative rods", "Bacilos negativos", ., fixed = TRUE) %>% gsub("Negative rods", "Bacilos negativos", ., fixed = TRUE) %>%
gsub("Negative cocci", "Cocos negativos", ., fixed = TRUE) %>% gsub("Negative cocci", "Cocos negativos", ., fixed = TRUE) %>%
@ -276,6 +282,8 @@ mo_translate <- function(x, language) {
# Portuguese # Portuguese
language == "pt" ~ x %>% language == "pt" ~ x %>%
gsub("Coagulase Negative Staphylococcus","Staphylococcus coagulase negativo", ., fixed = TRUE) %>%
gsub("Coagulase Positive Staphylococcus","Staphylococcus coagulase positivo", ., fixed = TRUE) %>%
gsub("(no MO)", "(sem MO)", ., fixed = TRUE) %>% gsub("(no MO)", "(sem MO)", ., fixed = TRUE) %>%
gsub("Negative rods", "Bacilos negativos", ., fixed = TRUE) %>% gsub("Negative rods", "Bacilos negativos", ., fixed = TRUE) %>%
gsub("Negative cocci", "Cocos negativos", ., fixed = TRUE) %>% gsub("Negative cocci", "Cocos negativos", ., fixed = TRUE) %>%

1
tests/testthat/test-mo_property.R
View File

@ -17,7 +17,6 @@ test_that("mo_property works", {
expect_equal(mo_shortname("S. aga", Lancefield = TRUE), "GBS") expect_equal(mo_shortname("S. aga", Lancefield = TRUE), "GBS")
expect_equal(mo_type("E. coli", language = "de"), "Bakterium") expect_equal(mo_type("E. coli", language = "de"), "Bakterium")
expect_equal(mo_gramstain("E. coli", language = "de"), "Negative St\u00e4bchen")
expect_equal(mo_type("E. coli", language = "nl"), "Bacterie") expect_equal(mo_type("E. coli", language = "nl"), "Bacterie")
expect_equal(mo_gramstain("E. coli", language = "nl"), "Negatieve staven") expect_equal(mo_gramstain("E. coli", language = "nl"), "Negatieve staven")