## ----echo=FALSE, include=FALSE------------------------------------------------
library(knitr)
opts_chunk$set(fig.width = 5, fig.height = 5, fig.cap='',  collapse = TRUE)
library(terra)


## ----shp1---------------------------------------------------------------------
library(terra)
filename <- system.file("ex/lux.shp", package="terra")
basename(filename)


## ----shp2---------------------------------------------------------------------
s <- vect(filename)
s


## ----shp3---------------------------------------------------------------------
outfile <- "shp_test.shp"
writeVector(s, outfile, overwrite=TRUE)


## -----------------------------------------------------------------------------
ff <- list.files(patt="^shptest")
file.remove(ff)


## ----ras0---------------------------------------------------------------------
f <- system.file("ex/logo.tif", package="terra")
basename(f)


## ----ras1---------------------------------------------------------------------
r <- rast(f)
r


## ----ras2---------------------------------------------------------------------
r2 <- r[[2]]
r2


## ----ras5---------------------------------------------------------------------
x <- writeRaster(r, "test_output.tif", overwrite=TRUE)
x


## ----echo=FALSE, include=FALSE------------------------------------------------
file.remove("test_output.tif")