"Can't find function cat_trauma"

[brsinco]

R is giving me the error message, "Can't find function cat_trauma" when I to use cat_trauma.
Is there anything wrong with my R code below?

install.packages("devtools")
devtools::install_github("ablack3/icdpicr")
library(icdpicr)
help(package=icdpicr)

df9<-read.csv("HRS_Test_ICD9_To_R.csv", stringsAsFactors = FALSE)

df9_out<-cat_trauma(df9, dx_pre="dx", icd10 = FALSE)

[brsinco]

I found the solution. At the beginning of the program, only use library(icdpicr), but do not re-run install.packages("devtools") and
devtools::install_github("ablack3/icdpicr").

Please cancel my request for help. I have what I need.