Address devtools::check()

DESCRIPTION

@@ -25,7 +25,6 @@ Imports:
 URL: https://ryanzomorrodi.github.io/sasquatch/, https://github.com/ryanzomorrodi/sasr
 Suggests: 
     rmarkdown,
-    quarto,
     testthat (>= 3.0.0),
     curl
 VignetteBuilder: knitr

R/install.R

@@ -116,7 +116,7 @@ configure_saspy <- function(
 
     config <- list(
       java = java_path,
-      iom_host = iom_host,
+      iomhost = iom_host,
       iomport = 8591,
       encoding = "utf-8",
       authkey = "oda"
@@ -171,4 +171,25 @@ get_home_dir <- function() {
     home_dir <- regmatches(home_dir, regexpr("(.*?[/|\\\\]){3}", home_dir))
   }
   sub("[/|\\\\]$", "", home_dir)
-}
+}
+
+menu <- function(choices, title) {
+  nums <- seq_along(choices)
+  cat(title, "\n\n", sep = "")
+
+  mapply(
+    FUN = function(choice, num) {
+      cat(num, ": ", choice, "\n", sep = "")
+    }, 
+    choices, 
+    nums
+  )
+  cat("\n")
+  repeat {
+    selection <- readline("Selection: ")
+    if (selection %in% as.character(c(0, nums))) {
+      return(as.integer(selection))
+    }
+    cat("Enter an item from the menu, or 0 to exit\n")
+  }
+}

vignettes/setting_up.qmd → vignettes/setting_up.rmd

@@ -1,12 +1,9 @@
 ---
 title: "Setting Up"
-format: 
-  html:
-    toc: true
-    html-math-method: mathjax
+output: rmarkdown::html_vignette
 vignette: >
   %\VignetteIndexEntry{Setting Up}
-  %\VignetteEngine{quarto::html}
+  %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
 ---