Closing out v0.9.2

Author: droglenc

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: FSA
-Version: 0.9.1.9000
-Date: 2021-9-25
+Version: 0.9.2
+Date: 2022-2-12
 Title: Simple Fisheries Stock Assessment Methods
 Description: A variety of simple fish stock assessment methods.
     Detailed vignettes are available on the fishR website <http://derekogle.com/fishR/>.
@@ -48,4 +48,4 @@ Suggests:
     tibble,
     covr
 Encoding: UTF-8
-RoxygenNote: 7.1.1
+RoxygenNote: 7.1.2

NEWS.md

@@ -1,7 +1,10 @@
-# FSA 0.9.2 ongoing
+# FSA 0.9.2 12-Feb-21
+* Last version maintained by Derek Ogle. Transfering to fishR Core Team for next version.
 * `psdAdd()`: Modified. Changed the way `PSDlit` was loaded into the function environment so that `FSA::psdAdd()` will work. Addresses [#85](https://github.com/droglenc/FSA/issues/85).
+* `PSDLit`: Modified. Added info for Utah Chub (from [here](https://webpages.uidaho.edu/quistlab/publications/NAJFM_2021_Black_et_al_UTC_Ws_length_categories.pdf); address [#84](https://github.com/droglenc/FSA/issues/84)).
 * `psdVal()`: Modified. Changed the way `PSDlit` was loaded into the function environment so that `FSA::psdVal()` will work. Addresses [#85](https://github.com/droglenc/FSA/issues/85).
 * `wrAdd()`: Modified. Changed the way `WSlit` was loaded into the function environment so that `FSA::wrAdd()` will work. Addresses [#85](https://github.com/droglenc/FSA/issues/85).
+* `WSLit`: Modified. Added info for Utah Chub (from [here](https://webpages.uidaho.edu/quistlab/publications/NAJFM_2021_Black_et_al_UTC_Ws_length_categories.pdf); address [#84](https://github.com/droglenc/FSA/issues/84)).
 * `wsVal()`: Modified. Changed the way `WSlit` was loaded into the function environment so that `FSA::wsVal()` will work. Addresses [#85](https://github.com/droglenc/FSA/issues/85).
 
 # FSA 0.9.1 17-Jul-21

data-raw/PSDlit.csv

@@ -56,6 +56,7 @@ Striped Bass (landlocked),12,20,30,35,45,30,51,76,89,114,Gabelhouse (1984a)
 Striped Bass (hybrid),10,16,20,24,28,25,41,51,61,71,Dumont and Neely (2011)
 Striped Bass X White Bass,10,16,20,24,28,25,41,51,61,71,Dumont and Neely (2011)
 Suwannee Bass,6,9.75,11.75,13.75,15.75,15,25,30,35,40,Bonvechio et al. (2010)
+Utah Chub,4,8,10,12,15,10,20,25,30,38,Black et al. (2021)
 Walleye,10,15,20,25,30,25,38,51,63,76,Gabelhouse (1984a)
 Warmouth,3,6,8,10,12,8,15,20,25,30,Gabelhouse (1984a)
 White Bass,6,9,12,15,18,15,23,30,38,46,Gabelhouse (1984a)

data-raw/WSlit.csv

@@ -174,6 +174,8 @@ Striped Bass X White Bass,metric,linear,75,TL,RLP,115,NA,-5.201,3.139,NA,Brown a
 Suwannee Bass,metric,quadratic,75,TL,EmP,110,NA,-0.106,-1.363,0.995,Bonvechio et al. (2010),none
 Tiger Muskellunge,English,linear,75,TL,RLP,9.5,NA,-4.095,3.337,NA,Rogers and Koupal (1997),none
 Tiger Muskellunge,metric,linear,75,TL,RLP,240,NA,-6.126,3.337,NA,Rogers and Koupal (1997),none
+Utah Chub,metric,linear,75,TL,EmP,90,410,-4.938,3.031,NA,Black et al. (2021),none
+Utah Chub,English,linear,75,TL,EmP,4,16,-3.335,3.031,NA,Black et al. (2021),none
 Walleye,English,linear,75,TL,RLP,6,NA,-3.642,3.18,NA,Murphy et al. (1990),none
 Walleye,metric,linear,75,TL,RLP,150,NA,-5.453,3.18,NA,Murphy et al. (1990),none
 Walleye (30-149 mm),English,linear,75,TL,RLP,1.25,NA,-3.431,2.869,NA,Flammang et al. (1999),none

data-raw/aaaConvertCSV2RDATA.R

@@ -5,23 +5,18 @@
 ##  aaaConvertTab2CSV.R if there is.
 ################################################################################
 
-library(tools)
-
-## Get all .csv files in the data-raw directory
-setwd("C:/aaaWork/Programs/GitHub/FSA/data-raw")
-raw <- list.files(pattern="*.csv")
-
-## You may only want to use a few files ... use this (e.g.) to do that
-#raw
+## Get all .csv files in the data-raw directory (assumes wd is project directory)
+raw <- list.files(path="./data-raw",pattern="*.csv")
+## If you only want to use a few files then do this (e.g.)
 #raw <- raw[c(10,16)]
+raw
 
-#### Convert to .rdata files ####
-## Cycle through each file to make it an RDA file
+#### Convert all in raw to .rdata files
 for (f in raw) {
-  print(f)
-  ## Read file
-  nm <- file_path_sans_ext(f)
-  assign(nm,read.csv(f))
-  ## Save as an .rdata file
-  save(list=nm,file=paste0("../data/",nm,".rdata"))
+  oldf <- paste0("data-raw/",f)
+  nm <- tools::file_path_sans_ext(f)
+  newf <- paste0("data/",nm,".rdata")
+  cat(oldf,"---->",newf,"\n")
+  assign(nm,read.csv(oldf))    ## Read file
+  save(list=nm,file=newf)      ## Save as an .rdata file
 }