In jeffkimbrel/jakR: jakR Miscellaneous Scripts

ELN/embedded

r Sys.Date()

Setting Up

This report file is intended to be embedded inside an Obsidian note, and was knitted from an R markdown file. The .Rmd and any .Rds or chunk cache files will be written here

library(knitr)
library(rmdformats)
library(tidyverse)
library(jakR)

## Global options
options(max.print="100", scipen = 999)
opts_chunk$set(echo=params$echo_type,
                 cache=TRUE,
               prompt=FALSE,
               tidy=FALSE,
               comment=NA,
               message=FALSE,
               warning=FALSE, 
               dev = params$image_type, 
               fig.height = 5, 
               fig.width = 8)

a = data.frame(unlist(as.vector(params))) %>%
  dplyr::rename("param" = "unlist.as.vector.params..")

a['path', 'param'] = paste("[", a['path', 'param'], "](<file://", a['path', 'param'], ">)", sep = "") %>%
  gsub(pattern = " ", replacement = "%20")

set.seed(params$seed)

Background

Session Info

file_name = paste("session_info", format(Sys.time(), format="%Y%m%d%H%M%S"), "txt", sep = ".")

sessioninfo::session_info(to_file = file.path(params$path, file_name))
session_info = paste0("[session_info.txt](<file://", file.path(params$path, file_name), ">)")