## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>",
                      fig.width = 6, fig.height = 4.5)

## ----setup, include = FALSE---------------------------------------------------
library(sptrends)
r <- terra::rast(
  sort(list.files(
    example_data("vhp_ndvi"),
    pattern = "\\.tif$",
    full.names = TRUE
  ))
)

## -----------------------------------------------------------------------------
result <- workflow_tst(r, report = FALSE, verbose = FALSE)
result
summary(result)

## ----fig.alt = "TST direction map from workflow_tst()"------------------------
plot(result)

## ----eval = FALSE-------------------------------------------------------------
# tst <- workflow_tst(r, report = FALSE, verbose = FALSE)
# rta <- workflow_rta(r, report = FALSE, verbose = FALSE)