From 3d7cb75ce20e70d553c75c4a4b4e45c8e78023c2 Mon Sep 17 00:00:00 2001
From: Phil Bouchet <pjbouchet@gmail.com>
Date: Wed, 8 Jan 2020 17:12:52 +0000
Subject: [PATCH] Fixed spelling and apply() errors

Fix to issue #3 (2 bugs in dsmextra) posted by Dave Fifield on Jan 2, 2020
---
 R/compare_covariates.R      | 4 ++--
 R/summarise_extrapolation.R | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/compare_covariates.R b/R/compare_covariates.R
index b6822d3..affefff 100644
--- a/R/compare_covariates.R
+++ b/R/compare_covariates.R
@@ -242,12 +242,12 @@ compare_covariates <- function(extrapolation.type = "both",
       if(length(varmin.univariate)<length(varmax.univariate)){
 
         varmin.univariate <- c(varmin.univariate, rep("-", times = length(varmax.univariate)-length(varmin.univariate)))
-        min.univariate <- c(min.univariate, rep("-", times = length(max.univariates)-length(min.univariate)))
+        min.univariate <- c(min.univariate, rep("-", times = length(max.univariate)-length(min.univariate)))
 
       }else{
 
         varmax.univariate <- c(varmax.univariate, rep("-", times = length(varmin.univariate)-length(varmax.univariate)))
-        max.univariates <- c(max.univariates, rep("-", times = length(min.univariate)-length(max.univariates)))
+        max.univariate <- c(max.univariate, rep("-", times = length(min.univariate)-length(max.univariate)))
       }
     }
 
diff --git a/R/summarise_extrapolation.R b/R/summarise_extrapolation.R
index c3df145..0688479 100644
--- a/R/summarise_extrapolation.R
+++ b/R/summarise_extrapolation.R
@@ -141,7 +141,7 @@ summarise_extrapolation <- function(extrapolation.object,
 
   if("Analogue"%in%as.character(resdf$Type)) add.sep <- TRUE
 
-  resdf <- apply(resdf, 2, function(x) as.character(x))
+  resdf <- purrr::map_dfr(resdf, as.character)
 
   #---------------------------------------------
   # Add sub-totals, if necessary
@@ -324,7 +324,7 @@ summarise_extrapolation <- function(extrapolation.object,
 
       }
 
-      mic_resdf <- apply(mic_resdf, 2, function(x) as.character(x))
+      mic_resdf <- purrr::map_dfr(mic_resdf, as.character)
 
       mic_resdf <- rbind(mic_resdf, rep("-----------", ncol(mic_resdf)))
       mic_resdf <- rbind(mic_resdf, c("Total",