# NOT RUN {
if(requireNamespace("curl") &
curl::has_internet()) {
library(aqp)
your.points <- data.frame(id = c("A", "B"),
lat = c(37.9, 38.1),
lon = c(-120.3, -121.5),
stringsAsFactors = FALSE)
x <- fetchSoilGrids(your.points)
plotSPC(x, name = NA, color = "socQ50")
}
# }
Run the code above in your browser using DataLab