R/getResources.R

In Labstep/labstepR: An R Package for Working with the Labstep API

#' Get List of Labstep Resources
#'
#' This function allows you to search your Resource library on Labstep.
#' @name getResources
#' @param user A labstep user object. Must contain an `api_key` field. Returned from `login` command
#' @param count Number of results to return. Defaults to 100.
#' @return Returns a list of `resource` objects
#' @import httr
#' @export
#' @examples
#' user <- login("demo@labstep.com","demopassword")
#' resources <- getResources(user)
#' print(resources)

getResources <- function(user,count=100){

  url = paste('https://api.labstep.com/api/generic/resource?search=1&resource_list_id=',
              user$resource_lists[[1]]$id,
              '&cursor=-1','&count=',min(count,1000),
              sep='')
  req <- httr::GET(url,
             add_headers(apikey=user$api_key),
             encode='json')

  resp = content(req)
  items = resp$items

  expected_results = min(resp$total,count)

  while(length(items)<expected_results){

    url = paste('https://api.labstep.com/api/generic/resource?search=1&resource_list_id=',
                user$resource_lists[[1]]$id,
                '&cursor=',resp$next_cursor,'&count=',min(expected_results-length(items),1000),
                sep='')
    req <- httr::GET(url,
               add_headers(apikey=user$api_key),
               encode='json')

    resp = content(req)
    items = c(items,resp$items)
  }

  return(items)
}