From f3fbbbcf95567177853b5ab29a6ac27a5361f28b Mon Sep 17 00:00:00 2001
From: jvli4n <julian.wuth@yahoo.de>
Date: Tue, 6 Jan 2026 16:57:15 +0100
Subject: [PATCH] Fixing parabola bug

---
 R/examples.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/examples.R b/R/examples.R
index 2bf3142..3a7b80e 100644
--- a/R/examples.R
+++ b/R/examples.R
@@ -89,14 +89,14 @@ parabola <- function(jaspResults, dataset, options) {
           ggplot2::ylim(0, 10) +
           ggplot2::geom_function(fun = f)
 # add jasp theme
-p <- jaspGraphs::geom_rangeframe() +
-    jaspGraphs::themeJaspRaw()
+  p <- p + jaspGraphs::geom_rangeframe() +
+      jaspGraphs::themeJaspRaw()
   # Aesthetics
   parabolaPlot <- createJaspPlot(title = gettext("Parabola"),
-                                 width = 160,
+                                 width = 320,
                                  height = 320)
   parabolaPlot$dependOn(c("a")) # Refresh view whenever a changes
-parabolaPlot$info <- gettext("This figure displays a parabola specified via the `a` option.")
+  parabolaPlot$info <- gettext("This figure displays a parabola specified via the `a` option.")
   jaspResults[["parabolaPlot"]] <- parabolaPlot
   parabolaPlot$plotObject <- p