overlay update

R/API_calculate_overlay_hits.R

@@ -68,7 +68,7 @@ token_GET <- function(mnv_base, query, token) {
 overlays <- fromJSON(token_GET(map_base, "overlays/", token))
 
 ### Select only overlays of this user (not public) that have data behind them
-selected_overlays <- overlays[!overlays$publicOverlay & overlays$inputDataAvailable, c("idObject", "name")]
+selected_overlays <- overlays[!overlays$publicOverlay & overlays$creator == login, c("idObject", "name")]
 
 ### Retrieve all elements' ids and names, for later resolution
 models <- fromJSON(token_GET(map_base, "models/", token), flatten = F)