R/gs_quick_cells.R

In neugelb/njira: Extract data from the JIRA API for Neugelb

gs_cells_quick <- function(df,name) {

require(googlesheets)
require(tidyverse)

xlist <- gs_ls() %>%
  filter(sheet_title == name)

key <- xlist[['sheet_key']]

gkey <- gs_key(key)

gs_edit_cells(gkey,ws=1,input=df,anchor='A1',trim=TRUE,col_names=TRUE)

}