From 0f9f78128d025b2330c45cf27eeade48a9c08a30 Mon Sep 17 00:00:00 2001 From: Denis de Oliveira Rodrigues <49842454+denis-or@users.noreply.github.com> Date: Wed, 28 Feb 2024 21:40:26 -0300 Subject: [PATCH] Update pega_dados.R --- R/pega_dados.R | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/R/pega_dados.R b/R/pega_dados.R index 7477218..96f15a5 100755 --- a/R/pega_dados.R +++ b/R/pega_dados.R @@ -63,15 +63,15 @@ pega_dados <- function(...) { args <- list(...) - if (missing(args$ob) || is.null(args$ob)) { - usethis::ui_stop("O argumento ob \\\\u00e9 obrigat\\u00f3rio e n\\u00e3o pode ser NULL.") - } + #if (missing(args$ob) || is.null(args$ob)) { + # usethis::ui_stop("O argumento ob \\\\u00e9 obrigat\\u00f3rio e n\\u00e3o pode ser NULL.") + #} - if (!xor(is.null(args[['Medidas']]), is.null(args[['Conteúdo']]))) { - usethis::ui_stop("Apenas um dos argumentos Medidas ou Conte\\u00fado deve ser fornecido.") - } + #if (!xor(is.null(args[['Medidas']]), is.null(args[['Conteúdo']]))) { + # usethis::ui_stop("Apenas um dos argumentos Medidas ou Conte\\u00fado deve ser fornecido.") + #} - argumentos_obrigatorios <- c("Linha", "Coluna", "Per\\u00edodos dispon\\u00edveis") + argumentos_obrigatorios <- c("Linha", "Coluna")#, "Per\\u00edodos dispon\\u00edveis") purrr::walk(argumentos_obrigatorios, ~{ if (is.null(args[[.x]])) {