R test updates

Author: chreman

server/preprocessing/other-scripts/test/params_base.json

@@ -7,5 +7,5 @@
   "min_descsize": 300,
   "limit": 120,
   "list_size": 100,
-  "custom_clustering": "mesh"
+  "repo": "ftunivbern"
 }

server/preprocessing/other-scripts/test/params_openaire.json

@@ -1,4 +1,4 @@
 {"funder":"EC",
- "project_id":"267439",
+ "project_id":"643410",
  "list_size": -1,
  "vis_id": "TEST_ID"}

server/preprocessing/other-scripts/test/test_base.R

@@ -7,7 +7,7 @@ options(warn=1)
 wd <- dirname(dirname(rstudioapi::getActiveDocumentContext()$path))
 setwd(wd) #Don't forget to set your working directory
 
-query <- "species" #args[2]
+query <- "parzival" #args[2]
 service <- "base"
 params <- NULL
 params_file <- "test/params_base.json"

server/preprocessing/other-scripts/test/test_openaire.R

@@ -9,7 +9,7 @@ setwd(wd) #Don't forget to set your working directory
 
 # query: project acryonm
 # params: grant_id and funding_stream
-query <- "GRINDOOR" #args[2]
+query <- "openaire2020" #args[2]
 service <- "openaire"
 params <- NULL
 params_file <- "test/params_openaire.json"
@@ -71,4 +71,5 @@ if (!exists('output_json')) {
   output_json <- enrich_output_json(output_json)
 }
 
-print(output_json)
+#print(output_json)
+output <- fromJSON(output_json)