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


## ---- 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")