Fixed two bugs for R 4.3.3 (Finlay Scott)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: FLCore
 Title: Core Package of FLR, Fisheries Modelling in R
-Version: 2.6.20.9001
+Version: 2.6.20.9002
 Authors@R: c(
   person("Iago", "Mosqueira", email = "iago.mosqueira@wur.nl",
     role = "cre", comment=c(c(ORCID = "0000-0002-3252-0591"))),
@@ -88,4 +88,4 @@ LazyLoad: Yes
 LazyData: No
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1

R/FLModel.R

@@ -93,19 +93,22 @@ setMethod('FLModel', signature(model='formula'),
 
 # logLik  {{{
 setReplaceMethod('logLik', signature(object='FLModel', value='numeric'),
-  function(object, value, df='missing', nall='missing', nobs='missing')
-  {
+  function(object, df='missing', nall='missing', nobs='missing', value) {
     # check length
     #if(length(value) > 1)
     #  stop('value must be of length 1')
 
     attr(value, 'class') <- 'logLik'
+
     if(!missing(df))
       attr(value, 'df') <- df
+
     if(!missing(nall))
       attr(value, 'nall') <- nall
+
     if(!missing(nobs))
       attr(value, 'nobs') <- nobs
+
     slot(object, 'logLik') <- value
     return(object)
   }

R/FLQuantDistr.R

@@ -202,7 +202,7 @@ setMethod("-",
 #' @rdname Extract
 #' @aliases [,FLQuantDistr,ANY,ANY,ANY-method
 setMethod("[", signature(x="FLQuantDistr"),
-    function(x, i, j, k, l, m, n) {
+    function(x, i, j, k, l, m, n, drop=FALSE) {
 
 			dx <- dim(x)
 
@@ -220,6 +220,7 @@ setMethod("[", signature(x="FLQuantDistr"),
         n  <-  seq(1, dx[6])
 
 			res <- x
+
 			res@.Data <- do.call('[', list(x=x@.Data, i=i, j=j, k=k, l=l,
 				m=m, n=n, drop=FALSE))
 			res@var <- do.call('[', list(x=x@var, i=i, j=j, k=k, l=l,