updated translations

R/i18n.R

@@ -57,7 +57,7 @@ i18n_translations <- function(package = packageName(parent.frame(2))) {
   if (is.null(language))
     return(NULL)
   if (is.character(language) && i18n_exist(language, package = package)) {
-    language <- fread(file = i18n_file(language, package = package), encoding = "UTF-8")
+    language <- fread(file = i18n_file(language, package = package), encoding = "UTF-8", fill = TRUE)
   }
   if (is.character(language) && file.exists(language)) {
     language <- fread(file = language, encoding = "UTF-8")
@@ -71,11 +71,11 @@ i18n_translations <- function(package = packageName(parent.frame(2))) {
 #'   * a `data.frame` with 2 column: `label` & `translation`.
 #'   * path to a CSV file with same structure as for `data.frame` above.
 #' @param packages Name of packages for which to set i18n, default to esquisse and datamods
-#' 
+#'
 #' @export
 #'
 #' @rdname i18n
-#' 
+#'
 #' @importFrom stats setNames
 set_i18n <- function(value, packages = c("datamods", "esquisse")) {
   if (is.null(packages)) {

R/import-copypaste.R

@@ -43,7 +43,7 @@ import_copypaste_ui <- function(id, title = TRUE) {
     textInput(
       inputId = ns("name"),
       label = NULL,
-      placeholder = "Add a label to data",
+      placeholder = i18n("Add a label to data"),
       width = "100%"
     ),
     tags$div(

examples/filter_data.R

@@ -19,6 +19,10 @@ datetime <- data.frame(
   num = sample.int(1e5, 300)
 )
 
+one_column_numeric <- data.frame(
+  var1 = rnorm(100)
+)
+
 ui <- fluidPage(
   tags$h2("Filter data.frame"),
 
@@ -30,7 +34,8 @@ ui <- fluidPage(
       "mtcars",
       "mtcars_na",
       "Cars93",
-      "datetime"
+      "datetime",
+      "one_column_numeric"
     ),
     inline = TRUE
   ),

inst/i18n/fr.csv

@@ -1,4 +1,4 @@
-label,translation
+label,translation,comment
 "Import a dataset from an environment","Importer un jeu de données depuis l'environnement global"
 "Select a data.frame:","Sélectionner un data.frame :"
 "List of data.frame...","Liste des tableau de données"
@@ -59,3 +59,4 @@ label,translation
 "Number of rows:","Nombre de lignes :"
 "No data to display.","Pas de données à afficher."
 "Close","Fermer"
+"Add a label to data","Ajouter un libellé aux données"

inst/i18n/mk.csv

@@ -1,4 +1,4 @@
-label,translation
+label,translation,comment
 "Import a dataset from an environment","Увезете податочен сет од околината"
 "Select a data.frame:","Изберете data.frame"
 "List of data.frame...","Список на табели со податоци"
@@ -50,12 +50,13 @@ label,translation
 "Date to use as origin to convert date/datetime:","Датум што треба да се користи за конвертирање на date/datetime променлива"
 "Select, rename and convert variables in table above, then apply changes by clicking button below.","Изберете, преименувајте и конвертирајте променливи во табелата горе, а потоа применете ги промените со кликање на копчето долу."
 "Apply changes","Применете ги промените"
-"Data has %s observations and %s variables.","Податоците имаат % опсервации и % варијабли."
+"Data has %s observations and %s variables.","Податоците имаат %s опсервации и %s варијабли."
 "Data successfully updated!","Податоците се успешно ажурирани!"
 "Validation:","Проверка: "
 "OK","Во ред"
 "Failed","Неуспех"
 "Error","Грешка"
 "Number of rows:","Број на редови:"
 "No data to display.","Нема податоци за приказ."
-"Close","Затвори"
+"Close","Затвори",
+"Add a label to data","Додадете етикета на податоците","#TODO #CHECK"

inst/i18n/pt.csv

@@ -1,4 +1,4 @@
-label,translation
+label,translation,comment
 Import a dataset from an environment,Importe um conjunto de dados do ambiente local
 Select a data.frame:,Selecione um data.frame :
 List of data.frame...,Lista de data.frame...
@@ -59,3 +59,4 @@ Error,Erro
 Number of rows:,Número de linhas:
 No data to display.,Nenhum dado para mostrar.
 Close,Fechar
+"Add a label to data","Adicionar uma etiqueta aos dados","#TODO #CHECK"

inst/i18n/sq.csv

@@ -1,4 +1,4 @@
-label,translation
+label,translation,comment
 Import a dataset from an environment,Importoni një grup të dhënash nga mjedisi
 Select a data.frame:,Zgjidhni data.frame
 List of data.frame...,Lista e tabelave të të dhënave (data.frame)
@@ -50,12 +50,13 @@ Date format:,Formati i datës:
 Date to use as origin to convert date/datetime:,Data që do të përdoret për të konvertuar ndryshoren date/datetime
 "Select, rename and convert variables in table above, then apply changes by clicking button below.","Zgjidhni, riemërtoni dhe konvertoni variablat në tabelën e mësipërme, e pastaj aplikoni ndryshimet duke klikuar butonin më poshtë."
 Apply changes,Apliko ndryshimet
-Data has %s observations and %s variables.,Të dhënat kanë %vëzhgime dhe %variabla
+Data has %s observations and %s variables.,Të dhënat kanë %s vëzhgime dhe %s variabla
 Data successfully updated!,Të dhënat janë azhurnuar me sukses!
 Validation:,Verifikimi:
 OK,Në rregull
 Failed,Dështim
 Error,Gabim
 Number of rows:,Numri i rreshtave:
 No data to display.,Nuk ka të dhëna për t’u shfaqur.
-Close,Мbyll
+Close,Мbyll,
+"Add a label to data","Shtoni një etiketë në të dhëna","#TODO #CHECK"

tests/testthat/test-i18n.R

@@ -61,6 +61,15 @@ test_that("i18n works with file", {
 test_that("i18n works with supported language", {
   options("datamods.i18n" = "fr")
   expect_identical(i18n_test("Help"), "Aide")
+
+  options("datamods.i18n" = "mk")
+  expect_type(i18n_test("Help"), "character")
+
+  options("datamods.i18n" = "pt")
+  expect_type(i18n_test("Help"), "character")
+
+  options("datamods.i18n" = "sq")
+  expect_type(i18n_test("Help"), "character")
 })