1
0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 11:01:57 +02:00

support for portuguese, language determination based on system

This commit is contained in:
2018-09-08 16:06:47 +02:00
parent b8a6c9af19
commit 26f5be0033
19 changed files with 307 additions and 106 deletions

View File

@ -326,7 +326,8 @@ first_isolate <- function(tbl,
filter(
row_number() %>% between(row.start,
row.end),
genus != '') %>%
genus != "",
species != "") %>%
nrow()
)
@ -373,7 +374,8 @@ first_isolate <- function(tbl,
real_first_isolate =
if_else(
between(row_number(), row.start, row.end)
& genus != ''
& genus != ""
& species != ""
& (other_pat_or_mo
| days_diff >= episode_days
| key_ab_other),
@ -388,7 +390,8 @@ first_isolate <- function(tbl,
real_first_isolate =
if_else(
between(row_number(), row.start, row.end)
& genus != ''
& genus != ""
& species != ""
& (other_pat_or_mo
| days_diff >= episode_days),
TRUE,