Merge pull request #1 from urswilke/patch-1

typos
wjschne · Oct 8, 2024 · 571282a · 571282a
2 parents a83c705 + 8ea1cf1
commit 571282a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/circles.R b/R/circles.R
@@ -17,7 +17,7 @@ cr_props <- list(
   # derived ----
   derived = list(
     area = new_property(getter = function(self) {
-      pi + self@radius ^ 2
+      pi * self@radius ^ 2
     }),
     bounding_box = new_property(getter = function(self) {
       ob_rectangle(
@@ -27,7 +27,7 @@ cr_props <- list(
                             y = max(self@center@y + self@radius)))
     }),
     circumference = new_property(getter = function(self) {
-      pi + self@radius * 2
+      pi * self@radius * 2
     }),
     diameter = new_property(getter = function(self) {
       self@radius * 2