smap L3 download

smap.R

library(rgee)
library(sf)

ee_Initialize()

# Define study area
ee_arequipa <- system.file("shp/arequipa.shp", package="rgee") %>% 
  st_read() %>% 
  st_bbox() %>% 
  st_as_sfc() %>% 
  sf_as_ee() %>% 
  ee$FeatureCollection$geometry()

# Define start and end ee$Dates.
startDate <- "2018-01-10"
endDate <- "2018-01-20"

#Define a base collection
smap <- ee$ImageCollection("NASA_USDA/HSL/SMAP_soil_moisture")$
  map(function(x) x$select("ssm"))$
  filterDate(startDate, endDate)

smap_arq <- ee_imagecollection_to_local(smap, ee_arequipa, dsn = "arq_")