In jtrampush/npsych.data: BrainWorkup Neuropsychological Report Writing Package

patient <- rmarkdown::metadata$patient
patient <- "Biggie"

## load libraries
library(crosstalk)
library(dplyr)
library(gifski)
library(highcharter)
library(htmlwidgets)
library(knitr)
library(languageserver)
library(manipulateWidget)
library(revealjs)
library(svglite)
library(tibble)
library(vroom)
library(readr)
library(widgetframe)
library(xaringan)
library(xaringanExtra)
library(xaringanthemer)
library(tidyverse)
library(bwu)
## knitr options
options(htmltools.dir.version = FALSE)
knitr::opts_chunk$set(
  fig.path = "figs/",
  fig.width = 12,
  fig.height = 4,
  fig.asp = .5,
  fig.retina = 3,
  out.width = "100%",
  fig.showtext = TRUE,
  comment = NULL,
  cache = FALSE,
  cache.path = "cache/",
  echo = FALSE,
  message = FALSE,
  warning = FALSE,
  dev = c("svg", "svglite"),
  hiline = TRUE
)

neuropsych <-
  readr::read_csv(here::here("neuropsych.csv"), show_col_types = TRUE)
neurocog <-
  readr::read_csv(here::here("neurocog.csv"), show_col_types = TRUE) |>
  dplyr::filter(narrow != "Response Monitoring") |>
  dplyr::filter(narrow != "Recognition Memory")
neurobehav <-
  readr::read_csv(here::here("neurobehav.csv"), show_col_types = TRUE)
validity <-
  readr::read_csv(here::here("validity.csv"), show_col_types = TRUE)

name: title class: title-slide, center, middle background-image: url(src/img/logo_usc_ksom_black.jpg) background-position: bottom background-repeat: no-repeat background-size: 25% background-color: var(--usc-black)

r rmarkdown::metadata$title

r rmarkdown::metadata$patient

r rmarkdown::metadata$author

r rmarkdown::metadata$institute

r rmarkdown::metadata$date

---

name: gauss1 class: middle center background-size: contain

Distribution of Scores: Population-level Interpretation

knitr::include_graphics("src/img/plot_narrow.png", auto_pdf = TRUE)

---

class: left, middle, right top background-color: var(--near-black) class: background background-image: url(src/img/logo_usc_ksom_black.jpg) background-position: right top background-repeat: repeat background-size: 15% background-color: var(--usc-black)

Neurocognitive Evaluation

Summary of neuropsychological testing results

# if using single theme
theme <- highcharter::hc_theme_sandsignika()
# if merging themes
theme_merge <-
  highcharter::hc_theme_merge(
    highcharter::hc_theme_monokai(),
    highcharter::hc_theme_darkunica()
  )

data <- neurocog
neuro_domain <- "Neuropsychological Test Scores"
theme <- theme_merge
plot1 <-
  bwu::drilldown(
    data = data,
    patient = patient,
    neuro_domain = neuro_domain,
    theme = theme
  )
plot1

data <- neurocog
neuro_domain <- "Neuropsychological Test Scores"
theme <- theme_merge
plot1 <-
  bwu::drilldown(
    data = data,
    patient = patient,
    neuro_domain = neuro_domain,
    theme = theme
  )
plot1

---

class: left, middle, right top background-color: var(--near-black) class: background background-image: url(src/img/logo_usc_ksom_black.jpg) background-position: right top background-repeat: repeat background-size: 15% background-color: var(--usc-black)

Behavioral/Emotional/Personality Functioning

Summary of self-report and observer-report scales from the BASC-3 and CEFI

data <- neurobehav
neuro_domain <- "Behavioral Rating Scales"
theme <- theme_merge
plot2 <-
  bwu::drilldown(
    data = data,
    patient = patient,
    neuro_domain = neuro_domain,
    theme = theme
  )
plot2

---

class: left, middle, right top background-color: var(--near-black) class: background background-image: url(src/img/logo_usc_ksom_black.jpg) background-position: right top background-repeat: repeat background-size: 15% background-color: var(--usc-black)

Effort/Validity Testing

Summary of cognitive performance validity and ratings of symptom validity

data <- validity
neuro_domain <- "Effort/Validity Test Scores"
theme <- theme_merge
plot3 <-
  bwu::drilldown(
    data = data,
    patient = patient,
    neuro_domain = neuro_domain,
    theme = theme
  )
plot3

jtrampush/npsych.data documentation built on Feb. 25, 2025, 12:30 a.m.