Merge pull request #94 from TESTgroup-BNL/quick_updates

Minor updates
plantphys · Feb 8, 2022 · 80feacf · 80feacf
2 parents 36c77ae + d1b7375
commit 80feacf
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: spectratrait
 Title: A simple add-on package to aid in the fitting of leaf-level spectra-trait PLSR models
-Version: 1.1.0
+Version: 1.1.1
 Authors@R:
   c(person(given = "Julien",
            family = "Lamour",

diff --git a/R/create_data_split.R b/R/create_data_split.R
@@ -11,7 +11,7 @@
 ##' and validation dataset (val_data)
 ##' 
 ##' @importFrom magrittr %>%
-##' @importFrom dplyr mutate group_by_at slice n vars all_of 
+##' @importFrom dplyr mutate group_by_at slice n vars all_of row_number
 ##' 
 ##' @author Julien Lamour, Jeremiah Anderson, Shawn P. Serbin
 ##' @export

diff --git a/spectratrait_1.1.0.pdf → spectratrait_1.1.1.pdf b/spectratrait_1.1.0.pdf → spectratrait_1.1.1.pdf
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -1,4 +1,3 @@
 library(testthat)
 library(spectratrait)
-
-testthat::test_check("spectratrait")
+test_check("spectratrait")
diff --git a/tests/testthat/test.create_data_split.R b/tests/testthat/test.create_data_split.R
@@ -17,11 +17,11 @@ test_that("Generating a data split using the dplyr approach doesn't throw an err
 })
 
 test_that("Generating a data split using the base approach doesn't throw an error or generate duplicates between cal. and val. data", {
-  plot<- rep(c("plot1", "plot2", "plot3"),each=42)
+  plot<- rep(c("plot1", "plot2", "plot3"), each=42)
   season<- rep(1:6, 21)
   disease<- c(rep(0,84), rep(1,42))
   d<- seq(1:126)
-  df <- data.frame(plot,season,disease,d)
+  df <- data.frame(plot, season, disease, d)
   df <- df %>% mutate(id=row_number())
 
   split_data <- spectratrait::create_data_split(dataset=df, approach="base",