R/ss_sheetid.R

In smartsheetr: Access and Write 'Smartsheet' Data using the 'Smartsheet' API 2.0

#' Get a smartsheet sheetId from a response
#'
#' @param resp An ss_resp object
#'
#' @examples
#' \dontrun{
#' ss_id = ss_sheetid(ss_write_sheet(paste0("smartsheetr-example-",random_sheet_name())))
#' }
#'
#' @return A numeric sheetId
#'
#' @export
ss_sheetid <- function(resp) {
  UseMethod("ss_sheetid")
}

#' @export
#' @noRd
ss_sheetid.ss_createsheet_resp <- function(resp) {
  resp$content$result$id
}

#' @export
#' @noRd
ss_sheetid.ss_addrows_resp <- function(resp) {
  # Interesting that sheetId is returned for every row. Take the first
  ss_resp_data_to_dataframe(resp$content$result)$sheetId[1]
}

#' @export
#' @noRd
ss_sheetid.ss_writesheet_resp <- function(resp) {
  resp$content$id
}

#' @export
#' @noRd
ss_sheetid.ss_addcolumns_resp <- function(resp) {
  ss_resp_data_to_dataframe(resp$content$result)$id
}