Fixed spelling and apply() errors

Fix to issue #3 (2 bugs in dsmextra) posted by Dave Fifield on Jan 2, 2020
densitymodelling · Jan 8, 2020 · 3d7cb75 · 3d7cb75
1 parent c53eb3d
commit 3d7cb75
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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",