liverworts and hornworts

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: taxonlookup
 Title: A dynamically-updating versioned taxonomic resource for vascular plants
-Version: 0.2.0
+Version: 0.2.2
 Description: This is a taxon lookup table for land plants.  It is built from a set of scripts that dynamically build a versioned genus-family-order-higher taxa lookup table from canonical sources on the web.  It uses semantic versioning to keep track of changes. 
 Depends: R (>= 3.1.0)
 License: BSD_2_clause + file LICENSE

README.md

@@ -85,7 +85,9 @@ Download the package and rerun the build script.  We'll work this way as we add
 # Notes for making a release using this *living dataset* design
 
 * Update the `DESCRIPTION` file to increase the version number.  Once we hit version 1, we use [semantic versioning](http://semver.org/) so be aware of when to change what number.  Assume it's `1.2.3` for the rest of instructions.
+<!---
 * Update known versions in `plant_lookup_versions` (eventually we'll do this with the github api but that will introduce a httr and jsonlite dependency)
+-->
 * Run `remake::make()` to rebuild `plant_lookup.csv`
 * Commit and push to github
 * In github, create a new release [link](https://github.com/wcornwell/TaxonLookup/releases/new)

createlookup.R

@@ -63,7 +63,8 @@ matchPlantListFamiliesToApweb<-function(tplGenera){
   tplGenera$family[tplGenera$family=="Apleniaceae"]<-"Aspleniaceae"
   tplGenera$order<-apFamilies$order[match(tplGenera$family,apFamilies$acceptedFamilies)]
   tplGenera$order[is.na(tplGenera$order)]<-apFamilies$order[match(tplGenera$family,apFamilies$family)[is.na(tplGenera$order)]]
-  tplGenera$order[tplGenera$group=="Bryophytes"]<-"undetermined_moss_order"
+  tplGenera$order[tplGenera$group=="Bryophytes"]<-"non_sphagnopsid_moss_order"
+  tplGenera$order[tplGenera$family=="Sphagnaceae"]<-"sphagnopsid_moss_order"
   tplGenera$order[tplGenera$family %in% c("Leiosporocerotaceae", "Anthocerotaceae", "Notothyladaceae","Phymatocerotaceae","Dendrocerotaceae")]<-"undetermined_hornwort_order"
   tplGenera$order[tplGenera$family %in% read.delim("source_data/liverwortFamilies.txt",header=FALSE)$V1]<-"undetermined_liverwort_order"
   return(tplGenera)