diff --git a/R/codes.R b/R/codes.R
index aec0da6..c2788ba 100644
--- 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
index 3cd459b..ca7e7e5 100644
--- 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) {