cleaning up dependency errors.

DESCRIPTION

@@ -9,7 +9,7 @@ Authors@R: c(person("Josie", "Hughes", role = c("aut"), email = "josie.hughes@ec
     person("Tati", "Michelleti", email = "tati.micheletti@gmail.com", 
            role = c("aut", "cph"), comment = c("Functions getCoefs and sampleRates are derived from code written by Tati Micheletti")),
     person("Eliot", "McIntire", email = "eliot.mcintire@canada.ca", role = "aut"),
-    person("Daniel", "Eacker", role = "cph", comment = c("Lead author of paper where code modified in caribouBayesianPM, plotRes, getKMSurvivalEstimates, and getSumStats was published")),
+    person("Daniel", "Eacker", role = "cph", comment = c("Lead author of paper where code modified in caribouBayesianPM, plotRes, and getSumStats was published")),
     person("Saralees", "Nadarajah", role = "cph", comment = c("Author of truncdist package, which function rtrunc and qtrunc were modified from")),
     person("Frederick", "Novomestky", role = "cph", comment = c("Author of truncdist package, which function rtrunc and qtrunc were modified from")),
     person(given="Her Majesty the Queen in Right of Canada, as represented by the Minister of Environment and Climate Change",
@@ -43,6 +43,7 @@ Imports:
     data.table,
     sf,
     tidyr,
+    stringr,
     purrr,
     methods,
     matrixStats,

R/internal_demog_fns.R

@@ -26,7 +26,7 @@ getKMSurvivalEstimates <- function(ss) {
   survData <- rbind(
     survData,
     data.frame(
-      Year = str_sub(out$strata, start = 6, end = -1),
+      Year = stringr::str_sub(out$strata, start = 6, end = -1),
       surv = out$surv,
       se = out$std.err,
       lower = out$surv - (1.96 * out$std.err),