Remove quarto complications

NAMESPACE

@@ -13,4 +13,3 @@ export(sas_run_selected)
 export(sas_run_string)
 export(sas_to_r)
 export(sas_upload)
-export(sas_use_quarto)

R/knitr.R

@@ -26,6 +26,7 @@
 #' @examples
 #' knitr::knit_engines$set(sas = sas_engine)
 sas_engine <- function (options) {
+  options$engine <- "txt"
   check_connection()
 
   code <- paste(options$code, collapse = "\n")
@@ -66,40 +67,3 @@ sas_engine <- function (options) {
 
   knitr::engine_output(options, code, out)
 }
-
-#' Add SAS quarto template to specified directory
-#' 
-#' @description
-#' Adds SAS quarto template and syntax highlighting XML to a specified
-#' directory.
-#'
-#' @param path (Default: Current directory) Path to copy quarto template and
-#' syntax highlighting XML into.
-#' @param xml Include syntax highlighting XML?
-#'  
-#' @return No return value.
-#' 
-#' @export
-#' 
-#' @examples
-#' \dontrun{
-#' sas_connect()
-#' sas_use_quarto()
-#' }
-sas_use_quarto <- function(path, xml = TRUE) {
-  if (missing(path)) {
-    path <- "."
-  } else if (!dir.exists(path)) {
-    stop("Specified directory does not exist")
-  }
-
-  template <- system.file("sasquatch.qmd", package = "sasquatch")
-  file.copy(template, path)
-
-  if (xml) {
-    sas_xml <- system.file("sas.xml", package = "sasquatch")
-    file.copy(sas_xml, path)
-  }
-
-  invisible()
-}

R/utils.R

@@ -2,18 +2,11 @@ wrap_in_iframe <- function(html) {
   html <- paste(html, collapse = "\n")
   html <- gsub("'", "\"", html)
 
-  html <- paste(
-    "<iframe width = '100%' srcdoc = '", 
-    html,
-    "<style>table {margin-left: auto; margin-right: auto;}</style>",
-    "<script src=\"https://cdn.jsdelivr.net/npm/@iframe-resizer/[email protected]\"></script>", 
-    "'></iframe>", 
-    sep = "\n"
-  )
-
   paste(
+    "<iframe width = '100%' class='resizable-iframe' srcdoc = '", 
     html,
-    "<script>iframeResize({license: 'GPLv3', scrolling: 'yes', waitForLoad: true}, 'iframe' );</script>",
+    "<style>table {margin-left: auto; margin-right: auto;}</style>",
+    "'></iframe>",
     sep = "\n"
   )
 }

R/zzz.R

@@ -3,4 +3,13 @@
 .onAttach <- function(libname, pkgname) {
   .pkgenv$SASPy <- reticulate::import("saspy", delay_load = TRUE)
   knitr::knit_engines$set(sas = sas_engine)
-}
+
+  knitr::knit_hooks$set(document = function(x, options) {
+    resizer_url <- system.file("resize-iframes.js", package = "sasquatch")
+    resizer_code <- paste(readLines(resizer_url), collapse = "\n")
+    resizer_script <- paste("<script>", resizer_code, "</script>", sep = "\n")
+
+    iframe_start <- "<iframe width = '100%' class='resizable-iframe'"
+    sub(iframe_start, paste0(resizer_script, iframe_start), x)
+  })
+}

README.Rmd

@@ -47,21 +47,26 @@ pak::pkg_install("ryanzomorrodi/sasquatch")
 
 ## Usage
 
-Once you have setup `SASPy` and connected to the right python environment using
-`reticulate` (if necessary), use `sas_use_quarto()` to create the `sasquatch` 
-template to a specified directory.
+Once you have setup `SASPy` and connected to the right python
+environment using `reticulate` (if necessary), you can create a quarto document
+like any other, call `sas_connect()`, and just get going!
 
-```{r, eval = FALSE}
-sasquatch::sas_use_quarto("path to directory")
-```
-
-Run the first code block within the template.
+`````{verbatim}
+---
+format: html
+engine: knitr
+---
 
-```{r, eval = FALSE}
+```{r}
 library(sasquatch)
 sas_connect()
 ```
 
+```{sas}
+
+```
+`````
+
 #### Code blocks
 
 Now, you should be able to run SAS code blocks in RStudio like any other.

README.md

@@ -40,20 +40,25 @@ pak::pkg_install("ryanzomorrodi/sasquatch")
 ## Usage
 
 Once you have setup `SASPy` and connected to the right python
-environment using `reticulate` (if necessary), use `sas_use_quarto()` to
-create the `sasquatch` template to a specified directory.
+environment using `reticulate` (if necessary), you can create a quarto
+document like any other, call `sas_connect()`, and just get going!
 
-``` r
-sasquatch::sas_use_quarto("path to directory")
-```
+```` default
+---
+format: html
+engine: knitr
+---
 
-Run the first code block within the template.
-
-``` r
+```{r}
 library(sasquatch)
 sas_connect()
 ```
 
+```{sas}
+
+```
+````
+
 #### Code blocks
 
 Now, you should be able to run SAS code blocks in RStudio like any

_pkgdown.yml

@@ -18,7 +18,6 @@ reference:
   - sas_run_string
   - sas_run_selected
   - sas_run_file
-  - sas_use_quarto
   - sas_engine
 
 - title: R <-> SAS

inst/resize-iframes.js

@@ -0,0 +1,21 @@
+function adjustIframeHeight(iframe) {
+    const iframeDocument = iframe.contentDocument || iframe.contentWindow.document;    
+    iframe.style.height = iframeDocument.documentElement.scrollHeight + 'px';
+}
+
+function adjustAllIframes() {
+    const iframes = document.querySelectorAll('.resizable-iframe'); 
+
+    iframes.forEach((iframe) => {
+        adjustIframeHeight(iframe); 
+    });
+}
+
+document.querySelectorAll('.resizable-iframe').forEach((iframe) => {
+    iframe.onload = function() {
+        adjustIframeHeight(iframe);
+    };
+});
+
+window.addEventListener('resize', adjustAllIframes);
+window.onload = adjustAllIframes;

vignettes/setting_up.Rmd

@@ -150,45 +150,25 @@ Open up your favorite R IDE and install `sasquatch`
 pak::pkg_install("ryanzomorrodi/sasquatch")
 ```
 
-Use `sas_use_quarto()` to create a `sasquatch` quarto template and download a syntax definitions xml for SAS within the current directory.
+Now you can create SAS quarto code blocks just like any other!
 
-```{r, eval = FALSE}
-library(sasquatch)
-sas_use_quarto()
-```
+Example:
 
-Regardless of your IDE, every sasquatch quarto starts with:
+`````{verbatim}
+---
+format: html
+engine: knitr
+---
 
-```{r, eval = FALSE}
+```{r}
 library(sasquatch)
 sas_connect()
 ```
 
-You may also notice that there are a few quarto yaml options applied within the `sasquatch` quarto template.
-
-The following portion of the yaml options, specifies that quarto will render to html and that the sas xml file downloaded will be used for syntax highlighting.
-
-``` yml
-format:
-  html:
-    syntax-definitions: 
-    - sas.xml
-```
-
-**Note:** At this time only rendering to html is supported.
-
-The next section of the xml specifies that a JavaScript library called `iframe-resizer`. This allows the SAS output to be render to its full extent within the quarto output.
-
-``` yml
-include-in-header:
-  text: <script src = 'https://cdn.jsdelivr.net/npm/@iframe-resizer/[email protected]'></script>
-```
-
-Lastly, we specify our rendering engine as `knitr`.
+```{sas}
 
-``` yml
-engine: knitr
 ```
+`````
 
 ### Interactive use