Fixed bug in get_ereefs_ts() in mmp check.

Author: BarbaraRobson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ereefs
 Title: Useful Functions to Handle eReefs and EMS model Output
-Version: 3.2.4
+Version: 3.2.5
 Encoding: UTF-8
 Authors@R: c(person("Barbara", "Robson", email="[email protected]",
                    role = c("aut", "cre")),
@@ -43,7 +43,7 @@ URL: https://ereefs.info
 Date: 2021-08-18
 License: MIT + file LICENSE
 LazyData: true
-Imports: ncdf4 (>= 1.16),
+Imports: ncdf4 (== 1.19),
          plyr (>= 1.8.4),
          dplyr (>= 0.7.6),
          magrittr,

R/data_extraction_functions.R

@@ -526,7 +526,7 @@ get_ereefs_ts <- function(var_names=c('Chl_a_sum', 'TN'),
   if (layer=='integrated') return(get_ereefs_depth_integrated_ts(var_names, location_latlon, start_date, end_date, input_file, input_grid, eta_stem, override_positive))
   if ((layer=='bottom')&&(length(location_latlon[,1])>1)) stop('Only one location can be given if layer==bottom')
 #  if (layer=='bottom') return(get_ereefs_bottom_ts(var_names, location_latlon, start_date, end_date, input_file, input_grid, eta_stem, override_positive))
-  if (location_latlon[[1]]=="mmp") {
+  if (location_latlon[[1]][1]=="mmp") {
      location_latlon <- data.frame(latitude=mmp_sites$latitude, longitude=mmp_sites$longitude)
      mmp <- TRUE
   } else {