Adjust vectors

R/Adjustments.R

@@ -107,15 +107,15 @@ adjust.fishing <- function(Rsim.scenario, parameter, group = NA, sim.year = 1,
 #'@export 
 adjust.scenario <- function(Rsim.scenario, parameter, group, groupto = NA, value){
   #Lookup group numbers
-  if(group == 'all'){
+  if(group[1] == 'all'){
     groupnum <- 0:Rsim.scenario$params$NUM_GROUPS
   } else {
     groupnum <- Rsim.scenario$params$spnum[which(Rsim.scenario$params$spname 
-                                                 == group)]
+                                                 %in% group)]
   }
   if(!is.na(groupto)){
     groupnumto <- Rsim.scenario$params$spnum[which(Rsim.scenario$params$spname 
-                                                 == groupto)]
+                                                 %in% groupto)]
   }
 
   #Lookup parameter number

README.md

@@ -22,3 +22,7 @@ To view release notes please visit the [wiki](https://github.com/NOAA-EDAB/Rpath
 
 
 *This repository is a scientific product and is not official communication of the National Oceanic and Atmospheric Administration, or the United States Department of Commerce. All NOAA GitHub project code is provided on an ‘as is’ basis and the user assumes responsibility for its use. Any claims against the Department of Commerce or Department of Commerce bureaus stemming from the use of this GitHub project will be governed by all applicable Federal law. Any reference to specific commercial products, processes, or services by service mark, trademark, manufacturer, or otherwise, does not constitute or imply their endorsement, recommendation or favoring by the Department of Commerce. The Department of Commerce seal and logo, or the seal and logo of a DOC bureau, shall not be used in any manner to imply endorsement of any commercial product or activity by DOC or the United States Government.*
+
+<img src="https://raw.githubusercontent.com/nmfs-general-modeling-tools/nmfspalette/main/man/figures/noaa-fisheries-rgb-2line-horizontal-small.png" height="75" alt="NOAA Fisheries">
+
+[U.S. Department of Commerce](https://www.commerce.gov/) | [National Oceanographic and Atmospheric Administration](https://www.noaa.gov) | [NOAA Fisheries](https://www.fisheries.noaa.gov/)

pkgdown/extra.css

@@ -0,0 +1 @@
+@import url("https://nmfs-general-modeling-tools.github.io/nmfspalette/extra.css");