R/gerar_gatito.R

In gerriosantos/exemGatitosR: Pacote de Exemplo do GitHub Action

#' Gerar Gatito
#'
#' @return Nào retorna nada
#' @export
#'
gerar_gatito <- function(){
  tmp <- tempfile(fileext = '.jpeg')
  utils::download.file('https://cataas.com/cat',
                       tmp, quiet = TRUE)

  tmp |>
    jpeg::readJPEG() |>
    grDevices::as.raster() |>
    graphics::plot()
}

utils::globalVariables(c('tmp'))