add drop argument to spectralIndices

[csaybar]

Hi @davemlz, please :pray: can you add a drop=False argument to ee_extra.Spectral.core.spectralIndices?

library(rgee)
library(rgeeExtra)

ee_Initialize()

S2 <- ee$ImageCollection('COPERNICUS/S2_SR')$first()
names(ee_ImageCollection_spectralIndex(S2, 'kernel'))

I got:

[1] "B1" "B2" "B3" "B4" "B5" "B6" "B7" "B8" "B8A" "B9"
[11] "B11" "B12" "AOT" "WVP" "SCL" "TCI_R" "TCI_G" "TCI_B" "QA10" "QA20" [21] "QA60" "kEVI" "kNDVI" "kRVI" "kVARI"

I would like: [1] "kEVI" "kNDVI" "kRVI" "kVARI"

[davemlz]

Sure thing!

[davemlz]

Done!

[csaybar]

drop=FALSE works great!

library(rgee)
library(rgeeExtra)

ee_Initialize()

s2 <- ee$ImageCollection$Dataset$COPERNICUS_S2_SR %>%
  ee$ImageCollection$first() %>%
  ee_ImageCollection_preprocess()

green_indices <- ee_ImageCollection_spectralIndex(s2, c("NDVI", "SAVI"), drop = FALSE)
names(green_indices)

[1] "B1" "B2" "B3" "B4" "B5" "B6" "B7" "B8" "B8A" "B9"
[11] "B11" "B12" "AOT" "WVP" "SCL" "TCI_R" "TCI_G" "TCI_B" "QA10" "QA20" [21] "QA60" "NDVI" "SAVI"

drop=TRUE :(

library(rgee)
library(rgeeExtra)

ee_Initialize()

s2 <- ee$ImageCollection$Dataset$COPERNICUS_S2_SR %>%
  ee$ImageCollection$first() %>%
  ee_ImageCollection_preprocess()

green_indices <- ee_ImageCollection_spectralIndex(s2, c("NDVI", "SAVI"), drop = TRUE)

[1] "SAVI"

[csaybar]

@davemlz

[davemlz]

Ahhhh no manches. Ya sé qué hice mal. Espera.

[davemlz]

Ya! :)