if (FALSE) {
library(rgee)
ee_Initialize()
ee_user_info()
# Change datacolecfbf by your EE user to be able to reproduce
user <- ee_get_assethome()
addm <- function(x) sprintf("%s/%s",user, x)
# 1. Create a folder or Image Collection
# Change path asset according to your specific user
ee_manage_create(addm("rgee"))
# 1. List all the elements inside a folder or a ImageCollection
ee_manage_assetlist(path_asset = addm("rgee"))
# 2. Create a Folder or a ImageCollection
ee_manage_create(
path_asset = addm("rgee/rgee_folder"),
asset_type = "Folder"
)
ee_manage_create(
path_asset = addm("rgee/rgee_ic"),
asset_type = "ImageCollection"
)
ee_manage_assetlist(path_asset = addm("rgee"))
# 3. Shows Earth Engine quota
ee_manage_quota()
# 4. Move an EE object to another folder
ee_manage_move(
path_asset = addm("rgee/rgee_ic"),
final_path = addm("rgee/rgee_folder/rgee_ic_moved")
)
ee_manage_assetlist(path_asset = addm("rgee/rgee_folder"))
# 5. Set properties to an EE object.
ee_manage_set_properties(
path_asset = addm("rgee/rgee_folder/rgee_ic_moved"),
add_properties = list(message = "hello-world", language = "R")
)
ic_id <- addm("rgee/rgee_folder/rgee_ic_moved")
test_ic <- ee$ImageCollection(ic_id)
test_ic$getInfo()
# 6. Delete properties
ee_manage_delete_properties(
path_asset = addm("rgee/rgee_folder/rgee_ic_moved"),
del_properties = c("message", "language")
)
test_ic$getInfo()
# 7. Create a report based on all the tasks
# that are running or have already been completed.
ee_manage_task()
# 8. Cancel all the running task
ee_manage_cancel_all_running_task()
# 9. Delete EE objects or folders
ee_manage_delete(addm("rgee/"))
}
Run the code above in your browser using DataLab