code style: line length <= 80 characters

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

Author: stewid

R/time.R

@@ -18,8 +18,9 @@
 ##'
 ##' The class \code{git_time} stores the time a Git object was created.
 ##'
-##' The default is to use \code{tz = "GMT"} and \code{origin = "1970-01-01"}. To
-##' use your local timezone, set \code{tz = Sys.timezone()}.
+##' The default is to use \code{tz = "GMT"} and \code{origin =
+##' "1970-01-01"}. To use your local timezone, set \code{tz =
+##' Sys.timezone()}.
 ##'
 ##' @inheritParams base::as.POSIXct
 ##' @inheritParams base::strptime
@@ -49,13 +50,16 @@ NULL
 
 ##' @rdname git_time
 ##' @export
-as.character.git_time <- function(x,  tz = "GMT", origin = "1970-01-01", usetz = TRUE, ...) {
-    as.character(format(as.POSIXct(x, tz = tz, origin = origin), usetz = usetz), ...)
+as.character.git_time <- function(x,  tz = "GMT", origin = "1970-01-01",
+                                  usetz = TRUE, ...) {
+    as.character(format(as.POSIXct(x, tz = tz, origin = origin),
+                        usetz = usetz), ...)
 }
 
 ##' @rdname git_time
 ##' @export
-format.git_time <- function(x,  tz = "GMT", origin = "1970-01-01", usetz = TRUE, ...) {
+format.git_time <- function(x,  tz = "GMT", origin = "1970-01-01",
+                            usetz = TRUE, ...) {
     format(as.POSIXct(x, tz = tz, origin = origin), usetz = usetz, ...)
 }
 
@@ -67,7 +71,9 @@ as.POSIXct.git_time <- function(x, tz = "GMT", origin = "1970-01-01", ...) {
 
 ##' @rdname git_time
 ##' @export
-print.git_time <- function(x,  tz = "GMT", origin = "1970-01-01", usetz = TRUE, ...) {
-    cat(sprintf("%s\n", as.character(x, tz = tz, origin = origin, usetz = usetz, ...)))
+print.git_time <- function(x,  tz = "GMT", origin = "1970-01-01",
+                           usetz = TRUE, ...) {
+    cat(sprintf("%s\n", as.character(x, tz = tz, origin = origin,
+                                     usetz = usetz, ...)))
     invisible(x)
 }

R/when.R

@@ -1,5 +1,5 @@
 ## git2r, R bindings to the libgit2 library.
-## Copyright (C) 2013-2018 The git2r contributors
+## Copyright (C) 2013-2019 The git2r contributors
 ##
 ## This program is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License, version 2,
@@ -46,14 +46,19 @@
 ##' }
 when <- function(object, tz = "GMT", origin = "1970-01-01", usetz = TRUE) {
     if (inherits(object, "git_commit"))
-        return(as.character(object$author$when, tz = tz, origin = origin, usetz = usetz))
+        return(as.character(object$author$when, tz = tz, origin = origin,
+                            usetz = usetz))
     if (inherits(object, "git_signature"))
-        return(as.character(object$when, tz = tz, origin = origin, usetz = usetz))
+        return(as.character(object$when, tz = tz, origin = origin,
+                            usetz = usetz))
     if (inherits(object, "git_stash"))
-        return(as.character(object$stasher$when, tz = tz, origin = origin, usetz = usetz))
+        return(as.character(object$stasher$when, tz = tz, origin = origin,
+                            usetz = usetz))
     if (inherits(object, "git_tag"))
-        return(as.character(object$tagger$when, tz = tz, origin = origin, usetz = usetz))
+        return(as.character(object$tagger$when, tz = tz, origin = origin,
+                            usetz = usetz))
     if (inherits(object, "git_time"))
-        return(as.character(object, tz = tz, origin = origin, usetz = usetz))
+        return(as.character(object, tz = tz, origin = origin,
+                            usetz = usetz))
     stop("Invalid 'object'")
 }

tests/time.R

@@ -14,7 +14,7 @@
 ## with this program; if not, write to the Free Software Foundation, Inc.,
 ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
-library("git2r")
+library(git2r)
 
 ## For debugging
 sessionInfo()
@@ -31,21 +31,27 @@ stopifnot(identical(print(git_t), git_t))
 as.POSIXct(1395567947, origin = "1970-01-01", tz = "-03")
 
 ## Test that origin/tz can be passed to as.POSIXct
-stopifnot(identical(as.POSIXct(git_t, tz = "Europe/Stockholm", origin = "1980-02-02"),
-                    as.POSIXct(1395567947, tz = "Europe/Stockholm", origin = "1980-02-02")))
+stopifnot(identical(as.POSIXct(git_t, tz = "Europe/Stockholm",
+                               origin = "1980-02-02"),
+                    as.POSIXct(1395567947, tz = "Europe/Stockholm",
+                               origin = "1980-02-02")))
 
 ## Test that origin/tz can be passed to as.character
-stopifnot(identical(as.character(git_t, tz = "Europe/Stockholm", origin = "1980-02-02"),
+stopifnot(identical(as.character(git_t, tz = "Europe/Stockholm",
+                                 origin = "1980-02-02"),
                     "2024-04-23 11:45:47 CEST"))
-stopifnot(identical(as.character(git_t, tz = "Europe/Stockholm", origin = "1980-02-02", usetz = FALSE),
+stopifnot(identical(as.character(git_t, tz = "Europe/Stockholm",
+                                 origin = "1980-02-02", usetz = FALSE),
                     "2024-04-23 11:45:47"))
 
 ## Test that origin/tz can be passed to print
 stopifnot(identical(
-    utils::capture.output(print(git_t, tz = "Europe/Stockholm", origin = "1980-02-02")),
+    utils::capture.output(print(git_t, tz = "Europe/Stockholm",
+                                origin = "1980-02-02")),
     "2024-04-23 11:45:47 CEST"
 ))
 stopifnot(identical(
-    utils::capture.output(print(git_t, tz = "Europe/Stockholm", origin = "1980-02-02", usetz = FALSE)),
+    utils::capture.output(print(git_t, tz = "Europe/Stockholm",
+                                origin = "1980-02-02", usetz = FALSE)),
     "2024-04-23 11:45:47"
 ))