feat: use c() instead of teal.code::join()

Author: averissimo

R/tm_g_distribution.R

@@ -1214,15 +1214,15 @@ srv_distribution <- function(id,
       # wrapped in if since could lead into validate error - we do want to continue
       test_r_qenv_out <- try(test_q(), silent = TRUE)
       if (!inherits(test_r_qenv_out, c("try-error", "error"))) {
-        qenv_final <- teal.code::join(qenv_final, test_q())
+        qenv_final <- c(qenv_final, test_q())
       }
 
       qenv_final <- if (tab == "Histogram") {
         req(dist_q())
-        teal.code::join(qenv_final, dist_q())
+        c(qenv_final, dist_q())
       } else if (tab == "QQplot") {
         req(qq_q())
-        teal.code::join(qenv_final, qq_q())
+        c(qenv_final, qq_q())
       }
       qenv_final
     })