fix: error handling on viewer

DESCRIPTION

@@ -17,7 +17,7 @@ License: GPL-3
 Encoding: UTF-8
 LazyData: false
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.0
+RoxygenNote: 7.2.3
 Depends: R (>= 4.1.0)
 Imports:
   fs,

R/utils.R

@@ -12,7 +12,13 @@ browse_ambiorix <- function(open, url){
 
   viewer <- getOption("viewer", browseURL)
 
-  viewer(url)
+  x <- tryCatch(
+    viewer(url),
+    error = function(e) e
+  )
+
+  if(inerits(x, "error"))
+    cat("Unable to open browser, please open manually.\n")
 
   invisible()
 }

makefile

@@ -9,3 +9,6 @@ document:
 
 test:
 	Rscript -e "devtools::test()"
+
+dev:
+	Rscript test.R

tests/testthat/_snaps/app.md

@@ -0,0 +1,8 @@
+# application
+
+    Code
+      app
+    Message
+      -- Ambiorix ------------------------------------------------------ web server --
+      * routes: 8
+

tests/testthat/_snaps/cookie.md

@@ -0,0 +1,14 @@
+# Request cookie
+
+    Code
+      parser
+    Message
+      i A cookie parser
+
+---
+
+    Code
+      cook
+    Message
+      i A cookie: hello = "world"
+

tests/testthat/_snaps/forward.md

@@ -0,0 +1,7 @@
+# forward
+
+    Code
+      f
+    Output
+      Using next method
+

tests/testthat/_snaps/log.md

@@ -0,0 +1,32 @@
+# log
+
+    Code
+      success()
+    Output
+      <cli_ansi_string>
+      [1] v
+
+---
+
+    Code
+      error()
+    Output
+      <cli_ansi_string>
+      [1] x
+
+---
+
+    Code
+      info()
+    Output
+      <cli_ansi_string>
+      [1] i
+
+---
+
+    Code
+      warn()
+    Output
+      <cli_ansi_string>
+      [1] !
+

tests/testthat/_snaps/request.md

@@ -0,0 +1,52 @@
+# Request
+
+    Code
+      req
+    Message
+      
+      -- A Request 
+        * HEADERS:
+        text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9,
+        gzip, deflate, br, en-US,en;q=0.9, keep-alive, localhost:13698, " Not
+        A;Brand";v="99", "Chromium";v="99", ?0, "Linux", document, navigate, none,
+        ?1, 1, and Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like
+        Gecko) Chrome/99.0.4844.82 Safari/537.36
+        * HTTP_ACCEPT:
+        "text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9"
+        * HTTP_ACCEPT_ENCODING: "gzip, deflate, br"
+        * HTTP_ACCEPT_LANGUAGE: "en-US,en;q=0.9"
+        * HTTP_CACHE_CONTROL:
+        * HTTP_CONNECTION: "keep-alive"
+        * HTTP_COOKIE: ""
+        * HTTP_HOST: "localhost:13698"
+        * HTTP_SEC_FETCH_DEST: "document"
+        * HTTP_SEC_FETCH_MODE: "navigate"
+        * HTTP_SEC_FETCH_SITE: "none"
+        * HTTP_SEC_FETCH_USER: "?1"
+        * HTTP_UPGRADE_INSECURE_REQUESTS: "1"
+        * HTTP_USER_AGENT: "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36
+        (KHTML, like Gecko) Chrome/99.0.4844.82 Safari/537.36"
+        * httpuv.version 1.6.5
+        * PATH_INFO: "/"
+        * QUERY_STRING: ""
+        * REMOTE_ADDR: "127.0.0.1"
+        * REMOTE_PORT: "44328"
+        * REQUEST_METHOD: "GET"
+        * SCRIPT_NAME: ""
+        * SERVER_NAME: "127.0.0.1"
+        * SERVER_PORT: "127.0.0.1"
+        * CONTENT_LENGTH:
+        * CONTENT_TYPE:
+        * HTTP_REFERER:
+        * rook.version: "1.1-0"
+        * rook.url_scheme: "http"
+        * params: "params"
+    Output
+      List of 1
+       $ x: num 1
+    Message
+        * query: "query"
+    Output
+      List of 1
+       $ x: num 1
+

tests/testthat/_snaps/response.md

@@ -0,0 +1,57 @@
+# response
+
+    Code
+      res
+    Output
+      An ambiorix response
+
+# Response
+
+    Code
+      res
+    Message
+      
+      -- A Response 
+
+---
+
+    Code
+      print(robj(list(x = 1L)))
+    Message
+      i R object
+    Output
+      list(x = 1L)
+      $x
+      [1] 1
+      
+
+---
+
+    Code
+      print(jobj(list(x = 1L)))
+    Message
+      i JSON object
+    Output
+      [1] "data"
+
+---
+
+    Code
+      res
+    Message
+      
+      -- A Response 
+      
+      -- Headers 
+        * HEADER Content-Type
+    Output
+       chr "tab-separated-values"
+    Message
+        * HEADER Content-Length
+    Output
+       num 17685
+    Message
+        * HEADER xxx
+    Output
+       chr "hello"
+

tests/testthat/_snaps/router.md

@@ -0,0 +1,8 @@
+# rlication
+
+    Code
+      r
+    Message
+      -- Ambiorix ---------------------------------------------------------- router --
+      * routes: 8
+

tests/testthat/_snaps/websocket.md

@@ -0,0 +1,16 @@
+# Websocket
+
+    Code
+      ws
+    Message
+      i receive: `receive(message, ws)`
+        * Listening on message:
+      * name: "hello"
+
+---
+
+    Code
+      ws
+    Message
+      * send: `send(name, message)`
+