1234567891011 |
- library(readxl)
- RAKETE_TOR <- read_excel("data/170202 RAKETE 16 11336 TOR xlsx.xlsx",
- skip = 1)
- RAKETE_TOR$`Incident Time` <- sapply(strsplit(as.character(RAKETE_TOR$`Incident Time`), ' '), function(x) {
- x[2]
- })
-
- RAKETE_TOR$`Incident Day` <- as.numeric(substr(RAKETE_TOR$`Incident ID`, 5, 6))
-
- RAKETE_TOR$TimeStamp <- as.POSIXct(sprintf("%d-%d-%d %s", RAKETE_TOR$Year, RAKETE_TOR$Month,
- RAKETE_TOR$`Incident Day`, RAKETE_TOR$`Incident Time`))
|