Add list classes as appropriate

r-lib · Oct 3, 2021 · 08e5c7c · 08e5c7c
1 parent e7e72e7
commit 08e5c7c
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/R/external-info.R b/R/external-info.R
@@ -40,7 +40,7 @@ external_info <- function() {
   ex["lapack_version"] <- get_la_version()
   names(ex) <- gsub("^lib", "", names(ex))
 
-  structure(as.list(ex), class = "external_info")
+  structure(as.list(ex), class = c("external_info", "list"))
 }
 
 get_tcl_version <- function() {

diff --git a/R/platform-info.R b/R/platform-info.R
@@ -36,7 +36,7 @@ platform_info <- function() {
     date = format(Sys.Date()),
     rstudio_version = get_rstudio_version(),
     pandoc_version = get_pandoc_version()
-  )), class = "platform_info")
+  )), class = c("platform_info", "list"))
 }
 
 get_rstudio_version <- function() {

diff --git a/R/python-info.R b/R/python-info.R
@@ -34,7 +34,7 @@ python_info <- function() {
     "Python is not available"
   }
 
-  class(conf) <- c("python_info", class(conf))
+  class(conf) <- unique(c("python_info", class(conf), "list"))
   conf
 }
 

diff --git a/R/session-info.R b/R/session-info.R
@@ -87,7 +87,7 @@ session_info <- function(
       external = if ("external" %in% info) external_info(),
       python = if ("python" %in% info) python_info()
     )),
-    class = "session_info"
+    class = c("session_info", "list")
   )
 
   if (is_string(to_file)) {
-Original file line number
+Diff line change
@@ Expand Up / @@ -34,7 +34,7 @@ python_info <- function() { @@
         "Python is not available"
       }
-      class(conf) <- c("python_info", class(conf))
+      class(conf) <- unique(c("python_info", class(conf), "list"))
       conf
     }
@@ Expand Down @@