Skip to content

Instantly share code, notes, and snippets.

Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
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}"),
## 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
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.