R Under development (unstable) (2025-12-16 r89184 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> view <- R.devices:::view
> 
> message("*** DevEvalProduct ...")
*** DevEvalProduct ...
> 
> message("*** DevEvalProduct - subsetting ...")
*** DevEvalProduct - subsetting ...
> 
> p <- R.devices:::DevEvalProduct("foo", tags=c("a", "b"))
> for (ff in c("fullname", "name", "tags")) {
+   cat(sprintf("%s: %s\n", ff, substring(p[[ff]], 1, 50)))
+ }
fullname: foo,a,b
name: foo
tags: a,b
> 
> library("R.devices")
R.devices v2.17.3 successfully loaded. See ?R.devices for help.
> 
> p <- DevEvalProduct("foo", tags=c("a", "b"))
> for (ff in c("fullname", "name", "tags")) {
+   cat(sprintf("%s: %s\n", ff, substring(p[[ff]], 1, 50)))
+ }
fullname: foo,a,b
name: foo
tags: a,b
> 
> p <- DevEvalProduct("foo", tags=c("a", "b"))
> valueA <- p[["name"]]
> valueB <- p$name
> stopifnot(identical(valueB, valueA))
> value <- p[["non-existing-field"]]
> stopifnot(is.null(value))
> 
> message("*** DevEvalProduct - subsetting ... DONE")
*** DevEvalProduct - subsetting ... DONE
> 
> 
> message("*** DevEvalProduct - view() ...")
*** DevEvalProduct - view() ...
> view(p)
NULL
> !p
NULL
> message("*** DevEvalProduct - view() ... DONE")
*** DevEvalProduct - view() ... DONE
> 
> message("*** DevEvalProduct ... DONE")
*** DevEvalProduct ... DONE
> 
> proc.time()
   user  system elapsed 
   0.31    0.10    0.40