Minor changes

- Change lapply to for
- Change port in test from 9999 to random
- Change example from dontrun to interactive()

R/config.R

@@ -30,7 +30,7 @@ new_config <- function(...) {
                 host = host
             ),
             ignore = ignore,
-            runner_compute = "hotwater_runner" # todo fix
+            runner_compute = "hotwater_runner"
         ),
         class = c("hotwater_config", "list")
     )

R/run.R

@@ -16,7 +16,7 @@
 #' @param ignore vector of files or file extensions to ignore (globs)
 #'
 #' @examples
-#' \dontrun{
+#' if (interactive()) {
 #'  hotwater::run(system.file("examples", "plumber.R", package = "hotwater"))
 #' }
 #'

R/script.R

@@ -6,7 +6,7 @@ common_install_paths <- list(
         "/usr/local/bin/",
         "/bin/"
     ),
-    windows = c()
+    windows = c() # does windows even work with this?
 )
 
 #' WORK IN PROGRESS
@@ -55,21 +55,17 @@ uninstall_hotwater <- function(install_folder = "~/.local/bin/") {
 #' @noRd
 check_suggests <- function() {
     suggests <- c("docopt")
-    lapply(
-        suggests,
-        function(suggestion) {
-            if (!requireNamespace(suggestion, quietly = TRUE)) {
-                cli::cli_abort(
-                    c(
-                        "Running {.pkg hotwater} from the command-line requires the {.pkg {suggestion}} package",
-                        "*" = "Try running {.code install.packages('{suggestion}')}"
-                    ),
-                    call = globalenv()
-                )
-            }
+    for (suggestion in suggests) {
+        if (!requireNamespace(suggestion, quietly = TRUE)) {
+            cli::cli_abort(
+                c(
+                    "Running {.pkg hotwater} from the command-line requires the {.pkg {suggestion}} package",
+                    "*" = "Try running {.code install.packages('{suggestion}')}"
+                ),
+                call = globalenv()
+            )
         }
-    )
-    invisible()
+    }
 }
 
 #' Run hotwater as a bash script

tests/testthat/test-engine.R

@@ -1,7 +1,6 @@
 test_that("engine reuse", {
     engine <- new_engine(
         new_config(
-            port = 9999L,
             path = "./foo/bar.R",
             dirs = "./R",
             host = "127.0.0.1"