From 7b00695085f5b3a5182531c911e8d62a4cd37a00 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Tue, 6 May 2025 07:21:13 +0200
Subject: [PATCH] only replace when actually present

---
 R/theme.R | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/R/theme.R b/R/theme.R
index 8ad12765a0..eb0a1332a8 100644
--- a/R/theme.R
+++ b/R/theme.R
@@ -545,13 +545,14 @@ validate_theme_palettes <- function(elements) {
   }
 
   # Standardise spelling
-  elements <- replace_null(
-    elements,
-    palette.colour.discrete   = elements$palette.color.discrete,
-    palette.colour.continuous = elements$palette.color.continuous
-  )
-  elements$palette.color.discrete   <- NULL
-  elements$palette.color.continuous <- NULL
+  if ("palette.color.continuous" %in% names(elements)) {
+    elements["palette.colour.continuous"]  <- elements["palette.color.continuous"]
+    elements[["palette.color.continuous"]] <- NULL
+  }
+  if ("palette.color.discrete" %in% names(elements)) {
+    elements["palette.colour.discrete"]  <- elements["palette.color.discrete"]
+    elements[["palette.color.discrete"]] <- NULL
+  }
 
   # Check for incompatible options
   pals <- c("palette.colour.discrete", "palette.colour.continuous",