These are convenience function for extracting information from a datastamp or object with a datastamp.
info_script(object) info_time(object) info_session(object) info_system(object) info_user(object) info_version(object) info_files(object)
| object | An object to retrieve information from. |
|---|
Either the requested information or NULL when the information
couldn't be retrieved.
#> [1] "withCallingHandlers({\n NULL\n saveRDS(do.call(do.call, c(readRDS(\"/tmp/RtmpcRKxsV/callr-fun-8a3c21c08817\"), list(envir = .GlobalEnv)), envir = .GlobalEnv), file = \"/tmp/RtmpcRKxsV/callr-res-8a3c465c0641\")\n flush(stdout())\n flush(stderr())\n NULL\n invisible()\n}, error = function(e) {\n {\n callr_data <- as.environment(\"tools:callr\")$`__callr_data__`\n err <- callr_data$err\n capture.output(assign(\".Traceback\", traceback(9), envir = baseenv()))\n dump.frames(\"__callr_dump__\")\n assign(\".Last.dump\", .GlobalEnv$`__callr_dump__`, envir = callr_data)\n rm(\"__callr_dump__\", envir = .GlobalEnv)\n e2 <- err$new_error(conditionMessage(e), call. = conditionCall(e))\n class(e2) <- c(\"callr_remote_error\", class(e2))\n e2$error <- e\n calls <- sys.calls()\n dcframe <- which(vapply(calls, function(x) length(x) >= 1 && identical(x[[1]], quote(do.call)), logical(1)))[1]\n if (!is.na(dcframe)) \n e2$`_ignore` <- list(c(1, dcframe + 1))\n e2$`_pid` <- Sys.getpid()\n e2$`_timestamp` <- Sys.time()\n if (inherits(e, \"rlib_error\")) \n e2$parent <- e$parent\n e2 <- err$add_trace_back(e2)\n saveRDS(list(\"error\", e2), file = paste0(\"/tmp/RtmpcRKxsV/callr-res-8a3c465c0641\", \".error\"))\n }\n}, interrupt = function(e) {\n {\n callr_data <- as.environment(\"tools:callr\")$`__callr_data__`\n err <- callr_data$err\n capture.output(assign(\".Traceback\", traceback(9), envir = baseenv()))\n dump.frames(\"__callr_dump__\")\n assign(\".Last.dump\", .GlobalEnv$`__callr_dump__`, envir = callr_data)\n rm(\"__callr_dump__\", envir = .GlobalEnv)\n e2 <- err$new_error(conditionMessage(e), call. = conditionCall(e))\n class(e2) <- c(\"callr_remote_error\", class(e2))\n e2$error <- e\n calls <- sys.calls()\n dcframe <- which(vapply(calls, function(x) length(x) >= 1 && identical(x[[1]], quote(do.call)), logical(1)))[1]\n if (!is.na(dcframe)) \n e2$`_ignore` <- list(c(1, dcframe + 1))\n e2$`_pid` <- Sys.getpid()\n e2$`_timestamp` <- Sys.time()\n if (inherits(e, \"rlib_error\")) \n e2$parent <- e$parent\n e2 <- err$add_trace_back(e2)\n saveRDS(list(\"error\", e2), file = paste0(\"/tmp/RtmpcRKxsV/callr-res-8a3c465c0641\", \".error\"))\n }\n}, callr_message = function(e) {\n try(signalCondition(e))\n})"info_time(x)#> [1] "2020-10-19 10:40:40 CEST"info_session(x)#> R version 3.6.3 (2020-02-29) #> Platform: x86_64-pc-linux-gnu (64-bit) #> Running under: Ubuntu 16.04.7 LTS #> #> Matrix products: default #> BLAS: /usr/lib/openblas-base/libblas.so.3 #> LAPACK: /usr/lib/libopenblasp-r0.2.18.so #> #> locale: #> [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C #> [3] LC_TIME=en_US.UTF-8 LC_COLLATE=en_US.UTF-8 #> [5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8 #> [7] LC_PAPER=en_US.UTF-8 LC_NAME=C #> [9] LC_ADDRESS=C LC_TELEPHONE=C #> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C #> #> attached base packages: #> [1] stats graphics grDevices utils datasets methods base #> #> other attached packages: #> [1] datastamp_0.0.0.9000 #> #> loaded via a namespace (and not attached): #> [1] Rcpp_1.0.5 rstudioapi_0.11 knitr_1.28 xml2_1.3.2 #> [5] whisker_0.4 magrittr_1.5 MASS_7.3-53 R6_2.4.1 #> [9] rlang_0.4.7 fansi_0.4.1 httr_1.4.1 tools_3.6.3 #> [13] xfun_0.12 cli_2.0.2 withr_2.2.0 ellipsis_0.3.1 #> [17] htmltools_0.4.0 yaml_2.2.1 assertthat_0.2.1 rprojroot_1.3-2 #> [21] digest_0.6.25 lifecycle_0.2.0 tibble_3.0.1 pkgdown_1.5.1 #> [25] crayon_1.3.4 purrr_0.3.4 vctrs_0.3.4 fs_1.3.2 #> [29] curl_4.3 memoise_1.1.0 glue_1.4.1 evaluate_0.14 #> [33] rmarkdown_2.1 pillar_1.4.4 compiler_3.6.3 desc_1.2.0 #> [37] backports_1.1.9 highlight_0.5.0 pkgconfig_2.0.3info_system(x)#> sysname #> "Linux" #> release #> "4.4.0-193-generic" #> version #> "#224-Ubuntu SMP Tue Oct 6 17:15:28 UTC 2020" #> nodename #> "shannon" #> machine #> "x86_64" #> login #> "unknown" #> user #> "t.vd.brand" #> effective_user #> "t.vd.brand"info_user(x)#> user effective_user #> "t.vd.brand" "t.vd.brand"info_version(x)#> $platform #> [1] "x86_64-pc-linux-gnu" #> #> $arch #> [1] "x86_64" #> #> $os #> [1] "linux-gnu" #> #> $system #> [1] "x86_64, linux-gnu" #> #> $status #> [1] "" #> #> $major #> [1] "3" #> #> $minor #> [1] "6.3" #> #> $year #> [1] "2020" #> #> $month #> [1] "02" #> #> $day #> [1] "29" #> #> $`svn rev` #> [1] "77875" #> #> $language #> [1] "R" #> #> $version.string #> [1] "R version 3.6.3 (2020-02-29)" #> #> $nickname #> [1] "Holding the Windsock" #>info_files(x)#> NULL