In ctsit/psofa: Calculate pSOFA score

knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = FALSE
)
library(tidyverse)
library(summarytools)
library(janitor)
library(htmltools)
library(here)

# identify cohort of interest. e.g picu/pcicu/nicu
cohort <- "picu"

{.tabset}

Child Encounter

child_encounter <- read_csv(here("data", cohort, "encounter.csv")) %>%
  clean_names()

includeHTML(view(dfSummary(child_encounter, graph.col = FALSE)))

Labs

labs <- read_csv(here("data", cohort, "labs.csv")) %>%
  clean_names() 

includeHTML(view(dfSummary(labs, graph.col = FALSE)))

Medications

medications <- read_csv(here("data", cohort, "medications.csv")) %>%
  clean_names()

includeHTML(view(dfSummary(medications, graph.col = FALSE)))

Flowsheets

flowsheets <- read_csv(here("data", cohort, "flowsheets.csv")) %>%
  clean_names()

includeHTML(view(dfSummary(flowsheets, graph.col = FALSE)))

ctsit/psofa documentation built on April 19, 2022, 1:32 a.m.