minor checks

Author: AnthonyBasooma

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: fwtraits
 Title: Extract Species Ecological Parameters From www.freshwaterecology.info
-Version: 0.0.1
+Version: 1.0.0
 Authors@R: c( 
     person(given = "Anthony", family = "Basooma", email = "[email protected]", 
     role = c("aut", "cre"),

R/fw_fetchdata.R

@@ -92,14 +92,8 @@ fw_fetchdata <- function(data,
 
     }
 
-  }else if(is(data, 'vector') || is(data, 'atomic')){
-
-    taxa_searched_list <- data
-
   }else {
-
-    taxa_searched_list <- unlist(data)
-
+    taxa_searched_list <- data
   }
 
   #get function to enable decaching

R/utils.R

@@ -206,8 +206,7 @@ fuzzy_codes <- function(trait, FD){
   xc <- Filter(Negate(is.null), td)
 
   if(length(xc)<=1){
-    if(isFALSE(FD)) tests = "CWM" else tests = "FDs"
-    stop("After removing traits with no contrasts, only one traits remains and ", tests, " cannot be computed.")
+    stop("After removing traits with no contrasts, only one traits remains and cannot be computed.")
   }else{
     xout <- do.call(cbind, xc)
   }

tests/testthat/Rplots.pdf

@@ -0,0 +1,7 @@
+Signature: 8a477f597d28d172789f06886806bc55
+
+# This file is a cache directory tag created by the R.cache package [1],
+# following the 'Cache Directory Tagging Specification' (2004) [2].
+#
+# [1] https://cran.r-project.org/package=R.cache
+# [2] https://bford.info/cachedir

tests/testthat/cachee/CACHEDIR.TAG

@@ -0,0 +1,7 @@
+This directory structure was created by the R package 'R.cache'
+available on CRAN [https://cran.r-project.org/package=R.cache].
+It holds cache files containing results memoized by various
+R packages that utilize the R.cache package.  It is safe to
+delete all or part of these files at any time.  By definition,
+if memoized results are missing, they are recalculated by the
+R package who needs them/created them in the first place.

tests/testthat/cachee/README.txt

@@ -4,5 +4,11 @@ test_that(desc = "tchecks",
             expect_equal(length(tcheck(c("mi", "fi", 'pp','pb','di','mp'))), 6)
             expect_equal(length(tcheck(c("mi", "fi", 'pp','pb','di','mp'), TRUE)), 6)
             expect_error(tcheck('mm'))#wrong taxa
+
+            #test for migration ecoparam retruns warning
+            expect_warning(fw_searchdata(organismgroup = 'fi', taxa_searched = 'Abramis brama', ecoparams = 'migte'))
+
+            expect_warning(fw_searchdata(organismgroup = 'pb', taxa_searched = 'Achnantheffs danica',
+                                         ecoparams = 'life form', taxalevel = 'species', seed = 1233, warn = TRUE))
           })