Skip to contents

Scaffold a new PTI app project

create_new_pti.Rd

Copies the bundled `template_pti` skeleton (located inside the installed package via [app_sys()]) into a new project directory, creating an `app.R` and an RStudio project file. When called from an RStudio session, the project is opened automatically. Use this to bootstrap a fresh PTI deployment that you then point at your own shapes and metadata.

Usage

create_new_pti(path, open = TRUE, app_name = basename(path))

Arguments

path

Character. Full path to the new project directory. The directory is created automatically; if it already exists the user is prompted (via [yesno::yesno()]) before any files are overwritten. `path = "."` writes into the current working directory.

open

Logical. If `TRUE` (default) and RStudio is active, the user is prompted before the project is opened in a new RStudio window. In other environments (Positron, VSCode, headless R) the project path is printed and no auto-open is attempted.

app_name

Character. Display name for the project; replaces `COUNTRY NAME` and `APP_NAME` tokens in scaffolded files. Defaults to the basename of `path`.

Value

Invisibly, the absolute path to the scaffolded project (as returned by [fs::path_abs()]). Returns `invisible(NULL)` if the user declines the overwrite prompt.

See also

Other pti-launch: launch_pti(), launch_pti_onepage()

Examples

# Scaffold into a temporary directory; works headlessly because
# rstudioapi::hasFun("initializeProject") is FALSE outside RStudio.
new_app <- file.path(tempdir(), "demo_pti")
create_new_pti(new_app, open = FALSE)
#> ✔ Project scaffolded at /tmp/RtmpAlzuTw/demo_pti
#> ℹ Open this folder as a new project in your IDE to get started.
#> ✔ Project directory created
#> ✔ Skeleton files copied
#> ✔ Template tokens replaced (app_name = "demo_pti")
#> ℹ Open app.R and set your data paths
#> ℹ Run source('00-master.R') to build the app data
list.files(new_app)
#>  [1] "00-master.R"              "01-shapes.qmd"           
#>  [3] "02a-user-zonal-stats.qmd" "03-user-data.qmd"        
#>  [5] "04-hex-data.qmd"          "05-compile.qmd"          
#>  [7] "06-deploy.R"              "CHECKLIST.md"            
#>  [9] "R"                        "README.md"               
#> [11] "_quarto.yml"              "app-page.qmd"            
#> [13] "app.R"                    "data-raw"                
#> [15] "landing-page.md"          "sample-data"             
unlink(new_app, recursive = TRUE)