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

unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2023-02-12 17:10:48 +01:00
parent 68abb00c59
commit 45a9697c84
23 changed files with 438 additions and 406 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/translate.R
View File

@ -246,8 +246,8 @@ translate_into_language <- function(from,
}
lapply(
# starting from last row, since more general translations are on top, such as 'Group'
rev(seq_len(nrow(df_trans))),
# starting with longest pattern, since more general translations are shorter, such as 'Group'
order(nchar(df_trans$pattern), decreasing = TRUE),
function(i) {
from_unique_translated <<- gsub(
pattern = df_trans$pattern[i],