get_shareable_link_to_data.R

# upload a data frame to google drive, make it shareable, and
# copy the shareable link into the clipboard

# if direct = TRUE, the link can be used immediately to read in the file
# if direct = FALSE, the link takes users to a nice preview of the file instead
get_shareable_link_to_data <- function(data, path, direct = TRUE) {
  readr::write_csv(data, path)
  df <- googledrive::drive_upload(path, path)
  df <- googledrive::drive_share(df, role = "reader", type = "anyone")

  if (direct)
    link <- paste0("https://drive.google.com/uc?export=download&id=", df$id)
  else
    link <- googledrive::drive_link(df)

  clipr::write_clip(link)
  fs::file_delete(path)
  cat(link)
  invisible(link)
}

# link for direct download / immediate use
get_shareable_link_to_data(mtcars, "mtcars.csv")
#> ...
#> https://drive.google.com/uc?export=download&id=1xwS1vPFst3wJjng6uwoDHQdav9FvI3bp

mt <- read.csv("https://drive.google.com/uc?export=download&id=1xwS1vPFst3wJjng6uwoDHQdav9FvI3bp")
head(mt)

# link for easy viewing
get_shareable_link_to_data(mtcars, "mtcars.csv", direct = FALSE)
#> ...
#> https://drive.google.com/file/d/1amfcNFj4ufdYzvM4cnLwZB-MlKOAgk3E/view?usp=drivesdk