@@ -78,31 +78,29 @@ biocViews:

     Network,

     SingleCell

 Collate: 

-    'GMQLDataset-class.R'

-    'Cover.R'

-    'Difference.R'

-    'Extend.R'

+    'AllClasses.R'

+    'AllGenerics.R'

     'GMQL4TFarm.R'

     'GMQLtoGRanges.R'

     'GRangesToGMQL.R'

-    'Join.R'

-    'Map.R'

-    'Materialize.R'

-    'Merge.R'

-    'Order.R'

-    'Project.R'

-    'Read.R'

-    'Select.R'

-    'Union.R'

+    'S3Aggregates.R'

+    'S3Cover-Param.R'

+    'S3Distal.R'

+    'S3Operator.R'

     'Utils.R'

-    'aggregate-class.R'

-    'authOp.R'

-    'browseOp.R'

-    'cover_param-class.R'

-    'datasetOp.R'

-    'distal-class.R'

-    'evaluation_functions.R'

+    'evaluation-functions.R'

+    'gmql_cover.R'

+    'gmql_difference.R'

+    'gmql_extend.R'

+    'gmql_join.R'

+    'gmql_map.R'

+    'gmql_materialize.R'

+    'gmql_merge.R'

+    'gmql_order.R'

+    'gmql_project.R'

+    'gmql_read.R'

+    'gmql_select.R'

+    'gmql_union.R'

     'onLoad.R'

-    'operator-class.R'

-    'ordering-class.R'

-    'queryOp.R'

+    'ordering-functions.R'

+    'web-services.R'

@@ -29,7 +29,6 @@ export(SQRT)

 export(STD)

 export(SUM)

 export(UP)

-export(arrange)

 export(collect)

 export(compile_query)

 export(compile_query_fromfile)

@@ -52,7 +51,6 @@ export(sample_metadata)

 export(sample_region)

 export(save_query)

 export(save_query_fromfile)

-export(select)

 export(semijoin)

 export(show_datasets_list)

 export(show_job_log)

@@ -61,7 +59,6 @@ export(show_queries_list)

 export(show_samples_list)

 export(show_schema)

 export(stop_job)

-export(take)

 export(trace_job)

 export(upload_dataset)

 exportMethods(aggregate)

new file mode 100644

@@ -0,0 +1,34 @@

+#' Class GMQLDataset

+#' 

+#' Abstract class representing GMQL dataset

+#'

+#' @importClassesFrom S4Vectors DataTable

+#' @slot value value associated to GMQL dataset

+#' @name GMQLDataset-class

+#' @rdname GMQLDataset-class

+#' 

+#' @return instance of GMQL dataset

+#' 

+setClass("GMQLDataset",

+            contains = c("DataTable"),

+            representation(value = "character"))

+

+#' @name GMQLDataset

+#' @importFrom methods new

+#' 

+#' @param value value associated to GMQL dataset

+#' @rdname GMQLDataset-class

+#' 

+GMQLDataset <- function(value) {

+    dataset <- new("GMQLDataset",value = value)

+    return(dataset)

+}

+

+setMethod("show", "GMQLDataset",

+            function(object)

+            {

+                cat("GMQL Dataset \n")

+                cat(" value :",paste(object@value))

+            })

+

+

similarity index 62%

rename from R/GMQLDataset-class.R

rename to R/AllGenerics.R

@@ -1,44 +1,3 @@

-#' Class GMQLDataset

-#' 

-#' Abstract class representing GMQL dataset

-#'

-#' @importClassesFrom S4Vectors DataTable

-#' @slot value value associated to GMQL dataset

-#' @name GMQLDataset-class

-#' @rdname GMQLDataset-class

-#' 

-#' @return instance of GMQL dataset

-

-setClass("GMQLDataset",

-            contains = c("DataTable"),

-            representation(value = "character"))

-

-#' @name GMQLDataset

-#' @importFrom methods new

-#' 

-#' @param value value associated to GMQL dataset

-#' @rdname GMQLDataset-class

-#' 

-GMQLDataset <- function(value) {

-    dataset <- new("GMQLDataset",value = value)

-    return(dataset)

-}

-

-setMethod("show", "GMQLDataset",

-            function(object)

-            {

-                cat("GMQL Dataset \n")

-                cat(" value :",paste(object@value))

-            })

-

-

-

-# insted of GMQL order

-# setGeneric("sort", function(data, metadata_ordering = NULL, 

-# regions_ordering = NULL, fetch_opt = NULL, 

-# num_fetch = 0, reg_fetch_opt = NULL, 

-# reg_num_fetch = 0) standardGeneric("sort"))

-

 #' Method aggregate

 #' 

 #' Wrapper to GMQL merge function

@@ -71,9 +30,7 @@ setGeneric("filter", function(.data, m_predicate = NULL, r_predicate = NULL,

 #' @rdname cover-GMQLDataset-method

 #' @aliases cover

 #' 

-setGeneric("cover", function(data, min_acc, max_acc, groupBy = NULL, 

-                                variation = "cover", ...)

-                                    standardGeneric("cover"))

+setGeneric("cover", function(data, ...) standardGeneric("cover"))

 #' Method map

 #' 

@@ -103,7 +60,6 @@ setGeneric("collect", function(x, dir_out = getwd(), name = "ds1", ...)

 #' 

 #' @name take

 #' @rdname take-GMQLDataset-method

-#' @export

 setGeneric("take", function(data, ...) standardGeneric("take"))

@@ -114,7 +70,6 @@ setGeneric("take", function(data, ...) standardGeneric("take"))

 #' @name extend

 #' @rdname extend-GMQLDataset-method

 #' @aliases extend GMQLDataset-method

-#' @exportMethod extend

 setGeneric("extend", function(.data, ...) standardGeneric("extend"))

@@ -125,7 +80,6 @@ setGeneric("extend", function(.data, ...) standardGeneric("extend"))

 #' @name select

 #' @rdname select-GMQLDataset-method

 #' @aliases select 

-#' @export

 setGeneric("select", function(.data, ...) standardGeneric("select"))

 #' Method arrange

@@ -135,7 +89,6 @@ setGeneric("select", function(.data, ...) standardGeneric("select"))

 #' @name arrange

 #' @rdname arrange-GMQLDataset-method

 #' @aliases arrange 

-#' @export

 #' 

 setGeneric("arrange", function(.data, metadata_ordering = NULL, 

                     regions_ordering = NULL, fetch_opt = NULL, num_fetch = 0, 

similarity index 99%

rename from R/aggregate-class.R

rename to R/S3Aggregates.R

@@ -1,3 +1,8 @@

+#############################

+#       AGGREGATES         #

+############################

+

+

 AGGREGATES <- function(value)

 {

     op_list <- list(value = value)

similarity index 95%

rename from R/cover_param-class.R

rename to R/S3Cover-Param.R

@@ -34,7 +34,7 @@ print.PARAMETER <- function(obj){

 #'

 #' @examples

 #' 

-#' #' init_gmql()

+#' init_gmql()

 #' test_path <- system.file("example", "DATASET", package = "RGMQL")

 #' exp = read_dataset(test_path)

 #' 

@@ -43,14 +43,14 @@ print.PARAMETER <- function(obj){

 #' ## of two overlapping regions in the input samples, 

 #' ## up to maximum amount of overlapping regions.

 #' 

-#' res = cover(exp, 2, "ALL")

+#' res = cover(exp, 2, ALL())

 #' 

 #' ## This statement produces an output dataset with a single output sample. 

 #' ## The COVER operation considers all areas defined by a minimum 

 #' ## of two overlapping regions in the input samples, 

 #' ## up to any amount of overlapping regions.

 #' 

-#' res = cover(exp, 2, "ANY")

+#' res = cover(exp, 2, ANY()+2/3)

 #' 

 #' @name COVER-PARAMETER

 #' @rdname cover-param-class

similarity index 100%

rename from R/distal-class.R

rename to R/S3Distal.R

similarity index 100%

rename from R/operator-class.R

rename to R/S3Operator.R

deleted file mode 100644

@@ -1,133 +0,0 @@

-if(getRversion() >= "2.15.1")

-    utils::globalVariables("authToken")

-

-if(getRversion() >= "3.1.0")

-    utils::suppressForeignCheck("authToken")

-

-#' Login to GMQL

-#'

-#' Login to GMQL REST services suite as a registered user, specifying username 

-#' and password, or as guest using the proper GMQL web service available 

-#' on a remote server

-#' 

-#' @import httr

-#' @importFrom rJava J

-#' 

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#' @param username string name used during signup

-#' @param password string password used during signup

-#'

-#' @seealso \code{\link{logout_gmql}}

-#'

-#' @details

-#' if both username and password are NULL you will be logged as guest

-#' After login you will receive an authentication token.

-#' As token remains vaild on server (until the next login / registration) 

-#' a user can safely use a token fora previous session as a convenience, 

-#' this token is saved in Global environment to perform subsequent REST call 

-#' even on complete R restart (if is environemnt has been saved, of course ...)

-#' If error occures a specific error is printed

-#'

-#' @return None

-#'

-#' @examples

-#' ## login as guest

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' \dontrun{

-#' login_gmql(remote_url)

-#' }

-#' @export

-

-#' 

-login_gmql <- function(url, username = NULL, password = NULL)

-{

-    if(exists("authToken",envir = .GlobalEnv))

-    {

-        print("You are already logged")

-        return(invisible(NULL))

-    }

-    as_guest <- TRUE

-    

-    if(!is.null(username) || !is.null(password))

-        as_guest <- FALSE

-    

-    if(as_guest)

-    {

-        h <- c('Accept' = "Application/json")

-        URL <- paste0(url,"/guest")

-        req <- httr::GET(URL,httr::add_headers(h))

-    }

-    else

-    {

-        h <- c('Accept'="Application/json",'Content-Type'='Application/json')

-        URL <- paste0(url,"/login")

-        body <- list('username' = username,'password' = password)

-        req <- httr::POST(URL,httr::add_headers(h),body = body,encode = "json")

-    }

-

-    content <- httr::content(req)

-

-    if(req$status_code !=200)

-        stop(content$errorString)

-    else

-    {

-        assign("authToken",content$authToken,.GlobalEnv)

-        WrappeR <- J("it/polimi/genomics/r/Wrapper")

-        WrappeR$save_tokenAndUrl(authToken,url)

-        print(paste("your Token is",authToken))

-    }

-}

-

-#' Logout from GMQL

-#' 

-#' Logout from GMQL REST services suite

-#' using the proper GMQL web service available on a remote server

-#' 

-#' @import httr

-#' @importFrom rJava J

-#' 

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#'

-#' @seealso \code{\link{login_gmql}}

-#'

-#' @details

-#' After logout the authentication token will be invalidated.

-#' The authentication token is removed from Global environment

-#' If error occures a specific error is printed

-#' 

-#' @examples

-#' 

-#' ## login as guest, then logout

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' \dontrun{

-#' login_gmql(remote_url)

-#' logout_gmql(remote_url)

-#' }

-#' @return None

-#'

-#' @export

-#'

-logout_gmql <- function(url)

-{

-    URL <- paste0(url,"/logout")

-    h <- c('X-Auth-Token' = authToken)

-    req <- httr::GET(URL, httr::add_headers(h))

-    content <- httr::content(req)

-    

-    if(req$status_code !=200)

-        stop(content$error)

-    else

-    {

-        print(content)

-        #delete token from environment

-        WrappeR <- J("it/polimi/genomics/r/Wrapper")

-        WrappeR$delete_token()

-        if(exists("authToken",envir = .GlobalEnv))

-            rm(authToken, envir = .GlobalEnv)

-    }

-}

-

-

-

deleted file mode 100644

@@ -1,128 +0,0 @@

-#' Shows all Queries

-#'

-#' It shows all the GMQL query saved on repository 

-#' using the proper GMQL web service available on a remote server

-#' 

-#' @import httr

-#'

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#'

-#' @return list of queries

-#' Every query in the list is identified by:

-#' \itemize{

-#' \item{name: name of query}

-#' \item{text: text of GMQL query}

-#' }

-#' @seealso \code{\link{save_query}}

-#'

-#' @details

-#' if error occures, a specific error is printed

-#'

-#' @examples 

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' 

-#' \dontrun{

-#' login_gmql(remote_url)

-#' list <- show_queries_list(remote_url)

-#' }

-#' @export

-#'

-show_queries_list <- function(url)

-{

-    URL <- paste0(url,"/query")

-    h <- c('Accept' = 'Application/json', 'X-Auth-Token' = authToken)

-    req <- httr::GET(URL, httr::add_headers(h))

-    content <- httr::content(req,"parsed")

-    if(req$status_code==200)

-        return(content)

-    else

-        stop(content$error)

-}

-

-#' Save GMQL query

-#'

-#' It saves the GMQL query into repository

-#' using the proper GMQL web service available on a remote server

-#' 

-#' @import httr

-#'

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#' @param queryName string name of query

-#' @param queryTxt string text of GMQL query

-#'

-#' @return None

-#'

-#' @seealso \code{\link{show_queries_list}} \code{\link{save_query_fromfile}}

-#'

-#'

-#' @details

-#' if you save a query with the same name of an other query already stored 

-#' in repository you will overwrite it,

-#' if no error occures print "Saved" otherwise print the content error

-#'

-#' @examples

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' \dontrun{

-#' 

-#' login_gmql(remote_url)

-#' save_query(remote_url, "dna_query", "DATASET = SELECT() HG19_TCGA_dnaseq; 

-#' MATERIALIZE DATASET INTO RESULT_DS;")

-#' }

-#' @export

-#'

-save_query <- function(url, queryName, queryTxt)

-{

-    URL <- paste0(url,"/query/",queryName,"/save")

-    h <- c('Accept' = 'text/plain', 'X-Auth-Token' = authToken,

-            'Content-Type' = 'text/plain')

-    req <- httr::POST(URL, httr::add_headers(h),body = queryTxt)

-    content <- httr::content(req)

-

-    if(req$status_code==200)

-        print(content) # print Saved

-    else

-        stop(content$error)

-}

-

-#' Save GMQL query from file

-#'

-#' It saves the GMQL query into repository taken from file

-#' using the proper GMQL web service available on a remote server

-#'

-#' 

-#' 

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#' @param queryName string name of the GMQL query

-#' @param filePath string local file path of txt file containing a GMQL query

-#'

-#' @return None

-#'

-#' @seealso \code{\link{save_query}}

-#'

-#' @details

-#' if you save a query with the same name of an other query already stored

-#' in repository you will overwrite it,

-#' if no error occures print "Saved" otherwise print the content error

-#'

-#' @examples

-#' test_path <- system.file("example", package = "RGMQL")

-#' test_query <- file.path(test_path, "query1.txt")

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' \dontrun{

-#' 

-#' login_gmql(remote_url)

-#' save_query_fromfile(remote_url, "query1", test_query)

-#' }

-#' @export

-#'

-save_query_fromfile <- function(url, queryName, filePath)

-{

-    if(!file.exists(filePath))

-        stop("file does not exist")

-

-    queryTxt <- readLines(filePath)

-    save_query(url,queryName,queryTxt)

-}

deleted file mode 100644

@@ -1,532 +0,0 @@

-#' Show Dataset

-#'

-#' It show all GMQL dataset stored in repository using the proper GMQL 

-#' web service available on a remote server

-#' 

-#' 

-#' @import httr

-#' @param url single string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#'

-#' @return list of datasets.

-#'

-#' Every dataset in the list is identified by:

-#' \itemize{

-#' \item{name: name of dataset}

-#' \item{owner: public or name of the user}

-#' }

-#'

-#' @seealso \code{\link{delete_dataset}}

-#'

-#' @details

-#' If error occures a specific error is printed

-#'

-#' @examples

-#' 

-#' @examples

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' \dontrun{

-#' login_gmql(remote_url)

-#' list <- show_datasets_list(remote_url)

-#' }

-#' @export

-#'

-show_datasets_list <- function(url)

-{

-    URL <- paste0(url,"/datasets")

-

-    h <- c('X-Auth-Token' = authToken)

-    req <- httr::GET(URL, httr::add_headers(h))

-    content <- httr::content(req,"parsed") #JSON

-    if(req$status_code !=200)

-        stop(content$error)

-    else

-        return(content)

-}

-

-#' Show dataset samples

-#'

-#' It show all sample from a specific GMQL dataset using the proper 

-#' GMQL web service available on a remote server

-#' 

-#' @import httr

-#'

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#' @param datasetName name of dataset to get

-#' if the dataset is a public dataset, we have to add "public." as prefix, 

-#' as shown in the example below otherwise no prefix is needed

-#'

-#' @return list of samples in dataset.

-#'

-#' Every sample in the list is identified by:

-#' \itemize{

-#' \item{id: id of sample}

-#' \item{name: name of sample}

-#' \item{path: sample repository path}

-#' }

-#'

-#' @details

-#' If error occures a specific error is printed

-#'

-#' @examples

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' \dontrun{

-#' login_gmql(remote_url)

-#' list <- show_samples_list(remote_url, "public.HG19_BED_ANNOTATION")

-#' }

-#' @export

-#'

-show_samples_list <- function(url,datasetName)

-{

-    URL <- paste0(url,"/datasets/",datasetName)

-    h <- c('X-Auth-Token' = authToken)

-    req <- httr::GET(URL, httr::add_headers(h))

-    content <- httr::content(req,"parsed")

-    if(req$status_code !=200)

-        stop(content$error)

-    else

-        return(content)

-}

-

-

-#' Show dataset schema

-#'

-#' It shows the region attribute schema of a specific GMQL dataset using 

-#' the proper GMQL web service available on a remote server

-#' 

-#' @import httr

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#' @param datasetName name of dataset to get

-#' if the dataset is a public dataset, we have to add "public." as prefix, 

-#' as shown in the example below otherwise no prefix is needed

-#'

-#' @return list of region schema fields.

-#'

-#' Every field in the list is identified by:

-#' \itemize{

-#' \item{name: name of field (e.g. chr, start, end, strand ...)}

-#' \item{fieldType: (e.g STRING, DOUBLE ...)}

-#' }

-#'

-#' @details

-#' If error occures a specific error is printed

-#'

-#'

-#' @examples

-#' remote_url = "http://130.186.13.219/gmql-rest"

-#' \dontrun{

-#' login_gmql(remote_url)

-#' list <- show_schema(remote_url, "public.HG19_BED_ANNOTATION")

-#'}

-#' @export

-#'

-show_schema <- function(url,datasetName)

-{

-    URL <- paste0(url,"/datasets/",datasetName,"/schema")

-    h <- c('X-Auth-Token' = authToken)

-    #req <- GET(url, add_headers(h),verbose(data_in = TRUE,info = TRUE))

-    req <- httr::GET(URL, httr::add_headers(h))

-    content <- httr::content(req,"parsed")

-    if(req$status_code != 200)

-        stop(content$error)

-    else

-        return(content)

-}

-

-

-#' Upload dataset

-#'

-#'

-#' It uploads a folder (GMQL or not) containing sample files using 

-#' the proper GMQL web service available on a remote server: 

-#' a new dataset is created on repository

-#' 

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#' @param datasetName name of dataset to get

-#' @param folderPath string local path to the folder containing the samples

-#' @param schemaName string name of schema used to parse the samples

-#' schemaName available are:

-#' \itemize{

-#' \item{NARROWPEAK}

-#' \item{BROADPEAK}

-#' \item{VCF}

-#' \item{BED}

-#' \item{BEDGRAPH}

-#' }

-#' if schema is NULL it's looking for a XML schema file to read

-#' @param isGMQL logical value indicating whether is GMQL dataset or not

-#'

-#' @return None

-#'

-#' @details

-#' If no error occures print "Upload Complete", otherwise a specific error 

-#' is printed

-#'

-#' @examples

-#'

-#' \dontrun{

-#' 

-#' ### upload of GMQL dataset with no schema selection

-#' test_path <- system.file("example", "DATASET_GDM", package = "RGMQL")

-#' remote_url <- "http://130.186.13.219/gmql-rest"

-#' login_gmql(remote_url)

-#' upload_dataset(remote_url, "dataset1", folderPath = test_path)

-#' }

-#' 

-#' @export

-#'

-upload_dataset <- function(url,datasetName,folderPath,schemaName=NULL,

-                            isGMQL=TRUE)

-{

-    if(isGMQL)

-        folderPath <- paste0(folderPath,"/files")

-    

-    files <- list.files(folderPath,full.names = TRUE)

-    if(length(files)==0)

-        stop("no files present")

-    count = .counter(0)

-

-    list_files <- lapply(files, function(x) {

-        file <- httr::upload_file(x)

-    })

-

-    list_files_names <- sapply(list_files, function(x) {

-        paste0("file",count())

-    })

-

-    names(list_files) <- list_files_names

-    URL <- paste0(url,"/datasets/",datasetName,"/uploadSample")

-    h <- c('X-Auth-Token' = authToken, 'Accept:' = 'Application/json')

-

-    schema_name <- tolower(schemaName)

-

-    if(is.null(schemaName))

-    {

-        schema_name <- list.files(folderPath, pattern = "*.schema$",

-                                    full.names = TRUE)

-        if(length(schema_name)==0)

-            stop("schema must be present")

-

-        list_files <- list(list("schema" = httr::upload_file(schema_name)),

-                            list_files)

-        list_files <- unlist(list_files,recursive = FALSE)

-    

-        URL <- paste0(url,"/datasets/",datasetName,"/uploadSample")

-    }

-    else

-    {

-        schema_name <- tolower(schemaName)

-        if(identical(schema_name,"customparser"))

-        {

-            schema_name <- list.files(folderPath, pattern = "*.schema$",

-                                        full.names = TRUE)

-            if(length(schema_name)==0)

-                stop("schema must be present")

-

-            list_files <- list(list("schema" = httr::upload_file(schema_name)),

-                                list_files)

-            list_files <- unlist(list_files,recursive = FALSE)

-            

-            URL <- paste0(url,"/datasets/",datasetName,"/uploadSample")

-        }

-        else

-        {

-            if(!identical(schema_name,"narrowpeak") && 

-                !identical(schema_name,"vcf") && 

-                !identical(schema_name,"broadpeak") && 

-                !identical(schema_name,"bed")  && 

-                !identical(schema_name,"bedgraph"))

-                stop("schema not admissable")

-

-            URL <- paste0(url,"/datasets/",datasetName,

-                            "/uploadSample?schemaName=",schema_name)

-        }

-    }

-

-    req <- httr::POST(URL, body = list_files ,httr::add_headers(h))

-    content <- httr::content(req)

-    if(req$status_code !=200)

-        print(content)

-    else

-        print("upload Complete")

-}

-

-#' Delete dataset

-#'

-#' It deletes single private dataset specified by name from repository 

-#' using the proper GMQL web service available on a remote server

-#' 

-#' @import httr

-#'

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name is added automatically

-#' @param datasetName string name of dataset to delete

-#'

-#' @return None

-#'

-#'

-#' @details

-#' If no error occur, print "Deleted Dataset", otherwise a specific error 

-#' is printed

-#'

-#' @seealso \code{\link{download_dataset}}

-#'

-#' @examples

-#'

-#' \dontrun{

-#' 

-#' ## This dataset does not exist

-#' 

-#' remote_url <- "http://130.186.13.219/gmql-rest"

-#' login_gmql(remote_url)

-#' delete_dataset(remote_url, "job_test1_test101_20170604_180908_RESULT_DS")

-#' 

-#' }

-#' 

-#' @export

-#'

-delete_dataset <- function(url,datasetName)

-{

-    URL <- paste0(url,"/datasets/",datasetName)

-    h <- c('X-Auth-Token' = authToken, 'Accept:' = 'application/json')

-    req <- httr::DELETE(URL, httr::add_headers(h))

-    content <- httr::content(req,"parsed") #JSON

-

-    if(req$status_code !=200)

-        stop(content$error)

-    else

-        print(content$result)

-}

-

-#' Download Dataset

-#'

-#' It donwloads private dataset as zip file from repository to local path 

-#' specified using the proper GMQL web service available on a remote server

-#' 

-#' @import httr

-#' @importFrom utils unzip

-#'

-#' @param url string url of server: It must contain the server address 

-#' and base url; service name will be added automatically

-#' @param datasetName string name of dataset we want to get

-#' @param path string local path folder where store dataset,

-#' by defualt is R working directory

-#' @return None

-#'

-#' @details

-#' If error occures a specific error is printed

-#'

-#'

-#' @examples

-#'

-#' ## download dataset in r working directory

-#' ## in this case we try to download public dataset

-#'