Linting to get rid of trailing whitespace.

Author: LTLA

R/allocateUploadDirectory.R

@@ -1,7 +1,7 @@
 #' Allocate a directory for upload
 #'
 #' Create a new subdirectory in the staging directory to store files for an upload to the Gobbler registry.
-#' If the to-be-uploaded files are saved here, users can avoid an extra copying step in \code{\link{uploadDirectory}}. 
+#' If the to-be-uploaded files are saved here, users can avoid an extra copying step in \code{\link{uploadDirectory}}.
 #'
 #' @param staging String containing the path to the staging directory.
 #' @param create Logical scalar specifying whether to actually create the subdirectory.
@@ -17,7 +17,7 @@
 #' staging <- tempfile()
 #' dir.create(staging)
 #' allocateUploadDirectory(staging)
-#' 
+#'
 #' @export
 allocateUploadDirectory <- function(staging, create=TRUE) {
     sinfo <- Sys.info()

R/approveProbation.R

@@ -2,12 +2,12 @@
 #'
 #' Pretty much as it says: approve a probational upload of a version of a project's asset.
 #' This removes the \code{on_probation} tag from the uploaded version.
-#' 
+#'
 #' @param project String containing the project name.
 #' @param asset String containing the asset name.
 #' @param version String containing the version name.
 #' @param spoof String containing the name of a user on whose behalf this request is being made.
-#' This should only be used if the Gobbler service allows spoofing by the current user. 
+#' This should only be used if the Gobbler service allows spoofing by the current user.
 #' If \code{NULL}, no spoofing is performed.
 #' @inheritParams createProject
 #'
@@ -17,24 +17,24 @@
 #' \code{\link{rejectProbation}}, to reject the probational upload.
 #'
 #' \code{\link{uploadDirectory}}, to specify probational uploads.
-#' 
+#'
 #' @author Aaron Lun
 #' @examples
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # to start with a clean slate.
 #' createProject("test", info$staging, url=info$url)
 #'
-#' # Mocking up an upload. 
+#' # Mocking up an upload.
 #' src <- allocateUploadDirectory(info$staging)
 #' write(file=file.path(src, "foo"), "BAR")
-#' uploadDirectory("test", "probation", "v1", src, 
+#' uploadDirectory("test", "probation", "v1", src,
 #'     staging=info$staging, url=info$url, probation=TRUE)
 #' fetchSummary("test", "probation", "v1", registry=info$registry)
 #'
 #' # After approval, the probation status disappears.
 #' approveProbation("test", "probation", "v1", staging=info$staging, url=info$url)
 #' fetchSummary("test", "probation", "v1", registry=info$registry)
-#' 
+#'
 #' @export
 approveProbation <- function(project, asset, version, staging, url, spoof=NULL) {
     dump_request(staging, url, "approve_probation", list(project=project, asset=asset, version=version), spoof=spoof)

R/cloneVersion.R

@@ -2,7 +2,7 @@
 #'
 #' Clone the directory structure for a versioned asset into a separate location.
 #' This is typically used to prepare a new version for a lightweight upload.
-#' 
+#'
 #' @param project String containing the project name.
 #' @param asset String containing the asset name.
 #' @param version String containing the version name.
@@ -14,27 +14,27 @@
 #'
 #' @details
 #' Cloning involves creating a directory at \code{destination} that has the same structure as that of the specified project-asset-version.
-#' All files in the version are represented as symlinks from \code{destination} to the corresponding file in the \code{registry}. 
+#' All files in the version are represented as symlinks from \code{destination} to the corresponding file in the \code{registry}.
 #' The idea is that, when \code{destination} is used in \code{\link{uploadDirectory}}, the symlinks are converted into upload links.
 #' This allows users to create new versions very cheaply as duplicate files are not uploaded to/stored in the backend.
 #'
-#' Users can more-or-less do whatever they want inside the cloned \code{destination}, 
+#' Users can more-or-less do whatever they want inside the cloned \code{destination},
 #' but the symlink targets should be read-only as they refer to immutable files in the \code{registry}.
 #' If a file in \code{destination} needs to be modified, the symlink should be deleted and replaced with a new file.
 #'
 #' @author Aaron Lun
 #'
 #' @seealso
 #' \code{\link{allocateUploadDirectory}}, to obtain a possible value for \code{destination}.
-#' 
+#'
 #' \code{\link{uploadDirectory}}, to prepare an upload based on the directory contents.
 #'
 #' @examples
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # start with a clean slate.
 #' createProject("test", info$staging, url=info$url)
-#' 
-#' # Mocking up an upload. 
+#'
+#' # Mocking up an upload.
 #' src <- allocateUploadDirectory(info$staging)
 #' write(file=file.path(src, "foo"), "BAR")
 #' uploadDirectory("test", "simple", "v1", src, staging=info$staging, url=info$url)

R/createProject.R

@@ -1,16 +1,16 @@
-#' Create a project 
+#' Create a project
 #'
 #' Create a new project in the registry.
 #'
 #' @param project String containing the name of the project to create.
 #' @param owners Character vector containing the user IDs for owners of this project.
 #' This defaults to the current user.
 #' @param uploaders List specifying the authorized uploaders for this project.
-#' See the \code{uploaders} field in the \code{\link{fetchPermissions}} return value for the expected format. 
+#' See the \code{uploaders} field in the \code{\link{fetchPermissions}} return value for the expected format.
 #' @param staging String containing the path to the staging directory.
 #' @param url String containing the URL of the gobbler REST API.
 #'
-#' @return \code{NULL} is invisibly returned if the project was successfully created. 
+#' @return \code{NULL} is invisibly returned if the project was successfully created.
 #'
 #' @author Aaron Lun
 #'

R/fetchDirectory.R

@@ -24,13 +24,13 @@
 #' or a path to a local cache of the registry's contents otherwise.
 #'
 #' @author Aaron Lun
-#' 
+#'
 #' @examples
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # start with a clean slate.
 #' createProject("test", info$staging, url=info$url)
 #'
-#' # Mocking up an upload. 
+#' # Mocking up an upload.
 #' src <- allocateUploadDirectory(info$staging)
 #' write(file=file.path(src, "foo"), "BAR")
 #' dir.create(file.path(src, "whee"))
@@ -42,13 +42,13 @@
 #' dir <- fetchDirectory("test/simple/v1", registry=info$registry, url=info$url)
 #' dir
 #' list.files(dir, recursive=TRUE)
-#' 
+#'
 #' # Or, forcing remote access:
 #' cache <- tempfile()
-#' dir1 <- fetchDirectory("test/simple/v1", 
-#'     registry=info$registry, 
-#'     url=info$url, 
-#'     cache=cache, 
+#' dir1 <- fetchDirectory("test/simple/v1",
+#'     registry=info$registry,
+#'     url=info$url,
+#'     cache=cache,
 #'     forceRemote=TRUE
 #' )
 #' dir1
@@ -94,7 +94,7 @@ fetchDirectory <- function(path, registry, url, cache=NULL, forceRemote=FALSE, o
         parallel::parLapply(cl, listing, acquire_file, cache=cache, path=path, url=url, overwrite=overwrite)
     }
 
-    # We use a directory-level OK file to avoid having to scan through all 
+    # We use a directory-level OK file to avoid having to scan through all
     # the directory contents to indicate that it's complete.
     dir.create(dirname(ok), showWarnings=FALSE, recursive=TRUE)
     write(file=ok, character(0))

R/fetchFile.R

@@ -11,15 +11,15 @@
 #' @inheritParams fetchDirectory
 #'
 #' @author Aaron Lun
-#' 
+#'
 #' @return String containing the path to the file on the caller's filesystem.
-#' 
+#'
 #' @examples
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # start with a clean slate.
 #' createProject("test", info$staging, url=info$url)
 #'
-#' # Mocking up an upload. 
+#' # Mocking up an upload.
 #' src <- allocateUploadDirectory(info$staging)
 #' write(file=file.path(src, "foo"), "BAR")
 #' dir.create(file.path(src, "whee"))
@@ -28,7 +28,7 @@
 #'
 #' fetchFile("test/simple/v1/foo", registry=info$registry, url=info$url)
 #' fetchFile("test/simple/v1/whee/blah", registry=info$registry, url=info$url, forceRemote=TRUE)
-#' 
+#'
 #' @export
 fetchFile <- function(path, registry, url, cache=NULL, forceRemote=FALSE, overwrite=FALSE) {
     if (!forceRemote && file.exists(registry)) {

R/fetchLatest.R

@@ -2,20 +2,20 @@
 #'
 #' Fetch the latest version of a project's asset.
 #' This will call the REST API if the caller is not on the same filesystem as the registry.
-#' 
+#'
 #' @param project String containing the project name.
 #' @param asset String containing the asset name.
 #' @inheritParams listProjects
 #'
-#' @return String containing the latest version of the asset. 
+#' @return String containing the latest version of the asset.
 #' This may also be \code{NULL} if the asset has no (non-probational) versions.
 #'
 #' @author Aaron Lun
 #'
 #' @examples
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # start with a clean slate.
-#' createProject("test", info$staging, url=info$url) 
+#' createProject("test", info$staging, url=info$url)
 #'
 #' # Mocking up a few uploads.
 #' src <- allocateUploadDirectory(info$staging)

R/fetchManifest.R

@@ -1,4 +1,4 @@
-#' Fetch version manifest 
+#' Fetch version manifest
 #'
 #' Fetch the manifest for a version of an asset of a project.
 #' This will call the REST API if the caller is not on the same filesystem as the registry.
@@ -9,24 +9,24 @@
 #' @inheritParams fetchDirectory
 #'
 #' @author Aaron Lun
-#' 
+#'
 #' @return List containing the manifest for this version.
 #' Each element is named after the relative path of a file in this version.
 #' The value of each element is another list with the following fields:
 #' \itemize{
 #' \item \code{size}, an integer specifying the size of the file in bytes.
 #' \item \code{md5sum}, a string containing the hex-encoded MD5 checksum of the file.
-#' \item \code{link} (optional): a list specifying the link destination for a file. 
+#' \item \code{link} (optional): a list specifying the link destination for a file.
 #' This contains the strings \code{project}, \code{asset}, \code{version} and \code{path}.
 #' If the link destination is itself a link, an \code{ancestor} list will be present that specifies the final location of the file after resolving all intermediate links.
 #' }
-#' 
+#'
 #' @examples
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # start with a clean slate.
 #' createProject("test", info$staging, url=info$url)
 #'
-#' # Mocking up an upload. 
+#' # Mocking up an upload.
 #' src <- allocateUploadDirectory(info$staging)
 #' write(file=file.path(src, "foo"), "BAR")
 #' dir.create(file.path(src, "whee"))
@@ -35,14 +35,14 @@
 #'
 #' # Obtaining the manifest for this version.
 #' fetchManifest("test", "simple", "v1", registry=info$registry, url=info$url)
-#' 
+#'
 #' # Force remote access.
 #' fetchManifest(
-#'     "test", 
-#'     "simple", 
-#'     "v1", 
-#'     registry=info$registry, 
-#'     url=info$url, 
+#'     "test",
+#'     "simple",
+#'     "v1",
+#'     registry=info$registry,
+#'     url=info$url,
 #'     forceRemote=TRUE
 #' )
 #' @export

R/fetchPermissions.R

@@ -1,8 +1,8 @@
-#' Fetch project permissions 
+#' Fetch project permissions
 #'
 #' Fetch the permissions for a project.
 #' This will call the REST API if the caller is not on the same filesystem as the registry.
-#' 
+#'
 #' @param project String containing the project name.
 #' @param asset String containing the asset name.
 #' If specified, permissions are retrieved for the asset rather than the entire project.
@@ -25,7 +25,7 @@
 #' \item (optional) \code{trusted}, a logical scalar indicating whether the uploader is trusted.
 #' If not provided, defaults to \code{FALSE}.
 #' }
-#' \item (optional) \code{global_write}, a logical scalar indicating whether global writes are enabled. 
+#' \item (optional) \code{global_write}, a logical scalar indicating whether global writes are enabled.
 #' In this mode, any user can create any number of new assets in this project.
 #' Each user can also upload new versions of any asset that they created in this mode.
 #' }
@@ -40,7 +40,7 @@
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # start with a clean slate.
 #'
-#' # Mocking up a project.upload. 
+#' # Mocking up a project.upload.
 #' createProject("test", info$staging, url=info$url,
 #'     uploaders=list(list(id="urmom", until=Sys.time() + 1000)))
 #'

R/fetchSummary.R

@@ -6,7 +6,7 @@
 #' @inheritParams fetchManifest
 #'
 #' @author Aaron Lun
-#' 
+#'
 #' @return List containing the summary for this version, with the following fields:
 #' \itemize{
 #' \item \code{upload_user_id}, string containing the identity of the uploader.
@@ -15,13 +15,13 @@
 #' \item \code{on_probation} (optional), a logical scalar indicating whether the upload is probational.
 #' If missing, this can be assumed to be \code{FALSE}.
 #' }
-#' 
+#'
 #' @examples
 #' info <- startGobbler()
 #' removeProject("test", info$staging, url=info$url) # start with a clean slate.
 #' createProject("test", info$staging, url=info$url)
 #'
-#' # Mocking up an upload. 
+#' # Mocking up an upload.
 #' src <- allocateUploadDirectory(info$staging)
 #' write(file=file.path(src, "foo"), "BAR")
 #' uploadDirectory("test", "simple", "v1", src, staging=info$staging, url=info$url)
@@ -31,11 +31,11 @@
 #'
 #' # Force remote access.
 #' fetchSummary(
-#'     "test", 
-#'     "simple", 
-#'     "v1", 
-#'     registry=info$registry, 
-#'     url=info$url, 
+#'     "test",
+#'     "simple",
+#'     "v1",
+#'     registry=info$registry,
+#'     url=info$url,
 #'     forceRemote=TRUE
 #' )
 #' @export