cosmetic

git-svn-id: https://svn.r-project.org/R/trunk@88172 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

src/library/utils/R/databrowser.R

@@ -1,7 +1,7 @@
 #  File src/library/utils/R/databrowser.R
 #  Part of the R package, https://www.R-project.org
 #
-#  Copyright (C) 1995-2013 The R Core Team
+#  Copyright (C) 1995-2020 The R Core Team
 #
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -199,7 +199,7 @@ wsbrowser <- function(IDS, IsRoot, IsContainer, ItemsPerContainer,
     entry <- function(ch) paste0("<td>",ch,"</td>")
     Par	<- function(ch) paste0("<P>",ch,"</P>")
     Trow <- function(N, ...) {
-	if(length(list(...)) != N) stop("wrong number of table row entries")
+	if(...length() != N) stop("wrong number of table row entries")
 	paste("<tr>", ..., "</tr>\n")
     }
     catRow <- function(...) cat(Trow(nCol, ...), file = Hfile)

src/library/utils/R/sessionInfo.R

@@ -1,7 +1,7 @@
 #  File src/library/utils/R/sessionInfo.R
 #  Part of the R package, https://www.R-project.org
 #
-#  Copyright (C) 1995-2024 The R Core Team
+#  Copyright (C) 1995-2025 The R Core Team
 #
 #  This program is free software; you can redistribute it and/or modify
 #  it under the terms of the GNU General Public License as published by
@@ -165,10 +165,8 @@ print.sessionInfo <- function(x, locale = TRUE, tzone = locale,
     if (!is.null(x$running)) cat("Running under: ",  x$running, "\n", sep = "")
     cat("\n")
     cat("Matrix products: ", x$matprod, "\n", sep = "")
-    blas <- x$BLAS
-    if (is.null(blas)) blas <- ""
-    lapack <- x$LAPACK
-    if (is.null(lapack)) lapack <- ""
+    blas   <- x$BLAS   %||% ""
+    lapack <- x$LAPACK %||% ""
     if (blas == lapack && nzchar(blas))
         cat("BLAS/LAPACK:", blas)
     else {