$active_module_element_text method TealAppDriver (#1167)

Followu-up after #1156

R/TealAppDriver.R

@@ -147,6 +147,16 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
       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.
+    #'
+    #' @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.
     #'
     #' @return (`string`) The active shiny name space of the component.