fix desc() issue and duplicated LazyData line for #54

Author: mcsiple

DESCRIPTION

@@ -36,7 +36,6 @@ Description: Tools for projecting marine mammal populations into the future unde
 License: MIT + file LICENSE
 URL: https://github.com/mcsiple/mmrefpoints
 BugReports: https://github.com/mcsiple/mmrefpoints/issues
-LazyData: true
 Imports: 
     config,
     shiny,

R/17_plot_proj.R

@@ -175,7 +175,7 @@ plot_proj <- function(high,
     sdf <- tidyr::pivot_longer(spag.df, cols = high:low,
                                 names_transform = list(name = as.factor, 
                                                        sim = as.factor)) %>% 
-            dplyr::arrange(dplyr::desc(name, sim))
+            dplyr::arrange(dplyr::desc(name),dplyr::desc(sim))
 
     dlab1 <- paste("N[0] == ", round(InitDepl, digits = 2), "*K")
 

R/18_multiplot_proj.R

@@ -242,7 +242,7 @@ multiplot_proj <- function(high.d1, # d1 is lowest depl, high is highest bycatch
         sim = as.factor
       )
     ) %>%
-      dplyr::arrange(dplyr::desc(name, sim))
+      dplyr::arrange(dplyr::desc(name), dplyr::desc(sim))
     sdf1$depl.level <- InitDepls[1]
 
     sdf2 <- tidyr::pivot_longer(spag.df2,
@@ -252,7 +252,7 @@ multiplot_proj <- function(high.d1, # d1 is lowest depl, high is highest bycatch
         sim = as.factor
       )
     ) %>%
-      dplyr::arrange(dplyr::desc(name, sim))
+      dplyr::arrange(dplyr::desc(name),dplyr::desc(sim))
     sdf2$depl.level <- InitDepls[2]
 
     sdf3 <- tidyr::pivot_longer(spag.df3,
@@ -262,7 +262,7 @@ multiplot_proj <- function(high.d1, # d1 is lowest depl, high is highest bycatch
         sim = as.factor
       )
     ) %>%
-      dplyr::arrange(dplyr::desc(name, sim))
+      dplyr::arrange(dplyr::desc(name),dplyr::desc(sim))
     sdf3$depl.level <- InitDepls[3]
 
     megadf <- bind_rows(sdf1, sdf2, sdf3)