diff --git a/DESCRIPTION b/DESCRIPTION
index e4b80cb7..84b9d346 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -43,6 +43,7 @@ Imports:
     forcats,
     hermes (>= 1.7.1),
     lifecycle,
+    logger (>= 0.3.0),
     rtables (>= 0.5.1),
     shinyRadioMatrix (>= 0.2.1),
     shinyWidgets,
@@ -61,7 +62,6 @@ Suggests:
     dplyr,
     globals,
     knitr,
-    logger (>= 0.2.0),
     matrixStats,
     rmarkdown,
     rvest,
diff --git a/R/adtteSpec.R b/R/adtteSpec.R
index c31e0c43..f184811f 100644
--- a/R/adtteSpec.R
+++ b/R/adtteSpec.R
@@ -263,6 +263,7 @@ adtteSpecServer <- function(id, # nolint
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     # Join ADTTE with gene data.
     adtte_joined <- reactive({
       experiment_data <- experiment_data()
diff --git a/R/assaySpec.R b/R/assaySpec.R
index d798fc90..8172e5c8 100644
--- a/R/assaySpec.R
+++ b/R/assaySpec.R
@@ -106,6 +106,7 @@ assaySpecServer <- function(id, # nolint
   assert_character(exclude_assays, any.missing = FALSE)
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     # When the assay names change, update the choices for assay.
     choices <- reactive({
       assays <- assays()
diff --git a/R/barplot.R b/R/barplot.R
index d58482fa..a7e12da1 100644
--- a/R/barplot.R
+++ b/R/barplot.R
@@ -132,6 +132,7 @@ srv_g_barplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
   assert_flag(.test)
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })
diff --git a/R/boxplot.R b/R/boxplot.R
index b8b39e3b..0af023e9 100644
--- a/R/boxplot.R
+++ b/R/boxplot.R
@@ -128,6 +128,7 @@ srv_g_boxplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })
diff --git a/R/experimentSpec.R b/R/experimentSpec.R
index 3dc7b516..f7b35a27 100644
--- a/R/experimentSpec.R
+++ b/R/experimentSpec.R
@@ -221,6 +221,7 @@ experimentSpecServer <- function(id, # nolint
   assert_flag(with_mae_col_data)
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     # When the filtered data set of the chosen experiment changes, update the
     # experiment data object.
     data_return <- reactive({
diff --git a/R/forestplot.R b/R/forestplot.R
index a76a86fc..54009ac5 100644
--- a/R/forestplot.R
+++ b/R/forestplot.R
@@ -155,6 +155,7 @@ srv_g_forest_tte <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })
diff --git a/R/geneSpec.R b/R/geneSpec.R
index 1552302f..a9c8fb6b 100644
--- a/R/geneSpec.R
+++ b/R/geneSpec.R
@@ -300,6 +300,7 @@ geneSpecServer <- function(id, # nolint
   assert_character(label_modal_footer)
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     # The `reactiveValues` object for storing current gene text input.
     # This will also be a data frame with id and name columns.
     parsed_genes <- reactiveVal(NULL, label = "Parsed genes")
diff --git a/R/km.R b/R/km.R
index 95662064..cd8d0915 100644
--- a/R/km.R
+++ b/R/km.R
@@ -159,6 +159,7 @@ srv_g_km <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })
diff --git a/R/pca.R b/R/pca.R
index 8e465411..121b1ee9 100644
--- a/R/pca.R
+++ b/R/pca.R
@@ -168,6 +168,7 @@ srv_g_pca <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })
diff --git a/R/quality.R b/R/quality.R
index 41be5d3f..bf1c7224 100644
--- a/R/quality.R
+++ b/R/quality.R
@@ -211,6 +211,7 @@ srv_g_quality <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })
diff --git a/R/sampleVarSpec.R b/R/sampleVarSpec.R
index 72d0193c..85bc8da3 100644
--- a/R/sampleVarSpec.R
+++ b/R/sampleVarSpec.R
@@ -288,6 +288,7 @@ sampleVarSpecServer <- function(id, # nolint
   assert_string(label_modal_title)
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     to_observe <- reactive({
       list(experiment_name(), original_data())
     })
diff --git a/R/scatterplot.R b/R/scatterplot.R
index a4c16951..1dc3c396 100644
--- a/R/scatterplot.R
+++ b/R/scatterplot.R
@@ -130,6 +130,7 @@ srv_g_scatterplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })
diff --git a/R/volcanoplot.R b/R/volcanoplot.R
index 5a71ded7..13a65d8b 100644
--- a/R/volcanoplot.R
+++ b/R/volcanoplot.R
@@ -116,6 +116,7 @@ srv_g_volcanoplot <- function(id,
   checkmate::assert_class(shiny::isolate(data()), "teal_data")
 
   moduleServer(id, function(input, output, session) {
+    logger::log_shiny_input_changes(input, namespace = "teal.modules.hermes")
     output$experiment_ui <- renderUI({
       experimentSpecInput(session$ns("experiment"), data, mae_name)
     })