diff --git a/R/TealAppDriver.R b/R/TealAppDriver.R
index 6df489a111..2506fe1102 100644
--- a/R/TealAppDriver.R
+++ b/R/TealAppDriver.R
@@ -136,7 +136,13 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
     set_input = function(input_id, value, ...) {
       do.call(
         self$set_inputs,
-        c(setNames(list(value), input_id), list(...))
+        c(
+          setNames(
+            list(value),
+            input_id
+          ),
+          list(...)
+        )
       )
       invisible(self)
     },
@@ -160,74 +166,19 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       invisible(self)
     },
     #' @description
-    #' Get the active shiny name space for different components of the teal app.
-    #'
-    #' @return (`list`) The list of active shiny name space of the teal components.
-    active_ns = function() {
-      if (identical(private$ns$module, character(0))) {
-        private$set_active_ns()
-      }
-      private$ns
-    },
-    #' @description
-    #' Get the active shiny name space for interacting with the module content.
-    #'
-    #' @return (`string`) The active shiny name space of the component.
-    active_module_ns = function() {
-      if (identical(private$ns$module, character(0))) {
-        private$set_active_ns()
-      }
-      private$ns$module
-    },
-    #' @description
-    #' Get the active shiny name space bound with a custom `element` name.
-    #'
-    #' @param element `character(1)` custom element name.
-    #'
-    #' @return (`string`) The active shiny name space of the component bound with the input `element`.
-    active_module_element = function(element) {
-      checkmate::assert_string(element)
-      sprintf("#%s-%s", self$active_module_ns(), element)
-    },
-    #' @description
-    #' Get the text of the active shiny name space bound with a custom `element` name.
-    #'
-    #' @param element `character(1)` the text of the custom element name.
+    #' `NS` in different sections of `teal` app
     #'
-    #' @return (`string`) The text of the active shiny name space of the component bound with the input `element`.
-    active_module_element_text = function(element) {
-      checkmate::assert_string(element)
-      self$get_text(self$active_module_element(element))
-    },
-    #' @description
-    #' Get the active shiny name space for interacting with the filter panel.
+    #' @param is_selector (`logical(1)`) whether `ns` function should prefix with `#`.
     #'
-    #' @return (`string`) The active shiny name space of the component.
-    active_filters_ns = function() {
-      if (identical(private$ns$filter_panel, character(0))) {
-        private$set_active_ns()
-      }
-      private$ns$filter_panel
-    },
-    #' @description
-    #' Get the active shiny name space for interacting with the data-summary panel.
-    #'
-    #' @return (`string`) The active shiny name space of the data-summary component.
-    active_data_summary_ns = function() {
-      if (identical(private$ns$data_summary, character(0))) {
-        private$set_active_ns()
+    #' @return list of `ns`.
+    namespaces = function(is_selector = FALSE) {
+      ns_fun <- if (is_selector) {
+        function(id) shiny::NS(sprintf("#%s", id))
+      } else {
+        shiny::NS
       }
-      private$ns$data_summary
-    },
-    #' @description
-    #' Get the active shiny name space bound with a custom `element` name.
-    #'
-    #' @param element `character(1)` custom element name.
-    #'
-    #' @return (`string`) The active shiny name space of the component bound with the input `element`.
-    active_data_summary_element = function(element) {
-      checkmate::assert_string(element)
-      sprintf("#%s-%s", self$active_data_summary_ns(), element)
+
+      lapply(private$ns, ns_fun)
     },
     #' @description
     #' Get the input from the module in the `teal` app.
@@ -238,7 +189,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
     #' @return The value of the shiny input.
     get_active_module_input = function(input_id) {
       checkmate::check_string(input_id)
-      self$get_value(input = sprintf("%s-%s", self$active_module_ns(), input_id))
+      self$get_value(input = self$namespaces()$module(input_id))
     },
     #' @description
     #' Get the output from the module in the `teal` app.
@@ -249,7 +200,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
     #' @return The value of the shiny output.
     get_active_module_output = function(output_id) {
       checkmate::check_string(output_id)
-      self$get_value(output = sprintf("%s-%s", self$active_module_ns(), output_id))
+      self$get_value(output = self$namespaces()$module(output_id))
     },
     #' @description
     #' Get the output from the module's `teal.widgets::table_with_settings` or `DT::DTOutput` in the `teal` app.
@@ -264,7 +215,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       checkmate::check_number(which, lower = 1)
       checkmate::check_string(table_id)
       table <- rvest::html_table(
-        self$get_html_rvest(self$active_module_element(table_id)),
+        self$get_html_rvest(self$namespaces(TRUE)$module(table_id)),
         fill = TRUE
       )
       if (length(table) == 0) {
@@ -283,7 +234,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
     get_active_module_plot_output = function(plot_id) {
       checkmate::check_string(plot_id)
       self$get_attr(
-        self$active_module_element(sprintf("%s-plot_main > img", plot_id)),
+        self$namespaces()$module(sprintf("%s-plot_main > img", plot_id)),
         "src"
       )
     },
@@ -300,7 +251,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       checkmate::check_string(input_id)
       checkmate::check_string(value)
       self$set_input(
-        sprintf("%s-%s", self$active_module_ns(), input_id),
+        self$namespaces()$module(input_id),
         value,
         ...
       )
@@ -312,7 +263,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
     #' Get the active datasets that can be accessed via the filter panel of the current active teal module.
     get_active_filter_vars = function() {
       displayed_datasets_index <- self$is_visible(
-        sprintf("#%s-filters-filter_active_vars_contents > div > span", self$active_filters_ns())
+        self$namespaces(TRUE)$filter_panel("filters-filter_active_vars_contents > div > span")
       )
 
       js_code <- sprintf(
@@ -328,7 +279,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
           });
           textContents;
         ",
-        self$active_filters_ns()
+        self$namespaces()$filter_panel(NULL)
       )
       available_datasets <- unlist(self$get_js(js_code))
 
@@ -339,12 +290,14 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
     #' @return `data.frame`
     get_active_data_summary_table = function() {
       summary_table <- rvest::html_table(
-        self$get_html_rvest(self$active_data_summary_element("table")),
+        self$get_html_rvest(
+          self$namespaces(TRUE)$data_summary("table")
+        ),
         fill = TRUE
       )[[1]]
 
-      col_names <- unlist(summary_table[1, ], use.names = FALSE)
-      summary_table <- summary_table[-1, ]
+      col_names <- unlist(summary_table[1, , drop = FALSE], use.names = FALSE)
+      summary_table <- summary_table[-1, , drop = FALSE]
       colnames(summary_table) <- col_names
       if (nrow(summary_table) > 0) {
         summary_table
@@ -405,11 +358,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
             pattern = "\\s",
             replacement = "",
             self$get_text(
-              sprintf(
-                "#%s-filters-%s-container .filter-card-varname",
-                self$active_filters_ns(),
-                x
-              )
+              self$namespaces(TRUE)$filter_panel(sprintf("filters-%s-container .filter-card-varname", x))
             )
           )
           structure(
@@ -437,19 +386,10 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       checkmate::check_string(var_name)
       private$set_active_ns()
       self$click(
-        selector = sprintf(
-          "#%s-filters-%s-add_filter_icon",
-          private$ns$filter_panel,
-          dataset_name
-        )
+        selector = self$namespaces(TRUE)$filter_panel(sprintf("filters-%s-add_filter_icon", dataset_name))
       )
       self$set_input(
-        sprintf(
-          "%s-filters-%s-%s-filter-var_to_add",
-          private$ns$filter_panel,
-          dataset_name,
-          dataset_name
-        ),
+        self$namespaces()$filter_panel(sprintf("filters-%1$s-%1$s-filter-var_to_add", dataset_name)),
         var_name,
         ...
       )
@@ -468,23 +408,14 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       checkmate::check_string(dataset_name, null.ok = TRUE)
       checkmate::check_string(var_name, null.ok = TRUE)
       if (is.null(dataset_name)) {
-        remove_selector <- sprintf(
-          "#%s-active-remove_all_filters",
-          self$active_filters_ns()
-        )
+        remove_selector <- self$namespaces(TRUE)$filter_panel("active-remove_all_filters")
       } else if (is.null(var_name)) {
-        remove_selector <- sprintf(
-          "#%s-active-%s-remove_filters",
-          self$active_filters_ns(),
-          dataset_name
+        remove_selector <- self$namespaces(TRUE)$filter_panel(
+          sprintf("active-%s-remove_filters", dataset_name)
         )
       } else {
-        remove_selector <- sprintf(
-          "#%s-active-%s-filter-%s_%s-remove",
-          self$active_filters_ns(),
-          dataset_name,
-          dataset_name,
-          var_name
+        remove_selector <- self$namespaces(TRUE)$filter_panel(
+          sprintf("active-%1$s-filter-%1$s_%2$s-remove", dataset_name, var_name)
         )
       }
       self$click(
@@ -509,40 +440,28 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       checkmate::check_string(var_name)
       checkmate::check_string(input)
 
-      input_id_prefix <- sprintf(
-        "%s-filters-%s-filter-%s_%s-inputs",
-        self$active_filters_ns(),
-        dataset_name,
-        dataset_name,
-        var_name
+      possible_id_suffix <- c(
+        sprintf("filters-%1$s-filter-%1$s_%2$s-inputs-selection", dataset_name, var_name),
+        sprintf("filters-%1$s-filter-%1$s_%2$s-inputs-selection_manual", dataset_name, var_name)
       )
 
-      # Find the type of filter (based on filter panel)
-      supported_suffix <- c("selection", "selection_manual")
-      slices_suffix <- supported_suffix[
-        match(
-          TRUE,
-          vapply(
-            supported_suffix,
-            function(suffix) {
-              !is.null(self$get_html(sprintf("#%s-%s", input_id_prefix, suffix)))
-            },
-            logical(1)
+      # Find the type of filter (based on filter panel), filter_type[1=non-numeric; 2=numeric]
+      slices_possible_selectors <- self$namespaces(TRUE)$filter_panel(possible_id_suffix)
+      filter_type <- which(
+        slices_possible_selectors %in%
+          Filter(
+            function(selector) !is.null(self$get_html(selector)),
+            slices_possible_selectors
           )
-        )
-      ]
-
-      # Generate correct namespace
-      slices_input_id <- sprintf(
-        "%s-filters-%s-filter-%s_%s-inputs-%s",
-        self$active_filters_ns(),
-        dataset_name,
-        dataset_name,
-        var_name,
-        slices_suffix
       )
 
-      if (identical(slices_suffix, "selection_manual")) {
+      if (identical(filter_type, 1L)) {
+        self$set_input(
+          self$namespaces()$filter_panel(possible_id_suffix[1]),
+          input,
+          ...
+        )
+      } else if (identical(filter_type, 2L)) {
         checkmate::assert_numeric(input, len = 2)
 
         dots <- rlang::list2(...)
@@ -552,7 +471,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
         self$run_js(
           sprintf(
             "Shiny.setInputValue('%s:sw.numericRange', [%f, %f], {priority: '%s'})",
-            slices_input_id,
+            self$namespaces()$filter_panel(possible_id_suffix[2]),
             input[[1]],
             input[[2]],
             priority_ = ifelse(is.null(dots$priority_), "input", dots$priority_)
@@ -564,12 +483,6 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
             timeout = if (is.null(dots$timeout_)) rlang::missing_arg() else dots$timeout_
           )
         }
-      } else if (identical(slices_suffix, "selection")) {
-        self$set_input(
-          slices_input_id,
-          input,
-          ...
-        )
       } else {
         stop("Filter selection set not supported for this slice.")
       }
@@ -616,7 +529,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
                                             output = rlang::missing_arg(),
                                             export = rlang::missing_arg(),
                                             ...) {
-      ns <- shiny::NS(self$active_module_ns())
+      ns <- self$namespaces()$module
 
       if (!rlang::is_missing(input) && checkmate::test_string(input, min.chars = 1)) input <- ns(input)
       if (!rlang::is_missing(output) && checkmate::test_string(output, min.chars = 1)) output <- ns(output)
@@ -655,7 +568,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       )
       active_base_id <- sub("-wrapper$", "", active_wrapper_id)
 
-      private$ns$module_container <- active_base_id
+      private$ns$wrapper <- shiny::NS(active_base_id, "wrapper")
       private$ns$module <- shiny::NS(active_base_id, "module")
       private$ns$filter_panel <- shiny::NS(active_base_id, "filter_panel")
       private$ns$data_summary <- shiny::NS(active_base_id, "data_summary")
@@ -670,13 +583,9 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
     get_active_filter_selection = function(dataset_name, var_name) {
       checkmate::check_string(dataset_name)
       checkmate::check_string(var_name)
-      input_id_prefix <- sprintf(
-        "%s-filters-%s-filter-%s_%s-inputs",
-        self$active_filters_ns(),
-        dataset_name,
-        dataset_name,
-        var_name
-      )
+      input_id_prefix <- self$namespaces()$filter_panel(sprintf(
+        "filters-%1$s-filter-%1$s_%2$s-inputs", dataset_name, var_name
+      ))
 
       # Find the type of filter (categorical or range)
       supported_suffix <- c("selection", "selection_manual")
diff --git a/man/TealAppDriver.Rd b/man/TealAppDriver.Rd
index 3c1838f1d7..2d8560ac96 100644
--- a/man/TealAppDriver.Rd
+++ b/man/TealAppDriver.Rd
@@ -26,13 +26,7 @@ driving a teal application for performing interactions for \code{shinytest2} tes
 \item \href{#method-TealAppDriver-expect_validation_error}{\code{TealAppDriver$expect_validation_error()}}
 \item \href{#method-TealAppDriver-set_input}{\code{TealAppDriver$set_input()}}
 \item \href{#method-TealAppDriver-navigate_teal_tab}{\code{TealAppDriver$navigate_teal_tab()}}
-\item \href{#method-TealAppDriver-active_ns}{\code{TealAppDriver$active_ns()}}
-\item \href{#method-TealAppDriver-active_module_ns}{\code{TealAppDriver$active_module_ns()}}
-\item \href{#method-TealAppDriver-active_module_element}{\code{TealAppDriver$active_module_element()}}
-\item \href{#method-TealAppDriver-active_module_element_text}{\code{TealAppDriver$active_module_element_text()}}
-\item \href{#method-TealAppDriver-active_filters_ns}{\code{TealAppDriver$active_filters_ns()}}
-\item \href{#method-TealAppDriver-active_data_summary_ns}{\code{TealAppDriver$active_data_summary_ns()}}
-\item \href{#method-TealAppDriver-active_data_summary_element}{\code{TealAppDriver$active_data_summary_element()}}
+\item \href{#method-TealAppDriver-namespaces}{\code{TealAppDriver$namespaces()}}
 \item \href{#method-TealAppDriver-get_active_module_input}{\code{TealAppDriver$get_active_module_input()}}
 \item \href{#method-TealAppDriver-get_active_module_output}{\code{TealAppDriver$get_active_module_output()}}
 \item \href{#method-TealAppDriver-get_active_module_table_output}{\code{TealAppDriver$get_active_module_table_output()}}
@@ -227,115 +221,23 @@ The \code{TealAppDriver} object invisibly.
 }
 }
 \if{html}{\out{<hr>}}
-\if{html}{\out{<a id="method-TealAppDriver-active_ns"></a>}}
-\if{latex}{\out{\hypertarget{method-TealAppDriver-active_ns}{}}}
-\subsection{Method \code{active_ns()}}{
-Get the active shiny name space for different components of the teal app.
+\if{html}{\out{<a id="method-TealAppDriver-namespaces"></a>}}
+\if{latex}{\out{\hypertarget{method-TealAppDriver-namespaces}{}}}
+\subsection{Method \code{namespaces()}}{
+\code{NS} in different sections of \code{teal} app
 \subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$active_ns()}\if{html}{\out{</div>}}
-}
-
-\subsection{Returns}{
-(\code{list}) The list of active shiny name space of the teal components.
-}
-}
-\if{html}{\out{<hr>}}
-\if{html}{\out{<a id="method-TealAppDriver-active_module_ns"></a>}}
-\if{latex}{\out{\hypertarget{method-TealAppDriver-active_module_ns}{}}}
-\subsection{Method \code{active_module_ns()}}{
-Get the active shiny name space for interacting with the module content.
-\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$active_module_ns()}\if{html}{\out{</div>}}
-}
-
-\subsection{Returns}{
-(\code{string}) The active shiny name space of the component.
-}
-}
-\if{html}{\out{<hr>}}
-\if{html}{\out{<a id="method-TealAppDriver-active_module_element"></a>}}
-\if{latex}{\out{\hypertarget{method-TealAppDriver-active_module_element}{}}}
-\subsection{Method \code{active_module_element()}}{
-Get the active shiny name space bound with a custom \code{element} name.
-\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$active_module_element(element)}\if{html}{\out{</div>}}
-}
-
-\subsection{Arguments}{
-\if{html}{\out{<div class="arguments">}}
-\describe{
-\item{\code{element}}{\code{character(1)} custom element name.}
-}
-\if{html}{\out{</div>}}
-}
-\subsection{Returns}{
-(\code{string}) The active shiny name space of the component bound with the input \code{element}.
-}
-}
-\if{html}{\out{<hr>}}
-\if{html}{\out{<a id="method-TealAppDriver-active_module_element_text"></a>}}
-\if{latex}{\out{\hypertarget{method-TealAppDriver-active_module_element_text}{}}}
-\subsection{Method \code{active_module_element_text()}}{
-Get the text of the active shiny name space bound with a custom \code{element} name.
-\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$active_module_element_text(element)}\if{html}{\out{</div>}}
-}
-
-\subsection{Arguments}{
-\if{html}{\out{<div class="arguments">}}
-\describe{
-\item{\code{element}}{\code{character(1)} the text of the custom element name.}
-}
-\if{html}{\out{</div>}}
-}
-\subsection{Returns}{
-(\code{string}) The text of the active shiny name space of the component bound with the input \code{element}.
-}
-}
-\if{html}{\out{<hr>}}
-\if{html}{\out{<a id="method-TealAppDriver-active_filters_ns"></a>}}
-\if{latex}{\out{\hypertarget{method-TealAppDriver-active_filters_ns}{}}}
-\subsection{Method \code{active_filters_ns()}}{
-Get the active shiny name space for interacting with the filter panel.
-\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$active_filters_ns()}\if{html}{\out{</div>}}
-}
-
-\subsection{Returns}{
-(\code{string}) The active shiny name space of the component.
-}
-}
-\if{html}{\out{<hr>}}
-\if{html}{\out{<a id="method-TealAppDriver-active_data_summary_ns"></a>}}
-\if{latex}{\out{\hypertarget{method-TealAppDriver-active_data_summary_ns}{}}}
-\subsection{Method \code{active_data_summary_ns()}}{
-Get the active shiny name space for interacting with the data-summary panel.
-\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$active_data_summary_ns()}\if{html}{\out{</div>}}
-}
-
-\subsection{Returns}{
-(\code{string}) The active shiny name space of the data-summary component.
-}
-}
-\if{html}{\out{<hr>}}
-\if{html}{\out{<a id="method-TealAppDriver-active_data_summary_element"></a>}}
-\if{latex}{\out{\hypertarget{method-TealAppDriver-active_data_summary_element}{}}}
-\subsection{Method \code{active_data_summary_element()}}{
-Get the active shiny name space bound with a custom \code{element} name.
-\subsection{Usage}{
-\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$active_data_summary_element(element)}\if{html}{\out{</div>}}
+\if{html}{\out{<div class="r">}}\preformatted{TealAppDriver$namespaces(is_selector = FALSE)}\if{html}{\out{</div>}}
 }
 
 \subsection{Arguments}{
 \if{html}{\out{<div class="arguments">}}
 \describe{
-\item{\code{element}}{\code{character(1)} custom element name.}
+\item{\code{is_selector}}{(\code{logical(1)}) whether \code{ns} function should prefix with \verb{#}.}
 }
 \if{html}{\out{</div>}}
 }
 \subsection{Returns}{
-(\code{string}) The active shiny name space of the component bound with the input \code{element}.
+list of \code{ns}.
 }
 }
 \if{html}{\out{<hr>}}
diff --git a/tests/testthat/test-shinytest2-data_summary.R b/tests/testthat/test-shinytest2-data_summary.R
index b5b59375f9..4166607056 100644
--- a/tests/testthat/test-shinytest2-data_summary.R
+++ b/tests/testthat/test-shinytest2-data_summary.R
@@ -8,7 +8,7 @@ testthat::test_that("e2e: data summary just list the unfilterable objects at the
   )
 
   testthat::expect_match(
-    app$get_text(sprintf("#%s-table", app$active_data_summary_ns())),
+    app$get_text(app$namespaces(TRUE)$data_summary("table")),
     "And 3 more unfilterable object"
   )
 
diff --git a/tests/testthat/test-shinytest2-decorators.R b/tests/testthat/test-shinytest2-decorators.R
index fc6b8c7269..31ad20c52e 100644
--- a/tests/testthat/test-shinytest2-decorators.R
+++ b/tests/testthat/test-shinytest2-decorators.R
@@ -41,11 +41,11 @@ testthat::test_that("e2e: module with decorator UI and output is modified intera
   )
 
   testthat::expect_true(
-    app$is_visible(sprintf("#%s-%s", app$active_module_ns(), input_id))
+    app$is_visible(app$namespaces(TRUE)$module(input_id))
   )
 
   testthat::expect_identical(
-    app$active_module_element_text(sprintf("%s-label", input_id)),
+    app$get_text(app$namespaces(TRUE)$module(sprintf("%s-label", input_id))),
     "Append text"
   )
 
@@ -56,16 +56,13 @@ testthat::test_that("e2e: module with decorator UI and output is modified intera
 
   testthat::expect_identical(
     app$get_active_module_output("text"),
-    paste0('[1] \"', "Text Input", "random text", '\"'),
     "[1] \"Text Inputrandom text\""
   )
 
   app$set_active_module_input(input_id, "new text")
-
   testthat::expect_identical(
     app$get_active_module_output("text"),
-    paste0('[1] \"', "Text Input", "new text", '\"'),
-    "[1] \"Text Inputrandom text\""
+    "[1] \"Text Inputnew text\""
   )
 
   app$stop()
@@ -100,12 +97,12 @@ testthat::test_that("e2e: module with decorator, where server fails,  shows shin
     c("decorate", "transform_1", "silent_error", "message")
   )
 
-  testthat::expect_true(app$is_visible(sprintf("#%s-%s", app$active_module_ns(), input_id)))
+  testthat::expect_true(app$is_visible(app$namespaces(TRUE)$module(input_id)))
 
   app$expect_validation_error()
 
   testthat::expect_identical(
-    strsplit(app$active_module_element_text(input_id), "\n")[[1]],
+    strsplit(app$get_text(app$namespaces(TRUE)$module(input_id)), "\n")[[1]],
     c(
       "Shiny error when executing the `data` module.",
       "This is error",
diff --git a/tests/testthat/test-shinytest2-reporter.R b/tests/testthat/test-shinytest2-reporter.R
index 627a829c6f..73e99b019c 100644
--- a/tests/testthat/test-shinytest2-reporter.R
+++ b/tests/testthat/test-shinytest2-reporter.R
@@ -76,16 +76,13 @@ testthat::test_that("e2e: adding a report card in a module adds it in the report
   )
 
   # Add new card with label and comment
-  app$click(NS(
-    app$active_ns()$module_container,
-    "add_reporter_wrapper-reporter_add-add_report_card_button"
-  ))
+  app$click(app$namespaces()$module_container("add_reporter_wrapper-reporter_add-add_report_card_button"))
 
   app$set_input(
-    NS(app$active_ns()$module_container, "add_reporter_wrapper-reporter_add-label"),
+    app$namespaces()$module_container("add_reporter_wrapper-reporter_add-label"),
     "Card name"
   )
-  app$click(NS(app$active_ns()$module_container, "add_reporter_wrapper-reporter_add-add_card_ok"))
+  app$click(app$namespaces()$module_container("add_reporter_wrapper-reporter_add-add_card_ok"))
 
   # Check whether card was added
   app$run_js("document.querySelector('#teal-preview_report-preview_button').click();") # skipping menu hovering
diff --git a/tests/testthat/test-shinytest2-show-rcode.R b/tests/testthat/test-shinytest2-show-rcode.R
index 1f1aa6f77e..ae9fb1cd73 100644
--- a/tests/testthat/test-shinytest2-show-rcode.R
+++ b/tests/testthat/test-shinytest2-show-rcode.R
@@ -13,9 +13,7 @@ testthat::test_that("e2e: Module with 'Show R Code' initializes with visible but
 
   # Check if button exists.
   testthat::expect_identical(
-    app$get_text(sprintf(
-      "#%s-%s", app$active_ns()$module_container, "source_code_wrapper-source_code-button"
-    )),
+    app$get_text(app$namespaces(TRUE)$module_container("source_code_wrapper-source_code-button")),
     "Show R code"
   )
   app$stop()
@@ -29,9 +27,7 @@ testthat::test_that("e2e: Module with 'Show R Code' has modal with two dismiss a
     )
   )
 
-  app$click(selector = sprintf(
-    "#%s-%s", app$active_ns()$module_container, "source_code_wrapper-source_code-button"
-  ))
+  app$click(selector = app$namespaces(TRUE)$module_container("source_code_wrapper-source_code-button"))
 
   # Check header and title content.
   testthat::expect_equal(
@@ -53,18 +49,12 @@ testthat::test_that("e2e: Module with 'Show R Code' has code", {
     )
   )
 
-  app$click(selector = sprintf(
-    "#%s-%s", app$active_ns()$module_container, "source_code_wrapper-source_code-button"
-  ))
+  app$click(selector = app$namespaces(TRUE)$module_container("source_code_wrapper-source_code-button"))
 
   # Check R code output.
   testthat::expect_identical(
     strsplit(
-      app$get_text(
-        sprintf(
-          "#%s-%s", app$active_ns()$module_container, "source_code_wrapper-source_code-verbatim_content"
-        )
-      ),
+      app$get_text(app$namespaces(TRUE)$module_container("source_code_wrapper-source_code-verbatim_content")),
       "\n"
     )[[1]],
     c(