gerkovink / dessert Goto Github PK

# (1) function users call 
dessert <- function (input, p1, p2, ...) {
  # (2) initiate the dessert object 
  dessert <- Dessert$new(input, p1, ...)

  # (7) apply render method
  dessert$render(p2, ...)

  return(dessert)
}

Dessert <- R6::R6Class(
  name = "Dessert",
  # (3) run initiate method
  initialize = function(input, p, ...) {
    # (4) call class function 
    do.call(dessert.class, ...)
  },
  # (8) run render method
  render = function(p, ...) {
    # (9) store input and markdown parameters in a rdata object
    save(recipe.rdata) 
    quarto::quarto_render(self, ...)
  }
)

# (5) say data.frame class was called
dessert.data.frame <- function(self, ...) {
  # (6) now additional parameters given via an ellipsis
  extra_parameters <- list(...)
  return(self)
}

title: "Example Recipe"
param:
  optional_parameter: 123,
  required_parameter

quarto::quarto_render(self, params = list(optional_parameter = 456, required_parameter = FALSE))

library(mice)
library(dplyr)
library(magrittr)
# missingness over columns
apply(data, 2, function(x) sum(is.na(x)))
# create missing data pattern plot
data %>% 
  md.pattern()
# Some text that discusses the use and interpretation of the pattern
# Some text that discusses the use and interpretation of the pattern
# Some text that discusses the use and interpretation of the pattern
# investigate bivariate data structure
data %>% 
  cor(use = "pairwise.complete.obs")
# investigate missingness relations
# Some text that discusses the use and interpretation of the relations
# Some text that discusses the use and interpretation of the relations
# Some text that discusses the use and interpretation of the relations
data %>% 
  dep.pattern()
# Some text that discusses the use and interpretation of the pattern
# Some text that discusses the use and interpretation of the pattern
# Some text that discusses the use and interpretation of the pattern
# create predictor matrix
data %>% 
  pred
# Some text that discusses the use and interpretation of the predictor matrix
# Some text that discusses the use and interpretation of the predictor matrix
# Some text that discusses the use and interpretation of the predictor matrix