Record Blood Pressure

> bp <- read.csv("~/bp.csv")
# when the format is as below.

> bp
        Date  Time High Low Pulse
1 2018-01-01  8:30  138 101    70
2 2018-01-01 23:30   90  47    NA
3 2018-01-02 10:15  158 107    NA
4 2018-01-02 23:15  145  85    NA
5 2018-01-03  9:30  153 110    NA
6 2018-01-03 23:30  141  90    NA

#concatenate Data and Time column and convert to POSIX format.

> paste(bp$Date,bp$Time,sep=" ")
[1] "2018-01-01 8:30"  "2018-01-01 23:30" "2018-01-02 10:15" "2018-01-02 23:15" "2018-01-03 9:30"
[6] "2018-01-03 23:30"
> as.POSIXct(paste(bp$Date,bp$Time,sep=" "))
[1] "2018-01-01 08:30:00 JST" "2018-01-01 23:30:00 JST" "2018-01-02 10:15:00 JST" "2018-01-02 23:15:00 JST"
[5] "2018-01-03 09:30:00 JST" "2018-01-03 23:30:00 JST"

# merge POSIX format date/time sequence and Data part of CSV

> xts(bp[,c(-1,-2)],as.POSIXct(paste(bp$Date,bp$Time,sep=" ")))
                    High Low Pulse
2018-01-01 08:30:00  138 101    70
2018-01-01 23:30:00   90  47    NA
2018-01-02 10:15:00  158 107    NA
2018-01-02 23:15:00  145  85    NA
2018-01-03 09:30:00  153 110    NA
2018-01-03 23:30:00  141  90    NA