R/lists.r

In jowalski/rtmr: R client for the Remember the Milk API

##' Get the RTM list name from an id.
##'
##' @param id the RTM list id
##' @return the list name
##' @export
get_rtm_list_name <- function(id) {
  lists_info <- rtm_lists()
  as.character(setNames(lists_info[["name"]], lists_info[["id"]])[id])
}

##' Retrieve a list of task lists from the RTM API.
##'
##' @return a list of lists
rtm_lists <- function() {
  lists <- rtm_req("rtm.lists.getList")
  if (exists("lists", lists) &&
      exists("list", lists[["lists"]]))
    lists[["lists"]][["list"]]
  else
    stop("problem retrieving RTM lists")
}

##' Get a list id from a name.
##'
##' @param name a list name
##' @return a list id as a character string
get_rtm_list_id <- function(name) {
  lists <- rtm_lists()
  lists[["id"]][lists[["name"]] == name]
}