R/gs4_browse.R

In googlesheets4: Access Google Sheets using the Sheets API V4

#' Visit a Sheet in a web browser
#'
#' Visits a Google Sheet in your default browser, if session is interactive.
#'
#' @inheritParams read_sheet
#'
#' @return The Sheet's browser URL, invisibly.
#' @export
#' @examples
#' gs4_example("mini-gap") %>% gs4_browse()
gs4_browse <- function(ss) {
  ## TO RECONSIDER AFTER AUTH: get the official link, if we're in auth state?
  # googledrive::drive_browse(as_sheets_id(ss))
  ssid <- as_sheets_id(ss)
  url <- glue("https://docs.google.com/spreadsheets/d/{ssid}")
  if (is_interactive()) {
    utils::browseURL(url)
  }
  invisible(url)
}