#' @title List EFS File System(s)
#' @description List EFS File System(s)
#' @param id Optionally, a character string specifying an EFS File System ID, perhaps as returned by \code{\link{create_efs}} to use to restrict results.
#' @param n Optionally, an integer specifying the number of results to return.
#' @param marker Optionally, a character string specifying a pagination marker returned by a previous result.
#' @param \dots Additional arguments passed to \code{\link{efsHTTP}}.
#' @return A list.
#' @references \href{http://docs.aws.amazon.com/efs/latest/ug/API_DescribeFileSystems.html}{API Documentation}
#' @seealso \code{\link{create_efs}}, \code{\link{delete_efs}}
#' @export
list_file_systems <- function(id = NULL, n = NULL, marker = NULL, ...) {
query <- list()
if (!is.null(id)) {
query[["FileSystemId"]] <- get_file_system_id(id)
}
if (!is.null(n)) {
query[["MaxItems"]] <- as.integer(n)
}
if (!is.null(n)) {
query[["Marker"]] <- marker
}
out <- efsHTTP(verb = "GET", action = "/2015-02-01/file-systems", query = query, ...)
structure(lapply(out$FileSystems, `class<-`, "aws_file_system"),
Marker = out$Marker,
NextMarker = out$NextMarker)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.