From 40c10f12b66d29a19570ed46e9d247084055d416 Mon Sep 17 00:00:00 2001
From: Jordan Mark Barbone <jmbarbone@gmail.com>
Date: Sat, 29 Apr 2023 15:17:13 -0400
Subject: [PATCH] #55 revert value switch on flag

---
 R/arg.R                          | 5 -----
 tests/testthat/test-class-args.R | 5 +++++
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/R/arg.R b/R/arg.R
index 9551f6e..2771178 100644
--- a/R/arg.R
+++ b/R/arg.R
@@ -349,11 +349,6 @@ arg_parse_value <- function(self, ca) {
     },
     flag = {
       value <- !grepl("^--?no-", ca_get_working(ca)[m + off])
-
-      if (value) {
-        value <- !self$get_default()
-      }
-
       ca_remove_working(ca, m)
     }
   )
diff --git a/tests/testthat/test-class-args.R b/tests/testthat/test-class-args.R
index 104c71b..8163a09 100644
--- a/tests/testthat/test-class-args.R
+++ b/tests/testthat/test-class-args.R
@@ -104,6 +104,11 @@ test_that("action = 'flag' allows TRUE [#55]", {
 
   ca$set_input("--foo")
   obj <- ca$parse()
+  exp <- list(foo = TRUE)
+  expect_identical(obj, exp)
+
+  ca$set_input("--no-foo")
+  obj <- ca$parse()
   exp <- list(foo = FALSE)
   expect_identical(obj, exp)
 })