move js to suggests

DESCRIPTION

@@ -10,11 +10,11 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.1
-Suggests:
-    testthat (>= 3.0.0)
 Config/testthat/edition: 3
 Imports:
     cli,
-    js,
     rlang,
     Rserve
+Suggests:
+    testthat (>= 3.0.0),
+    js

R/types.R

@@ -30,14 +30,14 @@ print.ts_object <- function(x, ...) {
     cli::cli_ul()
     cli::cli_h3("Input type: ")
     if (nchar(x$input_type) > 50) {
-        cat(js::uglify_reformat(x$input_type, beautify = TRUE), "\n")
+        cat(format_js(x$input_type), "\n")
     } else {
         cat(x$input_type, "\n")
     }
     cli::cli_h3("Return type: ")
     if (nchar(x$return_type) > 50) {
         print(x$return_type)
-        cat(js::uglify_reformat(x$return_type, beautify = TRUE), "\n")
+        cat(format_js(x$return_type), "\n")
     } else {
         cat(x$return_type, "\n")
     }
@@ -397,3 +397,10 @@ ts_void <- function() {
         }
     )
 }
+
+format_js <- function(x) {
+    if (!requireNamespace("js", quietly = TRUE)) {
+        return(x)
+    }
+    js::uglify_reformat(x, beautify = TRUE)
+}