library("redivis")datasets <- redivis$organization("Demo")$list_datasets()for (dataset in datasets){# Properties will contain the dataset.list API representationprint(dataset$properties) dataset$get()# Properties will now contain the dataset.get API representationprint(dataset$properties) }
loadNamespace("redivis")dataset <- redivis$organization("Demo")$dataset("ghcn daily weather data")tables <- dataset$list_tables()for (table in tables){# Properties will contain the table.list API representationprint(table$properties) table$get()# Properties will now contain the table.get API representationprint(table$properties) }
library("redivis")dataset <- redivis$organization("Demo")$dataset("ghcn daily weather data")table <- dataset$table("daily observations")variables <- table$list_variables()for (variable in variables){# Properties will contain the variable.list API representationprint(table$properties) table$get(wait_for_statistics=FALSE)# Properties will now contain the variable.get API representationprint(table$properties) }