analyses/test.R

In UBESP-DCTV/iobed.bed: IOBED functions for bed's raw-signals managment at UBEP

library(iobed.bed)

# At the beginning of the simulation
serial::listPorts()
con <- bed_connection("COM3")
open(con)

# At the end of the simulation
stream <- pull_bed_stream(con)
stream_table <- tidy_iobed_stream(stream)
serial::isOpen(con)
rm(con)

# Store the resulting table
today_now <- Sys.time()
patient_id <- "1234"
filename <- paste0(today_now, "-", patient_id, "-iobed.rds")

readr::write_rds(stream_table, filename)