R/jira_gs_update.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
#' @param df1 The data-frame, usually the one created by running \code{\link{jira_issues}}
#' @param df2 The second data-frame, as created by \code{\link{jira_assignee}}
#' @param df3 The third data-frame, as created by \code{\link{jira_resolved}}
#' @seealso \code{\link{jira_issues}} which pulls the underlying data set
#' @export

jira_gs_update <- function(df1,df2,df3) {

  require(googlesheets)
  require(tidyverse)

write.table(df1,file='mba_issues.csv',sep=',',row.names=FALSE)
write.table(df2,file='mba_assignees.csv',sep=',',row.names=FALSE)
write.table(df3,file='mba_resolved.csv',sep=',',row.names=FALSE)

dir <- getwd()

path1 <- paste(dir,'mba_issues.csv',sep='/')
path2 <- paste(dir,'mba_assignees.csv',sep='/')
path3 <- paste(dir,'mba_resolved.csv',sep='/')

gs_upload(path1,sheet_title = 'mba_issues',verbose=TRUE,overwrite = TRUE)
gs_upload(path2,sheet_title = 'mba_assignees',verbose=TRUE,overwrite = TRUE)
gs_upload(path3,sheet_title = 'mba_resolved',verbose=TRUE,overwrite = TRUE)

}