Refactoring of 'content' function

Signed-off-by: Stefan Widgren <stefan.widgren@gmail.com>

NAMESPACE

@@ -8,6 +8,7 @@ export(blame)
 export(blob_create)
 export(clone)
 export(config)
+export(content)
 export(cred_ssh_key)
 export(cred_token)
 export(default_signature)
@@ -76,7 +77,6 @@ exportMethods(bundle_r_package)
 exportMethods(checkout)
 exportMethods(commit)
 exportMethods(commits)
-exportMethods(content)
 exportMethods(contributions)
 exportMethods(cred_env)
 exportMethods(cred_user_pass)

R/blob.r

@@ -59,12 +59,10 @@ blob_create <- function(repo = NULL, path = NULL, relative = TRUE) {
 
 ##' Content of blob
 ##'
-##' @rdname content-methods
-##' @docType methods
-##' @param blob The blob \code{object}.
+##' @param blob The blob object.
 ##' @param split Split blob content to text lines. Default TRUE.
 ##' @return The content of the blob. NA_character_ if the blob is binary.
-##' @keywords methods
+##' @export
 ##' @examples
 ##' \dontrun{
 ##' ## Initialize a temporary repository
@@ -81,27 +79,15 @@ blob_create <- function(repo = NULL, path = NULL, relative = TRUE) {
 ##' ## Display content of blob.
 ##' content(tree(commits(repo)[[1]])["example.txt"])
 ##' }
-setGeneric("content",
-           signature = "blob",
-           function(blob,
-                    split = TRUE)
-           standardGeneric("content"))
-
-##' @rdname content-methods
-##' @export
-setMethod("content",
-          signature(blob = "git_blob"),
-          function(blob, split)
-          {
-              if (is_binary(blob))
-                  return(NA_character_)
+content <- function(blob = NULL, split = TRUE) {
+    if (is_binary(blob))
+        return(NA_character_)
 
-              ret <- .Call(git2r_blob_content, blob)
-              if (isTRUE(split))
-                  ret <- strsplit(ret, "\n")[[1]]
-              ret
-          }
-)
+    ret <- .Call(git2r_blob_content, blob)
+    if (isTRUE(split))
+        ret <- strsplit(ret, "\n")[[1]]
+    ret
+}
 
 ##' Determine the sha from a blob string
 ##'