Simplify

rOpenSpain · Apr 15, 2024 · d477c02 · d477c02
1 parent 679e2f1
commit d477c02
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/codes.R b/R/codes.R
@@ -92,10 +92,10 @@ check_code <- function(id) {
         stop("Missing the session number.", call. = FALSE)
     }
 
-    if (ids[2] == "D" & length(ids) < 5) {
+    if (ids[2] == "D" && length(ids) < 5) {
         stop("Missing the document reference", call. = FALSE)
     }
-    if (ids[2] == "D" & length(ids) == 5  & !is_numeric(ids[5])) {
+    if (ids[2] == "D" && length(ids) == 5  & !is_numeric(ids[5])) {
         stop("Document reference should be numeric", call. = FALSE)
     }
 

diff --git a/R/votos.R b/R/votos.R
@@ -59,7 +59,7 @@ sesion <- function(x) {
 votoSenador <- function(x){
     votoSenador <- xml_find_all(x, ".//VotoSenador")
     l <- lapply(votoSenador, xml2matrix)
-    df <- do.call(rbind, l)
+    do.call(rbind, l)
 }
 
 votacion <- function(x) {