fix for issue #44, thanks to @igordot and @eddelbuettel

Author: edwindj

DESCRIPTION

@@ -12,4 +12,5 @@ BugReports: https://github.com/docopt/docopt.R/issues
 Imports: methods
 Suggests:
     testthat
-RoxygenNote: 7.1.0
+RoxygenNote: 7.3.2
+Encoding: UTF-8

R/docopt.R

@@ -87,7 +87,25 @@ docopt <- function( doc, args=commandArgs(TRUE), name=NULL, help=TRUE, version=N
     }
     return(dict)
   }
-  stop(doc, call. = FALSE)
+  help(doc)
+  if (length(m$left) == 0){
+    stop("Missing argument(s)", call. = FALSE)
+  }
+  
+  m_args <- lapply(m$left, function(o){
+    if (!is.null(o$short)){
+      return(o$short)
+    }
+    if (!is.null(o$long)){
+      return(o$long)
+    }
+    ""
+  }) |> 
+    sQuote() |>
+    paste(collapse=", ")
+  
+  stop("Unknown arguments: ",m_args, call. = FALSE)
+  # stop(doc, call. = FALSE)
   #stop(paste("\n",usage, collapse="\n  "), call. = FALSE)
 }
 

docopt.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 696c4343-cab8-4df7-9aec-d8fd3343dd98
 
 RestoreWorkspace: Default
 SaveWorkspace: Default

man/docopt-package.Rd

@@ -0,0 +1,44 @@
+doc <- 
+"Naval Fate.
+
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+lots of text lots of text lots of text lots of text lots of text lots of text lots of text
+
+Usage:
+  naval_fate ship new <name>...
+  naval_fate ship <name> move <x> <y> [--speed=<kn>]
+  naval_fate ship shoot <x> <y>
+  naval_fate mine (set|remove) <x> <y> [--moored|--drifting]
+  naval_fate -h | --help
+  naval_fate --version
+
+Options:
+  -h --help     Show this screen.
+  --version     Show version.
+  --speed=<kn>  Speed in knots [default: 10].
+  --moored      Moored (anchored) mine.
+  --drifting    Drifting mine. 
+"
+
+expect_error(
+  d <- docopt(doc)
+)