fix: 'add_argument()' 'help' ending in a '"'

* Fixes bug when `add_argument()` `help` values ended in a `"`.
  Thanks Oliver Dreschel (@oliverdreschel) for bug report.

closes #46

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: argparse
 Type: Package
 Title: Command Line Optional and Positional Argument Parser
-Version: 2.2.1
+Version: 2.2.2-0
 Authors@R: c(person("Trevor L", "Davis", role=c("aut", "cre"),
              email="[email protected]",
              comment = c(ORCID = "0000-0001-6341-4639")),

NEWS.md

@@ -1,3 +1,9 @@
+argparse 2.2.2
+==============
+
+* Fixes bug when `add_argument()` `help` values ended in a `"` (#46).
+  Thanks Oliver Dreschel (@oliverdreschel) for bug report.
+
 argparse 2.2.1
 ==============
 

R/argparse.R

@@ -258,7 +258,7 @@ parse_args_output <- function(output) {
 
 # @param argument argument to be converted from R to Python
 convert_argument <- function(argument, as_list = FALSE) {
-    if (is.character(argument)) argument <- paste0('"""', argument, '"""')
+    if (is.character(argument)) argument <- convert_character(argument)
     if (is.numeric(argument)) argument <- as.character(argument)
     if (is.logical(argument)) argument <- ifelse(argument, "True", "False")
     if (is.null(argument)) argument <- "None"
@@ -270,6 +270,11 @@ convert_argument <- function(argument, as_list = FALSE) {
     argument
 }
 
+convert_character <- function(s) {
+    bool <- substr(s, nchar(s), nchar(s)) == '"'
+    ifelse(bool, paste0("'''", s, "'''"), paste0('"""', s, '"""'))
+}
+
 get_python_type <- function(type, proposed_arguments) {
     python_type <- switch(type,
             character = "str",

tests/testthat/test-argparse.R

@@ -92,6 +92,11 @@ test_that("add_argument works as expected", {
     expect_equal(arguments$label, c("a", "b"))
     expect_equal(arguments$bool, c(FALSE, TRUE))
 
+    # Bug found by Oliver Dreschel (@oliverdreschel)
+    p <- ArgumentParser()
+    p$add_argument('--listlab', type='character', help='This is a helpstring,"Containing Quotes"')
+    expect_equal(p$parse_args()$listlab, NULL)
+
     # Use R casting of logicals
     p <- ArgumentParser()
     p$add_argument("--bool", type = "logical", action = "store")