R/board2excel.R

In upwaver: Access 'Upwave' API

#' Save all information from a board to Excel
#'
#' @param organisation A character
#' @param board_id A character
#' @param token A character
#' @param filename A character
#' @param path A character
#'
#' @export
#'
#' @examples
#' \dontrun{
#' organisation <- "4597"
#' board_id <- 14351
#' token_sqc <- "807a0c3451c04602b4dbfdc0338a65f7"
#' upwaver::board2excel(organisation, board_id, token_sqc, "test.xlsx", "C:/Temp/")
#' }
board2excel <- function(organisation, board_id, token, filename, path) {
  upwaver <- list_cards(organisation, board_id, token)
  ff <- upwaver$results

  n <- length(ff)
  all_cards <- data.frame(id = character(n),
                          title = character(n),
                          text = character(n),
                          tasks = character(n), stringsAsFactors = FALSE)

  for (i in 1:n) {
    card <- ff[[i]]
    all_cards$id[i] <- card$id
    all_cards$title[i] <- card$title

    # description
    textline <- card$description
    textline <- gsub("<br/>", "\n", textline)
    splits <- gregexpr("<.*?>", textline)[[1]]
    len <- attributes(splits)$match.length
    textline <- substr(textline, splits[2] + len[2], nchar(textline))
    all_cards$text[i] <- gsub("<.*?>", "", textline)

    # tasks:
    url <- paste0("https://", organisation, ".upwave.io/api/tasklistitems/?card=", card$id)
    upwaver_tasks <- content_as_list(request(url, token))$results
    task_list <- c()
    if (length(upwaver_tasks) > 0) {
      for (k in 1:length(upwaver_tasks)) {
        task_list <- c(task_list, upwaver_tasks[[k]]$description)
      }
      all_cards$tasks[i] <- paste(task_list, collapse="\n")
    } else {
      all_cards$tasks[i] <- ""
    }
  }
  # save Excel
  if (file.exists(paste0(path, filename))) {
    message(paste0("Old file ", paste0(path, filename), " overwritten"))
  }
  xlsx::write.xlsx(all_cards, paste0(path, filename), row.names = FALSE)
}