R Programming 수강생 여러분들께
Glasgow Coma Scale을 참고하거나 간단한 계산을 할 수 있는 단순한 패키지입니다. ( Minimum viable product )
설치는 다음과 같이 하면 됩니다.
install.packages("devtools")
devtools::install_github("shanmdphd/glasgowcoma")실행은 다음과 같이 하면 됩니다.
library(glasgowcoma)
glasgowComaScale| ID | Class | Score | Value |
|---|---|---|---|
| E1 | Eye | 1 | Does not open eyes |
| E2 | Eye | 2 | Opens eyes in response to painful stimuli |
| E3 | Eye | 3 | Opens eyes in response to voice |
| E4 | Eye | 4 | Opens eyes spontaneously |
| V1 | Verbal | 1 | Makes no sounds |
| V2 | Verbal | 2 | Incomprehensible sounds |
| V3 | Verbal | 3 | Utters incoherent words |
| V4 | Verbal | 4 | Confused disoriented |
| V5 | Verbal | 5 | Oriented converses normally |
| M1 | Motor | 1 | Makes no movements |
| M2 | Motor | 2 | Extension to painful stimuli (decerebrate response) |
| M3 | Motor | 3 | Abnormal flexion to painful stimuli (decorticate response) |
| M4 | Motor | 4 | Flexion / Withdrawal to painful stimuli |
| M5 | Motor | 5 | Localizes painful stimuli |
| M6 | Motor | 6 | Obeys commands |
reportgcs() # Defualt argument## [1] "GCS 15 = E4 V5 M6 at 2017-12-07 16:00:40 Normal or Minor brain injury suspected"
reportgcs(eye = 4, verbal = 4, motor = 4)## [1] "GCS 12 = E4 V4 M4 at 2017-12-07 16:00:40 Moderate brain injury suspected"
reportgcs(simplify = FALSE) # Full report## $summary
## [1] "GCS 15 = E4 V5 M6 at 2017-12-07 16:00:40"
##
## $analysis
## [1] "Normal or Minor brain injury suspected"
##
## $description
## ID Class Score Value
## 4 E4 Eye 4 Opens eyes spontaneously
## 9 V5 Verbal 5 Oriented converses normally
## 15 M6 Motor 6 Obeys commands
reportgcs(3, 3, 4, now = "2017-01-01 11:25", simplify = FALSE) # custom time## $summary
## [1] "GCS 10 = E3 V3 M4 at 2017-01-01 11:25"
##
## $analysis
## [1] "Moderate brain injury suspected"
##
## $description
## ID Class Score Value
## 3 E3 Eye 3 Opens eyes in response to voice
## 7 V3 Verbal 3 Utters incoherent words
## 13 M4 Motor 4 Flexion / Withdrawal to painful stimuli
reportgcs(verbal = 2.5) # Error## Error in reportgcs(verbal = 2.5): Only integer is acceptable.
reportgcs(verbal = "erlk") # Error## Error in reportgcs(verbal = "erlk"): Only integer is acceptable.
CLI에서 git clone https://github.com/shanmdphd/glasgowcoma.git 하거나 오른쪽 위의 초록색 버튼을 클릭해서 zip파일을 다운로드 한 뒤 압축을 풀고 소스를 수정 할 수 있습니다.
roxygen2 패키지를 사용하면 문서 작업을 쉽게 할 수 있습니다. 각 함수의 앞에 #' 으로 시작하는 주석을 각각 달고 다음의 함수를 실행하면 NAMESPACE와 Rd 파일을 자동으로 고쳐줍니다. 직접 Rd 파일을 수정하는 것보다 간소하다고 많은 사람들이 말하곤 합니다.
library(roxygen2)
roxygenize()