@@ -1,6 +1,6 @@

 Package: cBioPortalData

 Title: Exposes and makes available data from the cBioPortal web resources

-Version: 0.99.50

+Version: 0.99.51

 Authors@R: c(person("Levi", "Waldron", email = "[email protected]",

     role = "aut"),

     person("Marcel", "Ramos", email = "[email protected]",

@@ -9,6 +9,8 @@ Description: The cBioPortalData package takes compressed resources

     from repositories such as cBioPortal and assembles a MultiAssayExperiment

     object with Bioconductor classes.

 Depends: R (>= 3.5.0),

+    AnVIL,

+    methods,

     MultiAssayExperiment

 Remotes:

     Bioconductor/AnVIL,

@@ -38,11 +40,13 @@ Encoding: UTF-8

 LazyData: true

 VignetteBuilder: knitr

 BugReports: https://github.com/waldronlab/cBioPortalData/issues

-RoxygenNote: 6.1.0

+RoxygenNote: 6.1.1

 Collate: 

+    'cBioPortal.R'

     'cBioPortalData-pkg.R'

     'cache.R'

     'data.R'

     'utils.R'

     'loadStudy.R'

     'studyDownload.R'

+    'zzz.R'

@@ -1,6 +1,8 @@

 # Generated by roxygen2: do not edit by hand

+export(cBioPortal)

 export(cbioCache)

+export(cbioportal)

 export(downloadStudy)

 export(loadStudy)

 export(removeCache)

@@ -5,14 +5,28 @@

 #' @return 'cBioPortal' represents the API of the cBioPortal database

 #'

 #' @export

-cBioPortal <- NULL # assigned in .onLoad, when credentials are available(?)

+cbioportal <- NULL # assigned in .onLoad

+## @export

+# .cBioPortal <- setClass("cBioPortal", contains = "Service")

+

+#' API Entry function for the cBioPortal data service

+#'

+#' This function allows the use of the cBioPortal API

+#'

+#' @return An object of class 'cBioPortal'

+#'

+#' @export

 cBioPortal <-

     function()

 {

-    Service(

-        "cBioPortal",

-        host = "https://www.cbioportal.org/api/",

-        config = httr::config(ssl_verifypeer = 0L, ssl_verifyhost = 0L)

-    )

+    # .cBioPortal(

+        AnVIL:::Service(

+            "cBioPortal",

+            host = "http://www.cbioportal.org/api",

+            config = httr::config(ssl_verifypeer = 0L, ssl_verifyhost = 0L),

+            authenticate_config = FALSE,

+            package = "cBioPortalData"

+         )

+    # )

 }

new file mode 100644

@@ -0,0 +1,5 @@

+# .onLoad <-

+#     function(...)

+# {

+#     cbioportal <<- cBioPortal()

+# }

new file mode 100644

@@ -0,0 +1,14 @@

+% Generated by roxygen2: do not edit by hand

+% Please edit documentation in R/cBioPortal.R

+\name{cBioPortal}

+\alias{cBioPortal}

+\title{API Entry function for the cBioPortal data service}

+\usage{

+cBioPortal()

+}

+\value{

+An object of class 'cBioPortal'

+}

+\description{

+This function allows the use of the cBioPortal API

+}