Refactoring of 'default_signature' function

NAMESPACE

@@ -7,6 +7,7 @@ export(clone)
 export(config)
 export(cred_ssh_key)
 export(cred_token)
+export(default_signature)
 export(in_repository)
 export(is_bare)
 export(is_blob)
@@ -73,7 +74,6 @@ exportMethods(content)
 exportMethods(contributions)
 exportMethods(cred_env)
 exportMethods(cred_user_pass)
-exportMethods(default_signature)
 exportMethods(descendant_of)
 exportMethods(diff)
 exportMethods(discover_repository)

R/repository.r

@@ -581,11 +581,9 @@ lookup <- function(repo = NULL, sha = NULL) {
 ##' Get the signature
 ##'
 ##' Get the signature according to the repository's configuration
-##' @rdname default_signature-methods
-##' @docType methods
-##' @param repo The repository \code{object} to check signature
+##' @template repo-param
 ##' @return S4 class git_signature
-##' @keywords methods
+##' @export
 ##' @examples
 ##' \dontrun{
 ##' ## Initialize a temporary repository
@@ -605,20 +603,9 @@ lookup <- function(repo = NULL, sha = NULL) {
 ##' ## Get the default signature
 ##' default_signature(repo)
 ##' }
-setGeneric("default_signature",
-           signature = "repo",
-           function(repo)
-           standardGeneric("default_signature"))
-
-##' @rdname default_signature-methods
-##' @export
-setMethod("default_signature",
-          signature(repo = "git_repository"),
-          function(repo)
-          {
-              .Call(git2r_signature_default, repo)
-          }
-)
+default_signature <- function(repo = NULL) {
+    .Call(git2r_signature_default, lookup_repository(repo))
+}
 
 ##' Brief summary of repository
 ##'