Nothing
#' 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.