bug fixed in bioatles()

xavi-rp · Jul 17, 2018 · 271b0d0 · 271b0d0
1 parent 7b1e636
commit 271b0d0
Show file tree

Hide file tree

Showing 7 changed files with 9 additions and 25 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -10,6 +10,7 @@ Suggests: knitr, rmarkdown
 VignetteBuilder: knitr
 License: GPL-3
 Encoding: UTF-8
+LazyData: true
 RoxygenNote: 6.0.1
 URL: https://github.com/xavi-rp/PreSPickR
 BugReports: https://github.com/xavi-rp/PreSPickR/issues
diff --git a/R/bioatles.R b/R/bioatles.R
@@ -18,7 +18,6 @@
 #'
 #'
 #'
-#' bioatles()
 #
 # Created on: Winter-Spring 2018 (under construction)
 #
@@ -66,9 +65,7 @@ bioatles <- function(sp_dir = NULL, sp_list = NULL, out_name = "sp_records"){
 
   #### Downloading Species Name and BIOATLES code ####
   noms <- as.data.frame(page %>% html_nodes('option') %>% html_text())
-  chks <- which(grepl("^Selecciona", noms$`page %>%
-                        html_nodes("option") %>%
-                        html_text()`))
+  chks <- which(grepl("^Selecciona", noms$`page %>% html_nodes("option") %>% html_text()`))
   noms1 <- as.data.frame(noms[(chks[length(chks) - 1] + 1) : (chks[length(chks)] - 1), ])
 
   nds1 <- page %>% html_nodes('select#selectEspecie')

diff --git a/R/gbif_data.R b/R/gbif_data.R
@@ -23,7 +23,6 @@
 #'
 #'
 #'
-#' GetBIF()
 #
 # Created on: Winter 2018 (under construction)
 #

diff --git a/data/species_bioatles.csv b/data/species_bioatles.csv
@@ -0,0 +1 @@
+Chamaerops humilisAsphodelus aestivus

diff --git a/data/species_gbif.csv b/data/species_gbif.csv
@@ -0,0 +1,2 @@
+Quercus ilex L.
+Fagus sylvatica L.
diff --git a/...se-paren-GetBIF-open-paren-close-paren.Rd → man/GetBIF-open-paren-close-paren.Rd b/...se-paren-GetBIF-open-paren-close-paren.Rd → man/GetBIF-open-paren-close-paren.Rd
diff --git a/...-paren-bioatles-open-paren-close-paren.Rd → man/bioatles-open-paren-close-paren.Rd b/...-paren-bioatles-open-paren-close-paren.Rd → man/bioatles-open-paren-close-paren.Rd
-Original file line number
+Diff line change
@@ Expand Up / @@ -23,7 +23,6 @@ @@
     #'
     #'
     #'
-    #' GetBIF()
     #
     # Created on: Winter 2018 (under construction)
     #
@@ Expand Down @@
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1 @@
		Chamaerops humilisAsphodelus aestivus
Expand Down