Added a warning to digitizeRadii()

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: RFishBC
 Version: 0.1.0.9000
-Date: 2018-11-7
+Date: 2018-11-10
 Title: Back-Calculation of Fish Length
 Authors@R: person("Derek","Ogle",
     email="[email protected]",
@@ -9,7 +9,7 @@ Authors@R: person("Derek","Ogle",
 Description: Helps fisheries scientists collect measurements from calcified
     structures and back-calculate estimated lengths at previous ages. This
     is intended to replace much of the functionality provided by the
-    now out-dated fishBC software.
+    now out-dated 'fishBC' software.
 URL: http://derekogle.com/RFishBC
 BugReports: https://github.com/droglenc/RFishBC/issues
 License: GPL-3

NEWS.md

@@ -1,5 +1,7 @@
 # RFishBC 0.1.0.9000 ongoing
 * Removed automatic webpage construction from Travis-CI. Did not work with some of the update vignettes.
+* Put fishBC in the Description field into single quotes as directed by CRAN.
+* `digitizeRadii()`. Modified. Added a note that draws attention when `snap2Transect=TRUE` and `showTransect=FALSE` (i.e., "snapping" to a transect that is not shown). At least partially addresses [#30](https://github.com/droglenc/RFishBC/issues/30).
 
 # RFishBC 0.1.0 7-Nov-18
 * `iSnap2Transect()`: Modified. Changed to handle bugs related to perfectly vertical or perfectly horizontal transects. Addresses [#27](https://github.com/droglenc/RFishBC/issues/27) (Thanks to Ben Neely).

R/digitizeRadii.R

@@ -106,6 +106,11 @@ digitizeRadii <- function(img,id,reading,suffix,
   if (missing(lwd.scaleBar)) lwd.scaleBar <- iGetopt("lwd.scaleBar")
   if (missing(showTransect)) showTransect<- iGetopt("showTransect")
   if (missing(snap2Transect)) snap2Transect<- iGetopt("snap2Transect")
+  if (snap2Transect & !showTransect) {
+    cat("\n!! NOTE that points will be 'snapped' to a transect that is not shown\n",
+         "!!      because 'showTtransect=FALSE' and 'snap2Transect=TRUE'.\n\n",
+        sep="")
+  }
   if (missing(col.transect)) col.transect <- iGetopt("col.transect")
   if (missing(lwd.transect)) lwd.transect <- iGetopt("lwd.transect")
   if (missing(pch.sel)) pch.sel <- iGetopt("pch.sel")