Another release with package startup message about sf and terra

R/zzz.R

@@ -6,9 +6,9 @@ op <- options()
 }
 
 .onAttach <- function(libname, pkgname) {
-  packageStartupMessage("Version 0.4.5 of elevatr is the last version that will \n
-                        use the 'sp' and 'raster' packages. The next release \n
-                        will swith to 'sf' and 'terra'.")
+  packageStartupMessage(
+"elevatr v0.4.5 NOTE: This is the last version of 'elevatr' that will use the 
+'sp' and 'raster' packages. The next release will switch to 'sf' and 'terra'.")
 }
 
 .onUnload <- function(libname, pkgname){

vignettes/introduction_to_elevatr.R

@@ -0,0 +1,105 @@
+## ----setup, include=FALSE, echo=FALSE-----------------------------------------
+################################################################################
+#Load packages
+################################################################################
+library("sp")
+library("raster")
+library("knitr")
+library("elevatr")
+library("httr")
+library("sf")
+NOT_CRAN <- identical(tolower(Sys.getenv("NOT_CRAN")), "true")
+knitr::opts_chunk$set(purl = NOT_CRAN, 
+                      eval = NOT_CRAN,
+                      fig.width = 4, 
+                      fig.height = 4, 
+                      tidy = TRUE,
+                      dpi = 100)
+
+## ----environ, echo=FALSE------------------------------------------------------
+#key <- readRDS("../tests/testthat/key_file.rds")
+#Sys.setenv(mapzen_key=key)
+
+## ----example_dataframe--------------------------------------------------------
+# Create an example data.frame
+set.seed(65.7)
+examp_df <- data.frame(x = runif(3, min = -73, max = -72.5), 
+                       y = runif(3, min = 42 , max = 43))
+prj_dd <- "EPSG:4326"
+
+# Create and example data.frame with additional columns
+cats <- data.frame(category = c("H", "M", "L"))
+
+examp_df2 <- data.frame(examp_df, cats)
+
+# Create an example SpatialPoints
+examp_sp <- SpatialPoints(examp_df, proj4string = CRS(prj_dd))
+
+# Create an example SpatialPointsDataFrame
+examp_spdf <- SpatialPointsDataFrame(examp_sp, data = cats)
+
+## -----------------------------------------------------------------------------
+df_elev_epqs <- get_elev_point(examp_df, prj = prj_dd, src = "epqs")
+data.frame(df_elev_epqs)
+df2_elev_epqs <- get_elev_point(examp_df2, prj = prj_dd, src = "epqs")
+data.frame(df2_elev_epqs)
+sp_elev_epqs <- get_elev_point(examp_sp, src = "epqs")
+sp_elev_epqs
+spdf_elev_epqs <- get_elev_point(examp_spdf, src = "epqs")
+spdf_elev_epqs
+
+## -----------------------------------------------------------------------------
+df_elev_aws <- get_elev_point(examp_df, prj = prj_dd, src = "aws")
+
+## -----------------------------------------------------------------------------
+df_elev_aws$elevation
+df_elev_epqs$elevation
+
+## -----------------------------------------------------------------------------
+df_elev_aws_z12 <- get_elev_point(examp_df, prj = prj_dd, src = "aws", z = 12)
+df_elev_aws_z12$elevation
+df_elev_epqs$elevation
+
+## -----------------------------------------------------------------------------
+mt_everest <- data.frame(x = 86.9250, y = 27.9881)
+everest_aws_elev <- get_elev_point(mt_everest, prj = prj_dd, z = 14, src = "aws")
+everest_aws_elev
+
+## ----get_raster---------------------------------------------------------------
+# SpatialPolygonsDataFrame example
+data(lake)
+elevation <- get_elev_raster(lake,z = 9)
+plot(elevation)
+plot(lake, add=TRUE)
+
+# data.frame example
+elevation_df <- get_elev_raster(examp_df,prj=prj_dd, z = 5)
+plot(elevation_df)
+plot(examp_sp, add = TRUE)
+
+## ----expand-------------------------------------------------------------------
+# Bounding box on edge
+elev_edge<-get_elev_raster(lake, z = 10)
+plot(elev_edge)
+plot(lake, add = TRUE)
+
+# Use expand to grab additional tiles
+elev_expand<-get_elev_raster(lake, z = 10, expand = 15000)
+plot(elev_expand)
+plot(lake, add = TRUE)
+
+## ----timeout------------------------------------------------------------------
+library(httr)
+# Increase timeout:
+get_elev_raster(lake, z = 5, config = timeout(5))
+
+## ----timeout_verbose----------------------------------------------------------
+library(httr)
+# Increase timeout:
+get_elev_raster(lake, z = 5, config = c(verbose(),timeout(5)))
+
+## ---- eval=FALSE--------------------------------------------------------------
+#  lake_srtmgl1 <- get_elev_raster(lake, src = "gl1", clip = "bbox", expand = 1000)
+#  plot(lake_srtmgl1)
+#  plot(lake, add = TRUE)
+