diff --git a/R/tm_g_association.R b/R/tm_g_association.R
index ec7688372..06ee12ff6 100644
--- a/R/tm_g_association.R
+++ b/R/tm_g_association.R
@@ -185,7 +185,7 @@ ui_tm_g_association <- function(id, ...) {
           selectInput(
             inputId = ns("association_theme"),
             label = "Association theme (by ggplot):",
-            choices = ggplot_themess,
+            choices = ggplot_themes,
             selected = args$association_theme,
             multiple = FALSE
           )