tidying up

DESCRIPTION

@@ -7,20 +7,19 @@ Maintainer: Bruna Wundervald <brunadaviesw@gmail.com>
 Description: Extracts music chords from the 'CifraClub' website <https://www.cifraclub.com.br/>.
 	The package also has functions for cleaning the extracted data and 
 	feature extraction.  
-Depends: R (>= 3.2.3)
+Depends: R (>= 3.2.4)
 Suggests:
     ggplot2,
     knitr,
     network
-URL: https://github.com/brunaw/chorrrds
-BugReports: https://github.com/brunaw/chorrrds/issues
+URL: https://github.com/r-music/chorrrds
+BugReports: https://github.com/r-music/chorrrds/issues
 License: GPL-2
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 6.1.0
+RoxygenNote: 6.1.1
 Imports: stringr,
     dplyr,
-    plyr,
     XML,
     magrittr,
     purrr

R/clean.R

@@ -19,10 +19,10 @@
 
 clean <- function(da, column = "chord", long = 15, message = TRUE){
   if(column %in% names(da)){
-    pat <- da[ , column]
-    ind <-  (stringr::str_length(pat) < long)
-    filt <- da[ind, ]
-
+    filt <- da %>% 
+      dplyr::mutate(long_str = stringr::str_length(!!column)) %>% 
+      dplyr::filter(long_str <= long)
+  
     rem <- dim(da)[1] - dim(filt)[1]
     if(message){
       print(paste0(rem, " lines removed"))
@@ -34,3 +34,4 @@ clean <- function(da, column = "chord", long = 15, message = TRUE){
     }
   }
 }
+