world.R

library(rgee)
ee_reattach()
ee_Initialize()

world_RGB <- ee$ImageCollection('MODIS/006/MCD43A4')$
  filter(ee$Filter$date('2010-04-01', '2010-06-30'))$
  select(
    list(
      'Nadir_Reflectance_Band1',
      'Nadir_Reflectance_Band4',
      'Nadir_Reflectance_Band3'
      )
  )$median()

vizparams = list(
  min = 0.0,
  max = 4000.0,
  gamma = 1.4,
  format = "jpg"
)


world_region <- ee$Geometry$Rectangle(
  coords = list(-180,-60,180,60),
  proj = "EPSG:4326",
  geodesic = FALSE
)

world <- ee_as_thumbnail(
  x = world_RGB,
  dimensions = 2048,
  region = world_region,
  vizparams = vizparams,
  raster = TRUE
)
options(error = NULL)
plotRGB(world, stretch = "lin")