Update translations for alien species portal v1.1.0

[mvarewyck]

Some translations are missing here

[mvarewyck]

I also get missing translations for following regions: Buetgenbach, Ouderghem
If no translation needed, no action needed. If you want to include a translation for these, please add them to translations_regions.csv
(They might be already in the translations for another id, but then not same id is used in all datasets)

[SanderDevisscher]

Both Buetgenbach & Ouderghem are in translation_region with another id (resp. Bütgenbach & Oudergem)

@mvarewyck can you indicate in which datasets Buetgenbach & Ouderghem occur ?

@soriadelva I think it is a good idea to expand the translation check to every dataflow.

[mvarewyck]

@mvarewyck can you indicate in which datasets Buetgenbach & Ouderghem occur ?

These are in the occurrence data be_alientaxa_cube.csv, column NAAM

[SanderDevisscher]

@mvarewyck can you indicate in which datasets Buetgenbach & Ouderghem occur ?

These are in the occurrence data be_alientaxa_cube.csv, column NAAM

Ok, I'm currently reworking the be_alien_cube flow, see #18. I'll fix this is issue there.

[SanderDevisscher]

library(shiny)
library(dplyr)
library(readr)
library(htmltools)

# Load the data
data_url <- "https://raw.githubusercontent.com/inbo/aspbo/uat/data/output/UAT_direct/translations.csv"
translations <- read_csv(data_url)

# Define UI
ui <- fluidPage(
  titlePanel("Translation Editor"),
  
  sidebarLayout(
    sidebarPanel(
      selectInput("title_id", "Select Title ID:", choices = unique(translations$title_id)),
      selectInput("language", "Select Language:", choices = c("en", "fr", "nl")),
      actionButton("save", "Save Changes")
    ),
    
    mainPanel(
      textInput("title_unformatted", "Title (Unformatted):"),
      htmlOutput("title_rendered"),
      textInput("description_unformatted", "Description (Unformatted):"),
      htmlOutput("description_rendered")
    )
  )
)

# Define server logic
server <- function(input, output, session) {
  
  # Reactive expression to filter data based on selected title_id
  filtered_data <- reactive({
    translations %>% filter(title_id == input$title_id)
  })
  
  # Update text inputs when title_id or language changes
  observe({
    req(filtered_data())
    lang_col_title <- paste0("title_", input$language)
    lang_col_description <- paste0("description_", input$language)
    
    updateTextInput(session, "title_unformatted", value = filtered_data()[[lang_col_title]])
    updateTextInput(session, "description_unformatted", value = filtered_data()[[lang_col_description]])
  })
  
  # Render HTML for title and description
  output$title_rendered <- renderUI({
    req(input$title_unformatted)
    HTML(input$title_unformatted)
  })
  
  output$description_rendered <- renderUI({
    req(input$description_unformatted)
    HTML(input$description_unformatted)
  })
  
  # Save changes back to the CSV file (placeholder functionality)
  observeEvent(input$save, {
    req(filtered_data())
    
    # Update the translations data frame with the new values
    lang_col_title <- paste0("title_", input$language)
    lang_col_description <- paste0("description_", input$language)

    translations[translations$title_id == input$title_id, lang_col_title] <<- input$title_unformatted
    translations[translations$title_id == input$title_id, lang_col_description] <<- input$description_unformatted
    
    # Save to CSV (this will overwrite the existing file; adjust as needed)
    write_csv(translations, path = "translations.csv")
    
    showModal(modalDialog(
      title = "Success",
      "Changes have been saved successfully!",
      easyClose = TRUE,
      footer = NULL
    ))
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

[SanderDevisscher]

Issues with translations

• EN version of taxa table Aperçu du tableau should be Table overview.
• Check translations of "TrIAS indicatoren" at GAMs

@soriadelva After these are fixed I suggest we do a PR and create a new branch when we work on it again

[SanderDevisscher]

ongoing issue