#' Process Bar Code Field
#'
#' Process the bar code field in an image.
#'
#' @param file_path path of the document
#' @param barcodeType optional, default: "autodetect"
#' @param region coordinates of region from top left, 4 values: top left bottom right; optional; default: "-1,-1,-1,-1" (entire image)
#' @param containsBinaryData optional, default: "false"
#' @param pdfPassword optional, default: ""
#' @param description optional, default: ""
#' @param \dots Additional arguments passed to \code{\link{abbyy_POST}}.
#'
#' @return Data frame with details of the task associated with the submitted Image
#'
#' @export
#'
#' @references \url{http://ocrsdk.com/documentation/apireference/processBarcodeField/}
#'
#' @examples \dontrun{
#' processBarcodeField(file_path = "file_path")
#' }
processBarcodeField <- function(file_path = "",
barcodeType = "autodetect",
region = "-1,-1,-1,-1",
containsBinaryData = "false",
pdfPassword = "",
description = "", ...) {
if (!file.exists(file_path)) {
stop("File Doesn't Exist. Please check the path.")
}
querylist <- list(barcodeType = barcodeType,
region = region,
containsBinaryData = containsBinaryData,
pdfPassword = pdfPassword,
description = description)
process_details <- abbyy_POST("processBarcodeField",
query = querylist,
body = upload_file(file_path), ...)
resdf <- ldply(process_details, rbind, .id = NULL)
row.names(resdf) <- NULL
resdf[] <- lapply(resdf, as.character)
# Print some important things
cat("Status of the task: ", resdf$status, "\n")
cat("Task ID: ", resdf$id, "\n")
resdf
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.