R/folder_to_cards.R

In fheitmueller/dobbleR:

#' Folder to cards
#'
#' @param infolder a path to a folder containing 57 images
#' @param outfolder a path to a folder in which the dobble cards are saved
#' @param output specifies whether each individual card should be saved or whether DINA4 sheets with six cards on each should be saved. Accepted values are "SINGLE" (individual dobble cards are saved) and "DINA4" (a set of DINA4 with 6 dobble cards on each sheet will be saved). Defaults to SINGLE.
#' @param shape defines the shape of the cards: can be "circle"  (default), "blank" or "rectangle"
#' @return a set of dobble cards saved in the outfolder
#' @import magick
#' @export


folder_to_cards <- function(infolder, outfolder, output="SINGLE", shape="circle"){

  if (!output %in% c("SINGLE", "DINA4")){
    stop("Output argument must be specified. Accepted values are either 'SINGLE', or 'DINA4'")
  }

file_list <- list.files(path=infolder)

if (length(file_list) < 57){
  stop("Number of pictures is smaller than 57. Make sure that 57 images are in the specified folder")
}


image_list <- lapply(file_list, function(x, y) image_read(paste0(infolder,"/",x[y])))

# turn images into dobble cards
all_cards <- generate_all_cards(image_list, shape=shape)

if(output=="SINGLE"){
  lapply(seq_along(all_cards), function(y, i){image_write(y[[i]], path=paste0(outfolder, "/card",i, ".png"))}, y=all_cards)
}

if(output=="DINA4"){
sheet_list <- cards_to_A4(all_cards)
lapply(seq_along(sheet_list), function(y, i){image_write(y[[i]], path=paste0(outfolder, "/sheet",i, ".pdf"), format="pdf")}, y=sheet_list)
}
}