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

support for portuguese, language determination based on system

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-09-08 16:06:47 +02:00
parent b8a6c9af19
commit 26f5be0033
19 changed files with 307 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
R/first_isolate.R
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,