R/utils.R

Defines functions arquivo.character arquivo.response arquivo

#' @name %>%
#' @rdname pipe
#' @keywords internal
#' @export
#' @importFrom magrittr %>%
#' @usage lhs \%>\% rhs
magrittr::`%>%`

arquivo <- function(x) {
  UseMethod('arquivo')
}

arquivo.response <- function(x) {
  arq <- x$request$output$path
  if (!file.exists(arq)) stop('Arquivo n\032o encontrado.')
  arq
}

arquivo.character <- function(x) {
  if (!file.exists(x)) stop('Arquivo n\032o encontrado.')
  x
}
decryptr/captchaReceitaAudio documentation built on June 19, 2017, 12:39 p.m.