Nothing
#' 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
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.