From 5682950c2e8acf77a47f071a6289792e382c05fb Mon Sep 17 00:00:00 2001
From: Yunuuuu <yunyunpp96@outlook.com>
Date: Thu, 9 Jan 2025 10:13:26 +0800
Subject: [PATCH] linear logic

---
 R/layout-circle-switch.R | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/R/layout-circle-switch.R b/R/layout-circle-switch.R
index 25a27df6..f69d9101 100644
--- a/R/layout-circle-switch.R
+++ b/R/layout-circle-switch.R
@@ -24,13 +24,11 @@
 circle_switch <- function(radial = waiver(), direction = NULL,
                           what = waiver(), ...) {
     rlang::check_dots_empty()
-    if (!is.waive(radial)) {
-        assert_s3_class(radial, "CoordRadial", allow_null = TRUE)
-    }
-    if (!is.waive(radial) &&
-        !is.null(radial) &&
-        abs(diff(radial$arc)) < pi / 2L) {
-        cli_abort("Cannot use circle of acute angle < 90 in {.arg radial}")
+    if (!is.waive(radial) && !is.null(radial)) {
+        assert_s3_class(radial, "CoordRadial")
+        if (abs(diff(radial$arc)) < pi / 2L) {
+            cli_abort("Cannot use circle of acute angle < 90 in {.arg radial}")
+        }
     }
     if (!is.null(direction)) {
         direction <- arg_match0(direction, c("inward", "outward"))