README.md

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

traumaR

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

Installation

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")

id trauma\_number date\_of\_birth age\_in\_yrs sex race patient\_county zip\_code payor\_class\_primary pay\_cat1\_o primary\_injury\_type injury\_dt injury\_tm\_s cause\_of\_injury\_e\_code place\_of\_injury fall\_height was\_the\_patient\_extricated scene\_gcs\_eye scene\_gcs\_verbal scene\_gcs\_motor transport\_gcs\_eye transport\_gcs\_verbal transport\_gcs\_motor interhospital\_transport\_gcs\_eye interhospital\_transport\_gcs\_verbal interhospital\_transport\_gcs\_motor referring\_facility\_gcs\_eye referring\_facility\_gcs\_verbal referring\_facility\_gcs\_motor admission\_gcs\_eye admission\_gcs\_verbal admission\_gcs\_motor fasciotomy\_dt fasciotomy\_time fasciotomy\_loc fasciotomy\_cd fasciotomy\_desc forearm\_fx\_dt forearm\_fx\_time forearm\_fx\_loc forearm\_fx\_cd forearm\_fx\_desc code\_cd\_complication code\_cd\_diagnosis code\_cd\_procedure code\_desc\_complication code\_desc\_diagnosis code\_desc\_procedure fltr\_diagnosis fltr\_procedure fltr\_complication fltr\_fasciotomy 0123198320000011 20000011 01/23/1983 16 MALE Black Delaware 19373 Commercial Insurer Indemnity PRISON HEALTH C25 Blunt 01/23/1983 NA Fight/Brawl/Rape - Unarmed Fight or Brawl Residential Institution Unknown NO Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Oriented Obeys Command NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA FALSE FALSE FALSE FALSE 0208197920000001 20000001 02/08/1979 20 MALE White Unknown NA Commercial Insurer Indemnity NA Blunt 02/08/1979 NA Oth MVA Traffic, Highway Collision - Driver of MV, Non MC Street/Highway Unknown NO Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Oriented Obeys Command NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA FALSE FALSE FALSE FALSE 0527195820000003 20000003 05/27/1958 41 MALE White Unknown 18914 Commercial Insurer Indemnity NA Blunt 05/27/1958 NA Oth MVA Traffic, Highway Collision - Driver of MV, Non MC Street/Highway Unknown UNK Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Oriented Obeys Command NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA FALSE FALSE FALSE FALSE 031219782000018 2000018 03/12/1978 21 FEMALE White Allegheny 15025 Commercial Insurer Indemnity NA Blunt 03/12/1978 03:00 MVA Traffic, Loss Control-No Collision - Driver of MV, Non MC Street/Highway Unknown NO Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown None Incomprehensible Sounds Withdraws NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA FALSE FALSE FALSE FALSE 1104196520000006 20000006 11/04/1965 34 MALE White Lawrence 16112 Self Pay NA Blunt 11/04/1965 00:01 MVA Traffic, Collision w/ Pedestrian - Pedestrian Street/Highway Unknown NO Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Oriented Obeys Command NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA FALSE FALSE FALSE FALSE 1016197220000017 20000017 10/16/1972 27 MALE White Allegheny 15601 Self Pay NA Blunt 10/16/1972 23:30 Suicide/Self Injury - Oth Spec Means Public Building Unknown NO Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown None None None NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA FALSE FALSE FALSE FALSE 0903192820000007 20000007 09/03/1928 71 FEMALE Black Philadelphia 19096 Medicare Indemnity Medicare Blunt 09/03/1928 NA Fall on Same Level - Other Home Unknown NO Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Confused Localizes pain NA NA NA NA NA 01/02/2000 13:49 OR 79.32 Op red-int fix rad/ulna NA NA NA NA NA NA FALSE FALSE FALSE FALSE 0401197920000008 20000008 04/01/1979 20 MALE White Philadelphia 19036 Commercial Insurer Indemnity Elect & Mgt Choice Blunt 04/01/1979 NA MVA Traffic, Collision w/ Pedestrian - Pedestrian Street/Highway Unknown NO Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Oriented Obeys Command NA NA NA NA NA 01/02/2000 18:31 OR 79.32 Op red-int fix rad/ulna NA NA NA NA NA NA FALSE FALSE FALSE FALSE 0816196020000001 20000001 08/16/1960 39 FEMALE White York 17313 Commercial Insurer Indemnity ———————- Blunt 08/16/1960 20:02 Striking Against/Struck Accidentally - Oth w/ or w/o Subseq Fall Home Unknown NO Spontaneous Oriented Obeys Command Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Oriented Obeys Command NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA FALSE FALSE FALSE FALSE 0407197520000005 20000005 04/07/1975 24 MALE White York 17370 Commercial Insurer Indemnity NA Blunt 04/07/1975 01:06 Oth MVA Traffic, Collision w/ MV - Motorcyclist Street/Highway Unknown NO To Voice Oriented Obeys Command Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Unknown Spontaneous Oriented Obeys Command NA NA NA NA NA 01/01/2000 04:25 OR 79.32 Op red-int fix rad/ulna NA NA NA NA NA NA FALSE FALSE FALSE FALSE

Example of Procedures, Diagnosis & Complications Dataframe

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

id date time loc\_desc code\_cd code\_desc data\_source 0101188020001731 10/23/2000 10:04 ED 88.76 Dx ultrasound-abdomen procedure 0101188020001731 10/23/2000 10:15 ED 87.03 C.A.T. scan of head procedure 0101188020001731 10/23/2000 10:30 ED 88.01 C.A.T. scan of abdomen procedure 0101188020001731 NA NA Diagnosis 850.1 Concussion - brief loss of consciousness diagnosis 0101188020001731 NA NA Diagnosis NA NA diagnosis 0101188020001731 NA NA Diagnosis 825 Fracture calcaneus-close diagnosis 0101190020000939 08/11/2000 22:59 ED 96.04 Insert endotracheal tube procedure 0101190020000939 08/11/2000 23:00 ED 99.6 Cardiopulm resuscita NOS procedure 0101190020000939 08/11/2000 23:00 ED 99.62 Heart countershock NEC procedure 0101190020000939 NA NA Diagnosis 874.8 Open wound of neck NEC diagnosis

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