fix shared par extract in VD

 Branch: fix_vd_extract

Author: RaphaelS1

R/Wrapper_VectorDistribution.R

@@ -1139,9 +1139,9 @@ or `distlist` should be used.")
     if (length(i) == 1) {
       id <- as.character(unlist(vecdist$modelTable[i, 2]))
       pars <- vecdist$parameters()[paste0(id, "__")]$values()
+      shared_pars <- vecdist$.__enclos_env__$private$.sharedparams
       # construct with shared parameters (no conflicts should be possible here)
-      dist <- get(distribution)$new()
-      suppressMessages(decorate(dist, decorators))
+      dist <- do.call(get(distribution)$new, c(shared_pars, list(decorators = decorators)))
       do.call(dist$setParameterValue, c(resolveConflicts = TRUE, pars))
       return(dist)
     } else {