add data

Author: kongdd

.Rbuildignore

@@ -2,6 +2,7 @@
 ^\.Rproj\.user$
 ^LICENSE\.md$
 ^data-raw$
+^examples$
 ^\.github$
 ^\.vscode$
 ^scripts$

DESCRIPTION

@@ -8,6 +8,7 @@ Description: What the package does (one paragraph).
 License: MIT + file LICENSE
 Imports:
     rgee, reticulate, 
+    geojsonio,
     magrittr, 
     crayon
 Suggests: 
@@ -16,3 +17,6 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.3
+Depends: 
+    R (>= 4.1)
+LazyData: true

NAMESPACE

@@ -8,6 +8,7 @@ S3method(print,ee.image.Image)
 S3method(print,ee.imagecollection.ImageCollection)
 export(as_date_img)
 export(as_date_millis)
+export(ee)
 export(ee_Init)
 export(ee_aggregate_array)
 export(ee_auth_ci)
@@ -35,4 +36,5 @@ export(use_backend)
 import(crayon)
 import(magrittr)
 import(rgee)
+importFrom(rgee,ee)
 importFrom(utils,str)

R/ee_Init.R

@@ -16,7 +16,7 @@ ee_Init <- function(drive=FALSE, ...) {
     invisible()
   }, error = function(e) {
     # rgee::ee_Initialize(drive=drive, ...)
-    ee$Initialize(...)
+    ee_Initialize(...)
     # message(sprintf('%s', e$message))
   })
 }

R/rgeeLite-package.R

@@ -15,3 +15,7 @@ NULL
     )
   }
 }
+
+#' @importFrom rgee ee
+#' @export
+rgee::ee

data-raw/DATASET.R

@@ -0,0 +1,5 @@
+library(data.table)
+
+st_flux341 <- fread("data-raw/st_flux341.csv")
+sp <- df2sf(st_flux341)
+usethis::use_data(st_flux341, overwrite = TRUE)

data-raw/dat_flux.R

@@ -0,0 +1,19 @@
+devtools::load_all()
+# library(rgee)
+library(rgeeLite)
+library(sf)
+library(data.table)
+
+
+ee_Init()
+
+df2sf <- function(d, coords = c("lon", "lat"), crs = 4326, ...) {
+  st_as_sf(d, coords = coords, crs = crs, ...)
+}
+
+# rgeeLite::ee$ImageCollection$Dataset
+dataset <- ee$ImageCollection$Dataset
+imgcol <- dataset$ECMWF_ERA5_LAND_MONTHLY_AGGR$limit(1)
+
+sp = df2sf(st_flux341[1:10, ])
+r = ee_extract(imgcol, sp) # 实时的获取数据