# NOT RUN {
ts <- taxon_state$new()
taxon_last()
ts
res <- list(
id = 123456,
att = "found",
multiple = FALSE,
direct = FALSE,
class = "tsn"
)
ts$add(query = "Quercus robur", result = res)
ts
ts$get(query = "Quercus robur")
ts$count
ts$remove(query = "Quercus robur")
ts
ts$count
res2 <- list(
id = 3430834535,
att = "found",
multiple = FALSE,
direct = FALSE,
class = "gbifid"
)
ts$add(query = "Poa annua", result = res2)
res3 <- list(
id = 1223424,
att = "found",
multiple = FALSE,
direct = FALSE,
class = "uid"
)
ts$add(query = "Puma concolor", result = res3)
ts
ts$count
ts$get("Puma concolor")
ts$get()
# cleanup
ts$purge()
ts$count
# }
Run the code above in your browser using DataCamp Workspace