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

(v3.0.1.9013) fix translations

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2026-01-07 13:30:54 +01:00
parent fa827f27f4
commit 85e8e814e8
3 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
R/translate.R
View File

@@ -263,16 +263,17 @@ translate_into_language <- function(from,
df_trans$pattern[df_trans$regular_expr == TRUE] <- gsub("$$", "$", df_trans$pattern[df_trans$regular_expr == TRUE], fixed = TRUE)
}
df_trans_regex <- df_trans[which(df_trans$regular_expr == TRUE), ]
# regex part
lapply(
# starting with longest pattern, since more general translations are shorter, such as 'Group'
order(nchar(df_trans$pattern), decreasing = TRUE)[df_trans$regular_expr == TRUE],
order(nchar(df_trans_regex$pattern), decreasing = TRUE),
function(i) {
from_unique_translated <<- gsub(
pattern = df_trans$pattern[i],
replacement = df_trans[i, lang, drop = TRUE],
pattern = df_trans_regex$pattern[i],
replacement = df_trans_regex[i, lang, drop = TRUE],
x = from_unique_translated,
ignore.case = !df_trans$case_sensitive[i],
ignore.case = !df_trans_regex$case_sensitive[i],
fixed = FALSE,
perl = TRUE
)