In Lightbridge-KS/labChartHRV: LabChart's HRV Data Import and Manipulation

knitr::opts_knit$set(root.dir = rprojroot::find_rstudio_root_file()) # Set WD to Root
here::i_am("dev/hrv-wf-raw.Rmd")
library(here)
library(tidyverse)

Read HRV Report file

Using readtext::readtext(), Must read with UTF-16LE encoding

hrv_sim_raw <- readtext::readtext(sipsANS_example("HRV"), encoding = "UTF-16LE")
typeof(hrv_sim_raw)
class(hrv_sim_raw)
hrv_sim_raw

See text as character vector

hrv_sim_raw$text[1]

This would fail

readLines(here("my_data/HRV-sim/File1.txt"), encoding = "UTF-16LE")

readr::read_lines(here("my_data/HRV-sim/File1.txt"))
readr::read_file(here("my_data/HRV-sim/File1.txt"))

Process

• Turn to tibble
• Extract fields

hrv_sim_raw %>% 
  tibble::tibble() %>% 
  pull(text)

Lightbridge-KS/labChartHRV documentation built on June 12, 2022, 3:21 p.m.