lintr

R/export_table.R

@@ -602,7 +602,7 @@ print.insight_table <- function(x, ...) {
   }
 
   # Transform table matrix into a string value that can be printed
-  rows <- .table_parts(c(), final, header, sep, cross, empty_line)
+  rows <- .table_parts(NULL, final, header, sep, cross, empty_line)
 
   # if we have over-lengthy tables that are split into two parts,
   # print second table here
@@ -622,13 +622,13 @@ print.insight_table <- function(x, ...) {
     if (length(caption) == 2 && .is_valid_colour(caption[2])) {
       caption <- .colour(caption[2], caption[1])
     }
-    if (!is.null(subtitle)) {
+    if (is.null(subtitle)) {
+      subtitle <- ""
+    } else {
       # if we have a colour value, make coloured ansi-string
       if (length(subtitle) == 2 && .is_valid_colour(subtitle[2])) {
         subtitle <- .colour(subtitle[2], subtitle[1])
       }
-    } else {
-      subtitle <- ""
     }
 
     # paste everything together and remove unnecessary double spaces

R/format_table.R

@@ -235,10 +235,10 @@ format_table <- function(x,
 .format_p_values <- function(x, p_digits, stars = FALSE) {
   # Specify stars for which column (#656)
   if (is.character(stars)) {
-    starlist <- list("p" = FALSE)
+    starlist <- list(p = FALSE)
     starlist[stars] <- TRUE
   } else {
-    starlist <- list("p" = stars)
+    starlist <- list(p = stars)
   }
 
   for (pv in c("p", "p.value", "SGPV")) {