Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Genesys PGR
genesysr
Commits
3bcb8905
Commit
3bcb8905
authored
Jun 12, 2018
by
Matija Obreza
Browse files
\dontrun{} examples requiring authentication
parent
1621e571
Changes
1
Hide whitespace changes
Inline
Side-by-side
R/genesys.R
View file @
3bcb8905
...
...
@@ -34,9 +34,11 @@ me <- function() {
#' @seealso \code{\link{mcpd_filter}}
#'
#' @examples
#' \dontrun{
#' # Retrieve accession data by country of origin
#' accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")))
#'
#' }
#'
#' @return Paged data structure
.fetch_accessions_page
<-
function
(
filters
=
list
(),
page
=
0
,
size
=
1000
,
selector
=
NULL
)
{
start_time
<-
as.numeric
(
as.numeric
(
Sys.time
())
*
1000
,
digits
=
15
)
...
...
@@ -64,6 +66,7 @@ me <- function() {
#' @param at.least stop fetching when at.least records are received from Genesys
#'
#' @examples
#' \dontrun{
#' # Retrieve all accession data by country of origin
#' accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")))
#'
...
...
@@ -74,7 +77,8 @@ me <- function() {
#' accessions <- fetch_accessions(mcpd_filter(ORIGCTY = c("DEU", "SVN")), selector = function(x) {
#' list(id = x$id, acceNumb = x$acceNumb, instCode = x$institute$code)
#' })
#'
#' }
#'
#' @export
#' @return Paged data structure
fetch_accessions
<-
function
(
filters
=
list
(),
page
=
NULL
,
size
=
1000
,
selector
=
NULL
,
at.least
=
NULL
)
{
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment