Rafnuss

Rafnuss

Rafnuss

Rafnuss

Rafnuss

library(readxl)
library(yaml)
library(tidyverse)
library(glue)

# Read CSV
read_xlsx("data/gpr_settings.xlsx") %>% 
  transmute(
    null = glue("{gdl_id}:"),
    id = glue("{gdl_id}"),

Rafnuss

## Script to convert tag label from v2 to v3

# List files in "data/1_pressure/labels/" with extension "-labeled.csv"
files <- list.files(path = "data/1_pressure/labels/", pattern = "-labeled\\.csv$", full.names = TRUE)
print(files)

# Just testing with the third file (for demonstration purposes)
# file <- files[3]

# Variable to decide whether to keep acceleration data or not

Rafnuss

Rafnuss

Rafnuss

Rafnuss