## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(
  echo = TRUE,
  collapse = TRUE,
  eval = TRUE,
  comment = "#>",
  warning = FALSE,
  message = FALSE
)

## ----eval=FALSE---------------------------------------------------------------
# prepare_boxly <- function(meta,
#                           hover_var_outlier = c("USUBJID", metalite::collect_adam_mapping(meta, analysis)$y)
#                           ...
# 
# )

## ----eval=FALSE---------------------------------------------------------------
# boxly <- function(outdata,
#                   hover_summary_var = c("n", "min", "q1", "median", "mean", "q3", "max"),
#                   hover_outlier_label = c("Participant ID", "Parameter value"),
#                   ...
# 
# )

## -----------------------------------------------------------------------------
library(boxly)

## -----------------------------------------------------------------------------
meta <- meta_boxly(
  boxly_adsl,
  boxly_adlb,
  population_term = "apat",
  observation_term = "wk12",
  observation_subset = AVISITN <= 12 & !is.na(CHG)
)

## -----------------------------------------------------------------------------
outdata <- prepare_boxly(
  meta,
  hover_var_outlier = c(
    "USUBJID",
    metalite::collect_adam_mapping(meta, meta$plan$analysis)$y,
    "BASE",
    "ADT"
  )
)

## -----------------------------------------------------------------------------
boxly(
  outdata,
  hover_outlier_label = c(
    "Participant ID",
    "Parameter value",
    "Base Value",
    "Analysis Date"
  )
)

## -----------------------------------------------------------------------------
meta_boxly(
  boxly_adsl,
  boxly_advs,
  population_term = "apat",
  observation_term = "wk12",
  observation_subset = AVISITN <= 12 & !is.na(CHG)
)

## -----------------------------------------------------------------------------
outdata <- prepare_boxly(meta)

## -----------------------------------------------------------------------------
boxly(outdata,
      hover_summary_var = c("n", "q1", "median", "mean", "q3"))

## -----------------------------------------------------------------------------
meta_boxly(
  boxly_adsl,
  boxly_adeg,
  population_term = "apat",
  observation_term = "wk12",
  observation_subset = AVISITN <= 12 & !is.na(CHG)
)

## -----------------------------------------------------------------------------
outdata <- prepare_boxly(
  meta,
  hover_var_outlier = c(
    "USUBJID",
    metalite::collect_adam_mapping(meta, meta$plan$analysis)$y,
    "BASE",
    "ADT",
    "AVAL"
  )
)

## -----------------------------------------------------------------------------
boxly(
  outdata,
  hover_summary_var = c("n", "q1", "median", "mean", "q3"),
  hover_outlier_label = c(
    "Participant ID",
    "Parameter value",
    "Base Value",
    "Analysis Date",
    "Analysis Value"
  )
)