Translations for tooltips

[hdbt]

The Problem is with the tooltips, that addPopover hast to be embedded in session$onFlushed to run, when the ID generating JS Code is done.

The Workaround is to use a delay for waiting. This is suboptimal and not elegant, but working.

 language  <- reactive({input$selected_language})
        
  observeEvent(language() ,{
    
  delay(1000, #haudruff loesung
    addPopover(session,"thema_row_2",NULL,i18n_r()$t('<p style="text-align: justify;"><strong>Differences </strong> </p>'),"right", options = list(delay=list(show= 500, hide = 100), html = "true",container = "body"),trigger = "hover")
  )
  }
    
  )