corrected typo

inst/ShinyApp/ui.R

@@ -566,7 +566,7 @@ rm(list = ls(all.names = TRUE))
                                              # Strength of trend
                                              column(6,
                                                     radioButtons(inputId = "pop_trend_strength",
-                                                                 label = "intensit",
+                                                                 label = "Intensit",
                                                                  choices = c("Faible" = "weak",
                                                                              "Moyenne" = "average",
                                                                              "Forte" = "strong")),