fix organize_names after dplyr updated

.Rbuildignore

@@ -17,3 +17,4 @@
 ^man/figures$
 ^inst/tutorials/intro/intro\.Rmd$
 ^\.github$
+^CRAN-SUBMISSION$

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ech
 Title: Toolbox for ECH with R
-Version: 0.1.1.2
+Version: 0.1.1.3
 Authors@R: 
     c(person(given = "Gabriela",
              family = "Mathieu",
@@ -56,7 +56,7 @@ VignetteBuilder:
 ByteCompile: true
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2
 SystemRequirements: 'unrar' (Linux/macOS) or '7-Zip' (Windows)
     to work with '.rar' files, GDAL (>= 3.0.2), GEOS (>= 3.8.0), PROJ (>=
     6.2.1)

NEWS.md

@@ -1,5 +1,8 @@
 # log history of ech package development
 
+## ech v0.1.1.3
+*minor changes. fix organize_names
+
 ## ech v0.1.1.2
 * ommited get_* functions for bug in macos
 * removed some dependences

R/organize.R

@@ -23,25 +23,25 @@ organize_names <- function(data, year, level = "hyp"){
     nh <- n %>%
       dplyr::filter(!duplicated(var17)) %>%
       dplyr::select(paste0("var", c(substr(year,3,4), 17))) %>%
-      dplyr::filter(!. == "" & !.== " ")
-    data <- data %>% dplyr::select(nh[,1])
-    names(data) <- nh[,2]
+      tidyr::drop_na()
+    #data <- data %>% dplyr::select(vars(nh[,1]))
+    #names(data) <- nh[,2]
   }
   if(level %in% c("hogar","h")){
     nh <- n %>%
       dplyr::filter((unidad == "H" | unidad == "G") & !duplicated(var17)) %>%
       dplyr::select(paste0("var", c(substr(year,3,4), 17))) %>%
-      dplyr::filter(!. == "" & !.== " ")
-    data <- data %>% dplyr::select(nh[,1])
-    names(data) <- nh[,2]
+      tidyr::drop_na()
+    #data <- data %>% dplyr::select(c(nh[,1]))
+    #names(data) <- nh[,2]
   }
   if(level %in% c("individual", "i")){
     nh <- n %>%
       dplyr::filter((unidad == "P" | unidad == "G") & !duplicated(var17)) %>%
       dplyr::select(paste0("var", c(substr(year,3,4), 17))) %>%
-      dplyr::filter(!. == "" & !.== " ")
-    data <- data %>% dplyr::select(nh[,1])
-    names(data) <- nh[,2]
+      tidyr::drop_na()
+    #data <- data %>% dplyr::select(nh[,1])
+    #names(data) <- nh[,2]
   }
   return(data)
 }

cran-comments.md

@@ -1,8 +1,3 @@
-## Test environments
-* local OS X install, R 3.5.1
-* ubuntu 14.04 (on travis-ci), R 3.5.1
-* win-builder (devel and release)
-
 ## R CMD check results
 
 0 errors | 0 warnings | 1 note