access functions updated, fixed

Integration/MINERVA_access/minerva_access_functions.R

@@ -31,7 +31,7 @@ get_default_project <- function(map_api) {
 get_map_components <- function(map_api, project_id = NULL) {
   if(is.null(project_id)) {
     ### If project id not given, get configuration of the map, to obtain the latest (default) version
-    project_id <- get_default_project
+    project_id <- get_default_project(map_api)
   }
   ### The address of the latest (default) build 
   mnv_base <- paste0(map_api, "projects/",project_id,"/")