Update theme_modern.R

easystats · Jan 30, 2025 · 6b3faa2 · 6b3faa2
1 parent 09b4264
commit 6b3faa2
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/theme_modern.R b/R/theme_modern.R
@@ -57,7 +57,7 @@ theme_modern <- function(base_size = 11,
                          ...) {
   # Remove legend title if necessary
   if (is.null(plot.title.size)) {
-    plot.title.size <-element_text(
+    plot.title.size <- element_text(
       size = plot.title.size,
       face = plot.title.face,
       margin = margin(0, 0, plot.title.space, 0)
@@ -100,10 +100,10 @@ theme_modern <- function(base_size = 11,
   }
 
   # Rotate
-  if (!is.null(axis.text.angle)) {
-    hjust <- 1
-  } else {
+  if (is.null(axis.text.angle)) {
     hjust <- NULL
+  } else {
+    hjust <- 1
   }
 
   theme_classic(base_size = base_size, base_family = base_family) +