Skip to content

Commit

Permalink
Merge pull request #7 from tommydeboer/master
Browse files Browse the repository at this point in the history
Add method stubs
  • Loading branch information
sidohaakma authored Jul 8, 2020
2 parents ce67a41 + 9d68a49 commit c5c99d4
Show file tree
Hide file tree
Showing 6 changed files with 79 additions and 3 deletions.
20 changes: 20 additions & 0 deletions R/.config.R
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
.onAttach <- function(libname, pkgname) {
packageStartupMessage("Welcome to the MOLGENIS Armadillo client")
}

.onLoad <- function(libname, pkgname) {
op <- options()
op.devtools <- list(
devtools.path = "~/R-dev",
devtools.install.args = "",
devtools.name = "Tommy de Boer",
devtools.desc.author = "Tommy de Boer <[email protected]>",
devtools.desc.license = "LGPL-3.0",
devtools.desc.suggests = NULL,
devtools.desc = list()
)
toset <- !(names(op.devtools) %in% names(op))
if (any(toset)) options(op.devtools[toset])

invisible()
}
9 changes: 8 additions & 1 deletion R/login.R → R/auth.R
Original file line number Diff line number Diff line change
Expand Up @@ -5,5 +5,12 @@
#'
#'@export
login <- function(username, password) {
message("Login to: https://datashield.dev.molgenis.org")
message("Login to: https://datashield.dev.molgenis.org")
}


#' Log out of the Armadillo service
#'
#'@export
logout <- function() {
}
24 changes: 24 additions & 0 deletions R/folder.R
Original file line number Diff line number Diff line change
@@ -0,0 +1,24 @@
#'@export
create_folder <- function(name) {
}

#'@export
list_folders <- function() {
}

#'@export
delete_folder <- function(name) {
}


#' @export
list_user_folders <- function() {
}

#' Deletes a user's folder from the Users bucket
#'
#' @param username the folder to delete
#'
#' @export
delete_user_folder <- function(username) {
}
25 changes: 25 additions & 0 deletions R/workspace.R
Original file line number Diff line number Diff line change
@@ -0,0 +1,25 @@
#' Combines tables in an .Rdata file and uploads them to a folder.
#'
#' @param folder foldername to upload to
#' @param name name of the .Rdata file
#' @param datasets vector of tables
#'
#'@export
add_workspace <- function(folder, name, datasets) {
}

#'@export
delete_workspace <- function(folder, name) {
}

#'@export
copy_workspace <- function(folder, name, new_folder) {
}

#'@export
download_workspace <- function(folder, name) {
}

#'@export
move_workspace <- function(folder, name, new_folder) {
}
2 changes: 2 additions & 0 deletions README.md
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
# MOLGENIS Armadillo Client
Client to use the Armadillo service. You can manage your data in the Armadillo service using this client.
2 changes: 0 additions & 2 deletions REAME.md

This file was deleted.

0 comments on commit c5c99d4

Please sign in to comment.