From 271b0d063dad144b5fef488bf092b8514b0f3fc5 Mon Sep 17 00:00:00 2001
From: xavi-rp <xavi.rotllan.puig@gmail.com>
Date: Tue, 17 Jul 2018 11:09:37 +0200
Subject: [PATCH] bug fixed in bioatles()

---
 DESCRIPTION                                          |  1 +
 R/bioatles.R                                         |  5 +----
 R/gbif_data.R                                        |  1 -
 data/species_bioatles.csv                            |  1 +
 data/species_gbif.csv                                |  2 ++
 ...ose-paren.Rd => GetBIF-open-paren-close-paren.Rd} | 12 ++----------
 ...e-paren.Rd => bioatles-open-paren-close-paren.Rd} | 12 ++----------
 7 files changed, 9 insertions(+), 25 deletions(-)
 create mode 100644 data/species_bioatles.csv
 create mode 100644 data/species_gbif.csv
 rename man/{GetBIF-open-paren-close-paren-GetBIF-open-paren-close-paren.Rd => GetBIF-open-paren-close-paren.Rd} (96%)
 rename man/{bioatles-open-paren-close-paren-bioatles-open-paren-close-paren.Rd => bioatles-open-paren-close-paren.Rd} (95%)

diff --git a/DESCRIPTION b/DESCRIPTION
index a92041d..743572e 100644
--- 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
index 4156683..086b7b2 100644
--- 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
index 9be22c3..c1f9ee5 100644
--- 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
new file mode 100644
index 0000000..cbeb280
--- /dev/null
+++ b/data/species_bioatles.csv
@@ -0,0 +1 @@
+Chamaerops humilis
Asphodelus aestivus
\ No newline at end of file
diff --git a/data/species_gbif.csv b/data/species_gbif.csv
new file mode 100644
index 0000000..949028c
--- /dev/null
+++ b/data/species_gbif.csv
@@ -0,0 +1,2 @@
+Quercus ilex L.
+Fagus sylvatica L.
\ No newline at end of file
diff --git a/man/GetBIF-open-paren-close-paren-GetBIF-open-paren-close-paren.Rd b/man/GetBIF-open-paren-close-paren.Rd
similarity index 96%
rename from man/GetBIF-open-paren-close-paren-GetBIF-open-paren-close-paren.Rd
rename to man/GetBIF-open-paren-close-paren.Rd
index 7b30599..29f226b 100644
--- a/man/GetBIF-open-paren-close-paren-GetBIF-open-paren-close-paren.Rd
+++ b/man/GetBIF-open-paren-close-paren.Rd
@@ -1,15 +1,7 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/gbif_data.R
-\name{GetBIF()
-
-
-
-GetBIF()}
-\alias{GetBIF()
-
-
-
-GetBIF()}
+\name{GetBIF()}
+\alias{GetBIF()}
 \alias{GetBIF}
 \title{Downloading species ocurrence data (presences) from GBIF}
 \usage{
diff --git a/man/bioatles-open-paren-close-paren-bioatles-open-paren-close-paren.Rd b/man/bioatles-open-paren-close-paren.Rd
similarity index 95%
rename from man/bioatles-open-paren-close-paren-bioatles-open-paren-close-paren.Rd
rename to man/bioatles-open-paren-close-paren.Rd
index 951eecc..878266d 100644
--- a/man/bioatles-open-paren-close-paren-bioatles-open-paren-close-paren.Rd
+++ b/man/bioatles-open-paren-close-paren.Rd
@@ -1,15 +1,7 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/bioatles.R
-\name{bioatles()
-
-
-
-bioatles()}
-\alias{bioatles()
-
-
-
-bioatles()}
+\name{bioatles()}
+\alias{bioatles()}
 \alias{bioatles}
 \title{Downloading species ocurrence data (presences) from Bioatles}
 \usage{