Rename package from shinyrepro to shinyreprex

DESCRIPTION

@@ -1,4 +1,4 @@
-Package: shinyrepro
+Package: shinyreprex
 Type: Package
 Title: Reproducible Code for 'Shiny' Objects
 Version: 0.1.0
@@ -8,8 +8,8 @@ Description: Provides functionality to extract reactive expressions from a 'Shin
     outside the interactive UI, facilitating integration into static reports or automated workflows 
     without requiring access to the original application source code.
 License: MIT + file LICENSE
-URL: https://github.com/AscentSoftware/shinyrepro, https://jubilant-dollop-5lekoky.pages.github.io
-BugReports: https://github.com/AscentSoftware/shinyrepro/issues
+URL: https://github.com/AscentSoftware/shinyreprex, https://ascentsoftware.github.io/shinyreprex/
+BugReports: https://github.com/AscentSoftware/shinyreprex/issues
 Depends:
     R (>= 4.3.0)
 Imports:
@@ -49,4 +49,4 @@ Collate:
     'chunk_generic.R'
     'chunk_reactive.R'
     'package.R'
-    'repro.R'
+    'reprex_reactive.R'

NAMESPACE

@@ -1,6 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
-export(repro)
+export(reprex_reactive)
 if (getRversion() < "4.3.0") importFrom("S7", "@")
 importFrom(purrr,map)
 importFrom(styler,style_text)

NEWS.md

@@ -1,3 +1,3 @@
-# shinyrepro 0.1.0
+# shinyreprex 0.1.0
 
-* This is the first release of shinyrepro
+* This is the first release of shinyreprex

R/chunk_reactive.R

@@ -1,8 +1,8 @@
 #' @description
 #' When reproducing a reactive object, a step is required to get the environment that
-#' the reactive was assigned in, rather than the environment that is calling `repro`.
+#' the reactive was assigned in, rather than the environment that is calling `shiny_reprex`.
 #' For that, some diving into the internals of the observable object is required to
-#' get the specific environment, before generating the repro code.
+#' get the specific environment, before generating the reproducible code.
 #'
 #' ## Environments
 #' The `Observable` object attached to the given reactive is extracted. Within the

R/repro.R → R/reprex_reactive.R

@@ -59,15 +59,15 @@
 #'   })
 #'
 #'   output$table <- renderTable(summary_tbl())
-#'   output$code <- renderText(repro(summary_tbl))
+#'   output$code <- renderText(reprex_reactive(summary_tbl))
 #' }
 #'
 #' if (interactive()) {
 #'   shinyApp(ui, server)
 #' }
 #'
 #' @export
-repro <- function(x) {
+reprex_reactive <- function(x) {
   if (!inherits(x, "reactiveExpr")) {
     x_name <- rlang::caller_arg(x)
 

R/repro_call_chunk.R

@@ -4,12 +4,14 @@
 #' A short description...
 #'
 #' @param x `call` object to make reproducible, with prefixed class of the call name
-#' @param env The environment `x` is defined in. By default it is the environment of where `repro` is called
+#' @param env The environment `x` is defined in. By default it is the environment of where
+#' `reprex_reactive` is called
 #' @param ... Additional arguments to pass to other methods
 #'
 #' @details
-#' Whilst a default is provided to `env`, it is unlikely that this is the same environment `x` is defined
-#' in. This is more of a placeholder for sending the correct environment to
+#' Whilst a default is provided to `env`, it is unlikely that this is the same environment
+#' `x` is defined in. This is more of a placeholder for sending the correct environment to
+#' evaluate any reactive mentioned in the call.
 #'
 #' @returns
 #' A `Repro` object containing all the necessary code and packages to recreate

R/repro_chunk.R

@@ -10,11 +10,12 @@
 #' empty, but if `x` is not the first call within an expression, this will have
 #' prior calls and pre-requisites that might be used in `x`.
 #' @param env The environment `x` is defined in. By default it is the environment of where
-#' `repro` is called
+#' `reprex_reactive` is called
 #'
 #' @details
 #' Whilst a default is provided to `env`, it is unlikely that this is the same environment
-#' `x` is defined in. This allows the top-level `repro` call
+#' `x` is defined in. This allows the top-level `reprex_reactive` call to pass through
+#' environments found for calls to other reactives in the chunk.
 #'
 #' @returns
 #' A `Repro` object containing all the necessary code and packages to recreate

README.md

@@ -1,12 +1,12 @@
-# shinyrepro
+# shinyreprex
 
 <!-- badges: start -->
-[![R-CMD-check](https://github.com/AscentSoftware/shinyrepro/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/AscentSoftware/shinyrepro/actions/workflows/R-CMD-check.yaml)
+[![R-CMD-check](https://github.com/AscentSoftware/shinyreprex/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/AscentSoftware/shinyreprex/actions/workflows/R-CMD-check.yaml)
 <!-- badges: end -->
 
 ## Overview
 
-The aim of **shinyrepro** is to be able to recreate any reactive or output that is available in 
+The aim of **shinyreprex** is to be able to recreate any reactive or output that is available in 
 a Shiny application outside of said application.
 
 In static documents, like Quarto, it is easy to include the code chunk by including code folding. 
@@ -16,22 +16,22 @@ environment outside of Shiny.
 
 ## Installation
 
-To get the latest version of shinyrepro, install from GitHub:
+To get the latest version of shinyreprex, install from GitHub:
 
 ```r
 require(remotes)
-remotes::install_github("AscentSoftware/shinyrepro")
+remotes::install_github("AscentSoftware/shinyreprex")
 ```
 
 ## Usage
 
-The following examples takes a couple of inputs, and uses one of them in one reactive, and the other
-in another reactive. The second reactive is a table output, which can be passed to `repro` to re-create
-the code that generates the table seen in the UI.
+The following examples takes a couple of inputs, and uses one of them in one reactive, and the 
+other in another reactive. The second reactive is a table output, which can be passed to 
+`reprex_reactive` to re-create the code that generates the table seen in the UI.
 
 ```r
 library(shiny)
-library(shinyrepro)
+library(shinyreprex)
 
 ui <- fluidPage(
   h1("Reproducible Code Example"),
@@ -82,7 +82,7 @@ server <- function(input, output, session) {
     bindEvent(input$update)
 
   output$table <- renderTable(summary_tbl())
-  output$code <- renderText(repro(summary_tbl))
+  output$code <- renderText(reprex_reactive(summary_tbl))
 }
 
 shinyApp(ui, server)

_pkgdown.yml

@@ -1,4 +1,4 @@
-url: https://ascentsoftware.github.io/shinyrepro/
+url: https://ascentsoftware.github.io/shinyreprex/
 template:
   package: ascentdown
   bootstrap: 5

tests/testthat.R

@@ -7,6 +7,6 @@
 # * https://testthat.r-lib.org/articles/special-files.html
 
 library(testthat)
-library(shinyrepro)
+library(shinyreprex)
 
-test_check("shinyrepro")
+test_check("shinyreprex")

tests/testthat/test-call_chunk_function.R

@@ -33,7 +33,7 @@ test_that("Able to extract inputs inside anonymous functions within a reactive e
     expr = {
       session$setInputs(min_width = 2.5, max_width = 10)
 
-      repro_code <- repro(max_area)
+      repro_code <- reprex_reactive(max_area)
       expect_identical(
         repro_code,
         paste(
@@ -64,7 +64,7 @@ test_that("Able to extract inputs as arguments to anonymous functions within a r
     expr = {
       session$setInputs(min_width = 2.5, max_width = 10)
 
-      repro_code <- repro(max_area)
+      repro_code <- reprex_reactive(max_area)
       expect_identical(
         repro_code,
         paste(

tests/testthat/test-call_chunk_if.R

@@ -14,7 +14,7 @@ test_that("Able to extract the 'if' part of an if/else statement", {
     expr = {
       session$setInputs(min_width = 3.5)
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(repro_code, "iris[with(iris, Sepal.Width > 3.5), ]")
     }
   )
@@ -36,7 +36,7 @@ test_that("Able to extract the 'else' part of an if/else statement", {
     expr = {
       session$setInputs(min_width = 2.5)
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(repro_code, "iris[with(iris, Sepal.Width < 2.5), ]")
     }
   )
@@ -60,7 +60,7 @@ test_that("Able to extract the 'else if' part of an if/else statement", {
     expr = {
       session$setInputs(min_width = 2.5, species = "versicolor")
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(repro_code, "iris[with(iris, Species == \"versicolor\" & Sepal.Width > 2.5), ]")
     }
   )
@@ -84,7 +84,7 @@ test_that("Able to extract the 'else if' part of an if/else if/else statement",
     expr = {
       session$setInputs(min_width = 2.5, species = "setosa")
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(repro_code, "iris[with(iris, Sepal.Width < 2.5), ]")
     }
   )

tests/testthat/test-call_chunk_null.R

@@ -1,4 +1,4 @@
-test_that("When NULL value is parsed from a call, it returns the call in a repro object", {
+test_that("When NULL value is parsed from a call, it returns the call in a Repro object", {
   null_call <- str2lang("datasets::penguins")
   class(null_call) <- c("NULL", class(null_call))
 
@@ -18,7 +18,7 @@ test_that("Able to extract a `NULL` variable", {
     expr = {
       session$setInputs(min_width = 3.5)
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(repro_code, "datasets::penguins")
     }
   )

tests/testthat/test-call_chunk_utils.R

@@ -4,7 +4,7 @@ test_that("Able to extract package name from pkg::fn call", {
 })
 
 test_that("Able to extract package name from unnamespaced function call", {
-  expect_identical(get_pkg_name(str2lang("repro_chunk('foo')")), "shinyrepro")
+  expect_identical(get_pkg_name(str2lang("repro_chunk('foo')")), "shinyreprex")
 })
 
 test_that("When extract package from function call, base R packages are ignored", {

tests/testthat/test-chunk_reactive.R

@@ -35,7 +35,7 @@ test_that("Reactive code chunk is correctly extracted", {
   )
 })
 
-# repro reactives ----
+# reprex reactives ----
 test_that("Able to extract reactive expression code from a standard reactive", {
   test_server <- function(input, output, session) {
     iris_filt <- reactive(iris[with(iris, Sepal.Width > input$min_width), ])
@@ -54,7 +54,7 @@ test_that("Able to extract reactive expression code from a standard reactive", {
     expr = {
       session$setInputs(min_width = 3.5, summary_fn = "median")
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(
         repro_code,
         paste(
@@ -88,7 +88,7 @@ test_that("Able to extract reactive expression code from bindCache", {
     expr = {
       session$setInputs(min_width = 3.5, summary_fn = "median")
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(
         repro_code,
         paste(
@@ -122,7 +122,7 @@ test_that("Able to extract reactive expression code from bindEvent", {
     expr = {
       session$setInputs(min_width = 3.5, summary_fn = "median")
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(
         repro_code,
         paste(
@@ -158,7 +158,7 @@ test_that("Able to extract reactive expression code from bindEvent and bindCache
     expr = {
       session$setInputs(min_width = 3.5, summary_fn = "median")
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(
         repro_code,
         paste(
@@ -192,7 +192,7 @@ test_that("Able to extract reactive expression code from eventReactive", {
     expr = {
       session$setInputs(min_width = 3.5, summary_fn = "median")
 
-      repro_code <- repro(summary_tbl)
+      repro_code <- reprex_reactive(summary_tbl)
       expect_identical(
         repro_code,
         paste(