Updating backbones (version 0.0.9)

Author: LimaRAF

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: plantRdata
 Type: Package
 Title: Accessory Datasets for Package plantR
-Version: 0.0.8
+Version: 0.0.9
 Authors@R: c(
     person(given   = "Renato A.",
            family  = "Ferreira de Lima",
@@ -15,7 +15,7 @@ BugReports: https://github.com/LimaRAF/plantRdata/issues
 License: GPL (>= 3)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Config/testthat/edition: 3
 Depends: 
     R (>= 3.5.0)

NEWS.md

@@ -1,3 +1,7 @@
+# plantRdata 0.0.9
+
+* Updating all backbones
+
 # plantRdata 0.0.8
 
 * Fixing the BFO backbone regarding the presence of quadrinomials in the datatset (subforms and subvarieties)

README.Rmd

@@ -19,9 +19,9 @@ plantRdata <!-- <img src="man/figures/package-sticker.png" align="right" style="
 
 <!-- badges: start -->
 <!-- [![CRAN status](https://www.r-pkg.org/badges/version/plantRdata)](https://CRAN.R-project.org/package=plantRdata) -->
-[![R CMD Check](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml)
+<!-- [![R CMD Check](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml) -->
 [![Website](https://github.com/LimaRAF/plantRdata/actions/workflows/pkgdown.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/pkgdown.yaml)
-[![Test coverage](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml)
+<!-- [![Test coverage](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml) -->
 <!-- [![codecov](https://codecov.io/gh/LimaRAF/plantRdata/branch/master/graph/badge.svg)](https://codecov.io/gh/LimaRAF/plantRdata) -->
 [![License: GPL (>= 3)](https://img.shields.io/badge/License-GPL%20%28%3E%3D%203%29-blue.svg)](https://choosealicense.com/licenses/gpl-3.0/)
 <!-- badges: end -->

README.md

@@ -5,12 +5,10 @@
 
 <!-- badges: start -->
 <!-- [![CRAN status](https://www.r-pkg.org/badges/version/plantRdata)](https://CRAN.R-project.org/package=plantRdata) -->
+<!-- [![R CMD Check](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml) -->
 
-[![R CMD
-Check](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/R-CMD-check.yaml)
 [![Website](https://github.com/LimaRAF/plantRdata/actions/workflows/pkgdown.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/pkgdown.yaml)
-[![Test
-coverage](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml)
+<!-- [![Test coverage](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml/badge.svg)](https://github.com/LimaRAF/plantRdata/actions/workflows/test-coverage.yaml) -->
 <!-- [![codecov](https://codecov.io/gh/LimaRAF/plantRdata/branch/master/graph/badge.svg)](https://codecov.io/gh/LimaRAF/plantRdata) -->
 [![License: GPL (\>=
 3)](https://img.shields.io/badge/License-GPL%20%28%3E%3D%203%29-blue.svg)](https://choosealicense.com/licenses/gpl-3.0/)

data-raw/get_wfo.R

@@ -170,7 +170,19 @@ if (last_updated != last_download) {
   ## Removing the combined name + authorship column
   data <- data[, -which(names(data) %in% "scientific.name")]
 
-  ## Replacing empty authors by NAs
+  ## Replacing empty fields by NAs
+  rep_these <- data[["phylum"]] %in% c("", " ")
+  if (any(rep_these))
+    data[["phylum"]][rep_these] <- NA
+  
+  rep_these <- data[["family"]] %in% c("", " ")
+  if (any(rep_these))
+    data[["family"]][rep_these] <- NA
+  
+  rep_these <- data[["name.status"]] %in% c("", " ")
+  if (any(rep_these))
+    data[["name.status"]][rep_these] <- NA
+
   rep_these <- data[["tax.authorship"]] %in% c("", " ")
   if (any(rep_these))
     data[["tax.authorship"]][rep_these] <- NA