fix silly lintr complaints

Author: gmbecker

R/rlistings.R

@@ -284,7 +284,12 @@ get_keycols <- function(df) {
 #' @export
 setMethod(
   "matrix_form", "listing_df",
-  rix_form <- function(obj, indent_rownames = FALSE, expand_newlines = TRUE, fontspec = font_spec, col_gap = 3L, round_type = c("iec", "sas")) {
+  rix_form <- function(obj,
+                       indent_rownames = FALSE,
+                       expand_newlines = TRUE,
+                       fontspec = font_spec,
+                       col_gap = 3L,
+                       round_type = c("iec", "sas")) {
     ##  we intentionally silently ignore indent_rownames because listings have
     ## no rownames, but formatters::vert_pag_indices calls matrix_form(obj, TRUE)
     ## unconditionally.
@@ -306,7 +311,10 @@ setMethod(
     for (i in seq_along(keycols)) {
       kcol <- keycols[i]
       kcolvec <- listing[[kcol]]
-      kcolvec <- vapply(kcolvec, format_value, "", format = obj_format(kcolvec), na_str = obj_na_str(kcolvec), round_type = round_type)
+      kcolvec <- vapply(kcolvec, format_value, "",
+                        format = obj_format(kcolvec),
+                        na_str = obj_na_str(kcolvec),
+                        round_type = round_type)
       curkey <- paste0(curkey, kcolvec)
       disp <- c(TRUE, tail(curkey, -1) != head(curkey, -1))
       bodymat[disp, kcol] <- kcolvec[disp]
@@ -316,7 +324,10 @@ setMethod(
     if (length(nonkeycols) > 0) {
       for (nonk in nonkeycols) {
         vec <- listing[[nonk]]
-        vec <- vapply(vec, format_value, "", format = obj_format(vec), na_str = obj_na_str(vec), round_type = round_type)
+        vec <- vapply(vec, format_value, "",
+                      format = obj_format(vec),
+                      na_str = obj_na_str(vec),
+                      round_type = round_type)
         bodymat[, nonk] <- vec
       }
     }

R/rlistings_methods.R

@@ -14,7 +14,14 @@ dflt_courier <- font_spec("Courier", 9, 1)
 #'
 #' @export
 #' @name listing_methods
-print.listing_df <- function(x, widths = NULL, tf_wrap = FALSE, max_width = NULL, fontspec = NULL, col_gap = 3L, round_type = c("iec", "sas"),  ...) {
+print.listing_df <- function(x,
+                             widths = NULL,
+                             tf_wrap = FALSE,
+                             max_width = NULL,
+                             fontspec = NULL,
+                             col_gap = 3L,
+                             round_type = c("iec", "sas"),
+                             ...) {
   tryCatch({
     cat(
       toString(
@@ -42,7 +49,12 @@ print.listing_df <- function(x, widths = NULL, tf_wrap = FALSE, max_width = NULL
 #' @exportMethod toString
 #' @name listing_methods
 #' @aliases toString,listing_df-method
-setMethod("toString", "listing_df", function(x, widths = NULL, fontspec = NULL, col_gap = 3L, round_type = c("iec", "sas"),  ...) {
+setMethod("toString", "listing_df", function(x,
+                                             widths = NULL,
+                                             fontspec = NULL,
+                                             col_gap = 3L,
+                                             round_type = c("iec", "sas"),
+                                             ...) {
   toString(
     matrix_form(x, fontspec = fontspec, col_gap = col_gap, round_type = round_type),
     fontspec = fontspec,
@@ -95,7 +107,9 @@ format_colvector <- function(df, colnm, colvec = df[[colnm]], round_type = c("ie
 #'   needed to render the elements of `vec` to width `max_width`.
 #'
 #' @keywords internal
-setGeneric("vec_nlines", function(vec, max_width = NULL, fontspec = dflt_courier, round_type = c("iec", "sas")) standardGeneric("vec_nlines"))
+setGeneric("vec_nlines", function(vec, max_width = NULL, fontspec = dflt_courier, round_type = c("iec", "sas")) {
+  standardGeneric("vec_nlines")
+})
 
 #' @param vec (`vector`)\cr a vector.
 #'
@@ -108,7 +122,8 @@ setMethod("vec_nlines", "ANY", function(vec, max_width = NULL, fontspec = dflt_c
     # NB: flooring as it is used as <= (also in base::strwrap)
   }
   # in formatters for characters
-  unlist(lapply(format_colvector(colvec = vec, round_type = round_type), nlines, max_width = max_width, fontspec = fontspec))
+  unlist(lapply(format_colvector(colvec = vec, round_type = round_type), nlines,
+                max_width = max_width, fontspec = fontspec))
 })
 
 ## setMethod("vec_nlines", "character", function(vec, max_width = NULL) {