Don't update distribution params labels when variable is deselected in tm_g_distribution (#891)

Fixes #510

---------

Signed-off-by: Marcin <[email protected]>
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Co-authored-by: Dony Unardi <[email protected]>

Author: 3 people

R/tm_g_distribution.R

@@ -595,7 +595,13 @@ srv_distribution <- function(id,
           }
 
         params_vals <- unname(params)
-        params_names <- names(params)
+        map_distr_nams <- list(
+          normal = c("mean", "sd"),
+          lognormal = c("meanlog", "sdlog"),
+          gamma = c("shape", "rate"),
+          unif = c("min", "max")
+        )
+        params_names <- map_distr_nams[[input$t_dist]] %||% names(params)
 
         updateNumericInput(
           inputId = "dist_param1",