In ultramattyice/traumaR: This package was created to manipulate the Pennsylvania Trauma Outcome System (PTOS) data.

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

library(badger)

traumaR

r badge_lifecycle(stage = "experimental", color = NULL)

The goal of traumaR is to provide users with human friendly results in a normalized format.

Installation

You can install the released version of traumaR from CRAN with:

install.packages("traumaR")

And the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("ultramattyice/traumaR")

Example

This is a basic example which shows you how to solve a common problem:

library(traumaR)
library(kableExtra)

raw_data <- data.table::fread("E:/Northwestern/12 - Capstone/PTOS_Toy.csv", na.strings = c("<unk>", "", "<n/a>"))

traumaR::run_full_show(raw_data)

Example of Patient Data Output

patient_df %>% 
  head(10) %>% 
  kable() %>% 
  kable_styling() %>% 
  scroll_box(width = "300px", height = "100px")

Example of Procedures, Diagnosis & Complications Dataframe

trans_full_df %>%  
  head(10) %>% 
  kable() %>% 
  kable_styling() %>% 
  scroll_box(width = "100%", height = "100px")

ultramattyice/traumaR documentation built on June 11, 2020, 2:22 p.m.