skinnyagain

Author: erwx

skinnySkeleton.R

@@ -1,4 +1,5 @@
 #!/usr/bin/env Rscript
+
 if (!requireNamespace("devtools", quietly = TRUE)) {
   stop("Please install devtools first: install.packages('devtools')")
 }
@@ -28,15 +29,15 @@ author_name <- read_from_terminal("Author name: ")
 author_email <- read_from_terminal("Author email: ")
 pkg_description <- read_from_terminal("Package description (a few sentences): ")
 
-# Create package directory
-pkg_path <- file.path(getwd(), pkg_name)
-cat("Creating package at:", pkg_path, "\n")
-
 # Ensure we have a valid package name
 if (nchar(trimws(pkg_name)) == 0) {
   stop("Package name cannot be empty")
 }
 
+# Create package in a new subdirectory
+pkg_path <- normalizePath(file.path(getwd(), pkg_name), mustWork = FALSE)
+cat("Creating package at:", pkg_path, "\n")
+
 usethis::create_package(pkg_path, open = FALSE)
 setwd(pkg_path)