Apply suggestions to parabolaPlot

Co-authored-by: František Bartoš <[email protected]>

Author: PabRod

R/examples.R

@@ -40,13 +40,15 @@ Parabola <- function(jaspResults, dataset, options) {
           ggplot2::xlim(-3, 3) +
           ggplot2::ylim(0, 10) +
           ggplot2::geom_function(fun = f)
-
+# add jasp theme
+p <- jaspGraphs::geom_rangeframe() +
+    jaspGraphs::themeJaspRaw()
   # Aesthetics
   parabolaPlot <- createJaspPlot(title = gettext("Parabola"),
                                  width = 160,
                                  height = 320)
   parabolaPlot$dependOn(c("a")) # Refresh view whenever a changes
-
+parabolaPlot$info <- gettext("This figure displays a parabola specified via the `a` option.")
   jaspResults[["parabolaPlot"]] <- parabolaPlot
   parabolaPlot$plotObject <- p