R/jira_gs_update_daily.R

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

#' jira_gs_update
#'
#' A cool little tool for updating the JIRA data in Google Sheets, for any daily data set
#' @param df1 The first data-frame, as created by \code{\link{jira_tickets_day}}
#' @seealso \code{\link{jira_issues}} which pulls the underlying data set
#' @export

jira_gs_update_daily <- function(df1) {

  require(googlesheets)
  require(tidyverse)

dir <- getwd()

write.table(df1,file='mba_days.csv',sep=',',row.names=FALSE)
path1 <- paste(dir,'mba_days.csv',sep='/')
gs_upload(path1,sheet_title = 'mba_days',verbose=TRUE,overwrite = TRUE)

}