#' @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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.