feat create_renv_for_dev can work even outside of an R packages

R/create_renv.R

@@ -59,6 +59,7 @@ create_renv_for_dev <- function(path = ".",
  stop("'renv' is required. Please install it before.")
  }
 
+ path_orig <- path
  path <- normalizePath(path)
 
  if (!is.null(dev_pkg) && "_default" %in% dev_pkg) {
@@ -68,6 +69,11 @@ create_renv_for_dev <- function(path = ".",
  dev_pkg <- c(extra_dev_pkg, dev_pkg[dev_pkg != "_default"])
  }
 
+
+# s'il n y pas de fichier DESCRIPTION on va chercher l'information ailleurs
+
+ if (file.exists(file.path(path, "DESCRIPTION"))){
+
  if (isTRUE(document)) {
  # Use a temporary config_file for renv
  config_file <- file.path(path, "dev", "config_attachment.yaml")
@@ -101,7 +107,23 @@ create_renv_for_dev <- function(path = ".",
  att_from_description(path = file.path(path, "DESCRIPTION"),field = fields),
  dev_pkg
  )
- )
+ )} else {
+ cli::cli_alert_info("No DESCRIPTION file found")
+ cli::cli_alert_info( paste(
+ "we wil parse qmd files,Rmd files and R scripts i ",path,
+ "."
+ ))
+
+
+ pkg_list <- unique(
+ c(
+ att_from_qmds(path = path,recursive = TRUE),
+ att_from_rmds(path = path,recursive = TRUE),
+ att_from_rscripts(path = path,recursive = TRUE),
+ dev_pkg
+ )
+ )
+ }
 
  # Extra folders
  folder_to_include_relative <- folder_to_include

inst/dummyfolder/global.R

@@ -0,0 +1,2 @@
+library(dplyr)
+library(sudoku)

inst/dummyfolder/server.R

@@ -0,0 +1,28 @@
+#
+# This is the server logic of a Shiny web application. You can run the
+# application by clicking 'Run App' above.
+#
+# Find out more about building applications with Shiny here:
+#
+# http://shiny.rstudio.com/
+#
+
+library(shiny)
+
+# Define server logic required to draw a histogram
+function(input, output, session) {
+
+ output$distPlot <- renderPlot({
+
+ # generate bins based on input$bins from ui.R
+ x <- faithful[, 2]
+ bins <- seq(min(x), max(x), length.out = input$bins + 1)
+
+ # draw the histogram with the specified number of bins
+ hist(x, breaks = bins, col = 'darkgray', border = 'white',
+ xlab = 'Waiting time to next eruption (in mins)',
+ main = 'Histogram of waiting times')
+
+ })
+
+}

inst/dummyfolder/ui.R

@@ -0,0 +1,33 @@
+#
+# This is the user-interface definition of a Shiny web application. You can
+# run the application by clicking 'Run App' above.
+#
+# Find out more about building applications with Shiny here:
+#
+# http://shiny.rstudio.com/
+#
+
+library(shiny)
+
+# Define UI for application that draws a histogram
+fluidPage(
+
+ # Application title
+ titlePanel("Old Faithful Geyser Data"),
+
+ # Sidebar with a slider input for number of bins
+ sidebarLayout(
+ sidebarPanel(
+ sliderInput("bins",
+ "Number of bins:",
+ min = 1,
+ max = 50,
+ value = 30)
+ ),
+
+ # Show a plot of the generated distribution
+ mainPanel(
+ plotOutput("distPlot")
+ )
+ )
+)

tests/testthat/test-renv_create2.R

@@ -0,0 +1,49 @@
+# These tests can not run on CRAN
+skip_on_cran()
+
+if (length(find.package("extrapackage", quiet = TRUE)) != 0) {
+ unlink(find.package("extrapackage", quiet = TRUE), recursive = TRUE)
+}
+
+# test on dummy package
+tmpdir <- tempfile(pattern = "pkgrenv2")
+dir.create(tmpdir)
+file.copy(
+ system.file("dummyfolder", package = "attachment"), tmpdir,
+ recursive = TRUE
+)
+dummyfolder <- file.path(tmpdir, "dummyfolder")
+lock_ <- file.path(tmpdir, "my_lock.lock")
+
+
+ expect_message({
+
+ my_renv_ <- create_renv_for_dev(
+ path = dummyfolder,
+ install_if_missing = FALSE,
+ output = lock_,
+ # force generation of a lockfile even when pre-flight validation checks have failed?
+ force = TRUE)}
+ )
+
+
+
+
+
+test_that("create_renv_for_dev creates lock files even without DESCRIPTION file", {
+ expect_true(file.exists(lock_))
+})
+
+# print(my_renv_extra)
+
+
+renv_content <- getFromNamespace("lockfile", "renv")(my_renv_)
+
+
+test_that("lockfile are correct renv files", {
+expect_s3_class(renv_content, "renv_lockfile_api")
+expect_true("dplyr" %in% names(renv_content$data()$Packages))
+expect_true("sudoku" %in% names(renv_content$data()$Packages))
+})
+
+