Switch writers to use the new @examplesTempdir

Author: coatless

DESCRIPTION

@@ -3,26 +3,29 @@ Title: Download and Extract Shinylive Applications
 Version: 0.1.0
 Authors@R: 
     person("James Joseph", "Balamuta", , "[email protected]", role = c("aut", "cre"))
-Description: Peeks into Quarto documents and standalone Shinylive applications
-    to download and extract their Shiny application source. Handles the
-    extraction of application files from app.json format into a directory structure.
+Description: Peek into published 'Shinylive' applications by retrieving their source code.
+    Supports downloading and extracting 'Shiny' application source from 
+    'Quarto' documents and standalone 'Shinylive' applications.
 URL: https://r-pkg.thecoatlessprofessor.com/peeky/, https://github.com/coatless-rpkg/peeky
 BugReports: https://github.com/coatless-rpkg/peeky/issues
+License: AGPL (>= 3)
 Imports: 
     jsonlite,
     httr,
     rvest,
     fs,
     cli
-License: AGPL (>= 3)
-Encoding: UTF-8
-Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
 Suggests: 
     knitr,
     rmarkdown,
     quarto,
     withr,
-    testthat (>= 3.0.0)
+    testthat (>= 3.0.0),
+    rocleteer
+Encoding: UTF-8
+Roxygen: list(markdown = TRUE, packages = c("rocleteer"))
+RoxygenNote: 7.3.2
 VignetteBuilder: quarto
 Config/testthat/edition: 3
+Remotes:
+  coatless-rpkg/rocleteer

NAMESPACE

@@ -5,3 +5,7 @@ S3method(print,standalone_shinylive_app)
 export(peek_quarto_shinylive_app)
 export(peek_shinylive_app)
 export(peek_standalone_shinylive_app)
+export(write_apps_to_dirs)
+export(write_apps_to_quarto)
+export(write_file_content)
+export(write_standalone_shinylive_app)

R/writers.R

@@ -30,8 +30,8 @@
 #' Parent directories in the file path are automatically created if they don't
 #' exist using `fs::dir_create()` with `recurse = TRUE`.
 #'
-#' @examples
-#' \dontrun{
+#' @export
+#' @examplesTempdir
 #' # Writing a text file
 #' write_file_content(
 #'   content = "library(shiny)\n\nui <- fluidPage()",
@@ -45,9 +45,6 @@
 #'   "DUlEQVR42mP8z8BQDwAEhQGAhKmMIQAAAABJRU5ErkJggg=="
 #' )
 #' write_file_content(b64img, "test.png", type = "binary")
-#' }
-#'
-#' @keywords internal
 write_file_content <- function(content, file_path, type = "text") {
     # Ensure parent directory exists
     parent_dir <- dirname(file_path)
@@ -136,9 +133,8 @@ write_file_content <- function(content, file_path, type = "text") {
 #'    - Properly closes the code block
 #' 3. Writes the complete document to the specified path
 #'
-#' @keywords internal
-#' @examples
-#' \dontrun{
+#' @export
+#' @examplesTempdir
 #' # Example apps list structure
 #' apps <- list(
 #'   list(
@@ -158,8 +154,6 @@ write_file_content <- function(content, file_path, type = "text") {
 #' )
 #'
 #' write_apps_to_quarto(apps, "applications.qmd")
-#' }
-#'
 #' @seealso
 #' * [write_apps_to_dirs()] for alternative directory output format
 write_apps_to_quarto <- function(apps, qmd_path) {
@@ -293,9 +287,8 @@ write_apps_to_quarto <- function(apps, qmd_path) {
 #' - [padding_width()] for directory number padding calculation
 #' - [write_apps_to_quarto()] for alternative Quarto output format
 #'
-#' @keywords internal
-#' @examples
-#' \dontrun{
+#' @export
+#' @examplesTempdir
 #' # Example apps list structure
 #' apps <- list(
 #'   list(
@@ -323,7 +316,6 @@ write_apps_to_quarto <- function(apps, qmd_path) {
 #' )
 #'
 #' write_apps_to_dirs(apps, "extracted_apps")
-#' }
 write_apps_to_dirs <- function(apps, base_dir) {
     fs::dir_create(base_dir, recurse = TRUE)
 
@@ -426,8 +418,8 @@ write_apps_to_dirs <- function(apps, base_dir) {
 #' - [create_standalone_shinylive_app()] for object creation
 #' - [validate_app_json()] for JSON data validation
 #'
-#' @examples
-#' \dontrun{
+#' @export
+#' @examplesTempdir
 #' # Example JSON data structure
 #' json_data <- list(
 #'   list(
@@ -447,8 +439,6 @@ write_apps_to_dirs <- function(apps, base_dir) {
 #'   "https://example.com/app.json",
 #'   "my_app"
 #' )
-#' }
-#' @keywords internal
 write_standalone_shinylive_app <- function(json_data, source_url, output_dir = "converted_shiny_app") {
     # Create output directory
     fs::dir_create(output_dir, recurse = TRUE)