foobar <- function(argument) { argument } #' foobar2 #' @export #' @examples #' foobar2() foobar2 <- function() { outfile <- Sys.getenv("RCMDCHECK_OUTPUT", "") if (nzchar(outfile)) { cat(Sys.getpid(), sep = "\n", file = outfile) } } foobar2() while (TRUE) Sys.sleep(1000)
Generated by dwww version 1.15 on Sat May 18 10:39:16 CEST 2024.