# is the server reachable
server_check <- appeears:::rs_running(
file.path(appeears:::rs_server(),"product")
)
# get a list of datasets
if(server_check){
layers <- rs_layers("MCD43A4.006")
print(layers$Layer)
}
Run the code above in your browser using DataLab