R Under development (unstable) (2025-02-23 r87804 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. > library("R.utils") Loading required package: R.oo Loading required package: R.methodsS3 R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help. R.oo v1.27.0 (2024-11-01 18:00:02 UTC) successfully loaded. See ?R.oo for help. Attaching package: 'R.oo' The following object is masked from 'package:R.methodsS3': throw The following objects are masked from 'package:methods': getClasses, getMethods The following objects are masked from 'package:base': attach, detach, load, save R.utils v2.13.0 successfully loaded. See ?R.utils for help. Attaching package: 'R.utils' The following object is masked from 'package:utils': timestamp The following objects are masked from 'package:base': cat, commandArgs, getOption, isOpen, nullfile, parse, use, warnings > > opager <- options(pager=mpager) > > file <- system.file("DESCRIPTION", package="R.utils") > cat("Displaying: ", file, ":\n", sep="") Displaying: D:/RCompile/CRANincoming/R-devel/lib/R.utils/DESCRIPTION: > displayCode(file) =============================================================================== D:/RCompile/CRANincoming/R-devel/lib/R.utils/DESCRIPTION =============================================================================== 1|Package: R.utils 2|Version: 2.13.0 3|Depends: R (>= 2.14.0), R.oo 4|Imports: methods, utils, tools, R.methodsS3 5|Suggests: datasets, digest (>= 0.6.10) 6|Title: Various Programming Utilities 7|Authors@R: c(person("Henrik", "Bengtsson", role=c("aut", "cre", "cph"), 8| email = "henrikb@braju.com")) 9|Author: Henrik Bengtsson [aut, cre, cph] 10|Maintainer: Henrik Bengtsson 11|Description: Utility functions useful when programming and developing R pack |ages. 12|License: LGPL (>= 2.1) 13|LazyLoad: TRUE 14|URL: https://henrikbengtsson.github.io/R.utils/, 15| https://github.com/HenrikBengtsson/R.utils 16|BugReports: https://github.com/HenrikBengtsson/R.utils/issues 17|NeedsCompilation: no 18|Packaged: 2025-02-24 19:44:20 UTC; henrik 19|Built: R 4.5.0; ; 2025-02-24 20:20:19 UTC; windows > > file <- system.file("NEWS.md", package="R.utils") > cat("Displaying: ", file, ":\n", sep="") Displaying: D:/RCompile/CRANincoming/R-devel/lib/R.utils/NEWS.md: > displayCode(file, numerate=FALSE, lines=100:110, wrap=65) =============================================================================== D:/RCompile/CRANincoming/R-devel/lib/R.utils/NEWS.md =============================================================================== # Version 2.11.0 [2021-09-25] ## New Features * Now `insert()` support duplicates in `ats`, which then results in the corresponding `values` being inserted in order at those duplicated indices. * Relaxed `insert()` to accept a `values` argument that is a lis t but not necessarily a formal vector. > > file <- system.file("NEWS.md", package="R.utils") > cat("Displaying: ", file, ":\n", sep="") Displaying: D:/RCompile/CRANincoming/R-devel/lib/R.utils/NEWS.md: > displayCode(file, lines=100:110, wrap=65, highlight=c(101,104:108)) =============================================================================== D:/RCompile/CRANincoming/R-devel/lib/R.utils/NEWS.md =============================================================================== 100| *101|# Version 2.11.0 [2021-09-25] 102| 103|## New Features *104| *105| * Now `insert()` support duplicates in `ats`, which then re |sults in *106| the corresponding `values` being inserted in order at tho |se *107| duplicated indices. *108| 109| * Relaxed `insert()` to accept a `values` argument that is |a list but 110| not necessarily a formal vector. > > con <- file(file) > displayCode(con, lines=1:10) =============================================================================== D:/RCompile/CRANincoming/R-devel/lib/R.utils/NEWS.md =============================================================================== 1|# Version 2.13.0 [2025-02-24] 2| 3|## New Features 4| 5| * MS Windows: It is now possible to control whether `Sys.readlink2()` 6| attempts to infer whether a path is a symbolic on Windows by 7| setting R option `R.utils::Sys.readlink2.Windows`. If `TRUE` 8| (default), it tries to follow links by inspecting the output of 9| `shell("dir", ...)`, which can be very slow for large folders. It 10| might also not work in all locales. The default for this option is > > displayCode(file, lines=1:10, pager=mpager) =============================================================================== D:/RCompile/CRANincoming/R-devel/lib/R.utils/NEWS.md =============================================================================== 1|# Version 2.13.0 [2025-02-24] 2| 3|## New Features 4| 5| * MS Windows: It is now possible to control whether `Sys.readlink2()` 6| attempts to infer whether a path is a symbolic on Windows by 7| setting R option `R.utils::Sys.readlink2.Windows`. If `TRUE` 8| (default), it tries to follow links by inspecting the output of 9| `shell("dir", ...)`, which can be very slow for large folders. It 10| might also not work in all locales. The default for this option is > displayCode(file, lines=1:10, pager="mpager") Warning message: In file.show(tmpfile, title = pathname, delete.file = TRUE, pager = pager, : '"mpager"' not found > > > ## Exception handling > res <- try(displayCode(file, lines=-10:110), silent=TRUE) > stopifnot(inherits(res, "try-error")) > > res <- try(displayCode(file, wrap=integer(0)), silent=TRUE) > stopifnot(inherits(res, "try-error")) > > res <- try(displayCode(file, wrap=55:66), silent=TRUE) > stopifnot(inherits(res, "try-error")) > > res <- try(displayCode(2L), silent=TRUE) > stopifnot(inherits(res, "try-error")) > > options(opager) > > proc.time() user system elapsed 0.26 0.01 0.28