minimal install

Author: erwx

README.md

@@ -239,6 +239,35 @@ Creating an R package isn't just for CRAN submissions—it's about **building be
 - **Contributing**: Pull requests welcome! See `CONTRIBUTING.md` for guidelines
 - **Community**: Join the broader R package development community
 
+## Minimal Installation
+
+Impatient?
+Skip the setup grind and get straight to coding:
+
+**Mac/Linux**
+
+```sh
+curl -SL https://raw.githubusercontent.com/CenterForAssessment/packageSkeleton/main/minimal-install.R | Rscript -
+```
+
+**Windows(PowerShell)**
+
+```powershell
+(Invoke-WebRequest -Uri "https://raw.githubusercontent.com/CenterForAssessment/packageSkeleton/main/minimal-install.R").Content | Rscript -
+```
+
+**What this does:**
+
+- Asks you 4 questions (package name, author, etc.)
+- Generates clean R package structure
+- Creates working Hello World function with docs
+- Includes parameterized Quarto example
+- Initializes Git repo
+
+No cloning. No find/replace battles. No wondering if you missed something.
+
+*Prefer the traditional workflow? The full template approach continues below.*
+
 ---
 
 **Ready to start building?** [Use this template](https://github.com/CenterForAssessment/packageSkeleton/generate) and create your first R package today! 🎉

minimal-install.R

@@ -0,0 +1,93 @@
+#!/usr/bin/env Rscript
+
+if (!requireNamespace("devtools", quietly = TRUE)) {
+  stop("Please install devtools first: install.packages('devtools')")
+}
+
+if (!requireNamespace("usethis", quietly = TRUE)) {
+  stop("Please install usethis first: install.packages('usethis')")
+}
+
+cat("Package name: ")
+pkg_name <- readLines("stdin", n = 1)
+
+cat("Package title: ")
+pkg_title <- readLines("stdin", n = 1)
+
+cat("Author name: ")
+author_name <- readLines("stdin", n = 1)
+
+cat("Author email: ")
+author_email <- readLines("stdin", n = 1)
+
+cat("Package description (a few sentences): ")
+pkg_description <- readLines("stdin", n = 1)
+
+usethis::create_package(pkg_name, open = FALSE)
+
+setwd(pkg_name)
+
+desc_content <- paste0(
+  "Package: ", pkg_name, "\n",
+  "Title: ", pkg_title, "\n",
+  "Version: 0.0.0.9000\n",
+  "Authors@R: person('", author_name, "', email = '", author_email, "', role = c('aut', 'cre'))\n",
+  "Description: ", pkg_description, "\n",
+  "License: MIT + file LICENSE\n",
+  "Encoding: UTF-8\n",
+  "Roxygen: list(markdown = TRUE)\n"
+)
+writeLines(desc_content, "DESCRIPTION")
+
+hello <- paste0(
+  "#' Hello World Function\n",
+  "#' @return A greeting\n",
+  "#' @export\n",
+  "hello <- function() {\n",
+  "  'Hello, world!'\n",
+  "}"
+)
+writeLines(hello, file.path("R", "hello.R"))
+
+devtools::document()
+
+usethis::use_mit_license()
+
+devtools::check()
+
+qmd_file <- file("example.qmd", open = "w")
+
+user_os <- R.version$os
+
+writeLines(c(
+  "---",
+  paste("title: \"", pkg_title, "\"", sep = ""),
+  paste("author: \"", author_name, "\"", sep = ""),
+  "params:",
+  "  name: \"World\"",
+  paste0("  os: \"", user_os, "\""),
+  "engine: knitr",
+  "---",
+  "",
+  paste("# Hello from ", pkg_title),
+  "",
+  "Hello, \`r params$name\`!",
+  "",
+  "This example shows basic parameterization. Your operating system appears to be: **\`r params$os\`**.",
+  "",
+  paste("Package created by ", author_name, ".")
+  ),
+  qmd_file
+)
+
+close(qmd_file)
+
+system("git init")
+system("git add .")
+system("git commit -m 'Initial package setup'")
+
+cat("Package created successfully!\n")
+cat("To push to GitHub:\n")
+cat("1. Create a new repository on GitHub\n") 
+cat("2. git remote add origin https://github.com/yourusername/", pkg_name, ".git\n")
+cat("3. git push -u origin main\n")