R/submit_stories.R

In aljrico/hs_balancedata: What the Package Does (One Line, Title Case)

#' @export
submit_stories <- function(spreadsheet_title, seasonalquest_prod, original_length, source_folder, file_version){
  if(nrow(seasonalquest_prod[-(1:original_length),]) < 1){
    stop('No new Quests to add')
  }else{
    spreadsheet_title %>% 
      googlesheets::gs_title() %>% 
      googlesheets::gs_add_row(ws = file_version, 
                 input = seasonalquest_prod[-(1:original_length),]
      )
    
    spreadsheet_title %>%
      googlesheets::gs_title() %>%
      googlesheets::gs_read(ws = file_version) %>%
      data.table::fwrite(paste0(source_folder, '/csv/seasonalquests_prod.csv'))
  }
  
}