knitr::opts_chunk$set(echo = TRUE)

library(transducer)
library(data.table)
library(readxl)
library(ggplot2)

File types supported (alphabetical order):

If you would like an additional file type supported please let me know.

Diver

fn <- list.files('/media/jonathankennel/Seagate Expansion Drive/guelph_south', full.names = TRUE)
table(tools::file_ext(fn))

dat <- read_transducer(fn[tools::file_ext(fn) == 'MON'], n_cores = 14)

dat <- downsample_data(dat, 3600)
dat <- subset_time_interval(dat, start = as.POSIXct('2020-03-26', tz = 'UTC'))
dat <- trim_downloads(dat, n_vals = 2)
dat <- combine_files(dat)


plt <- dat[parameter != 'temperature']
plt <- plt[, rbindlist(data), by = list(serial)]

p <- ggplot(plt, aes(x = datetime, y = value))
p <- p + geom_line()
p <- p + facet_wrap(serial~., scales = 'free_y')
p <- p + theme_bw()
p

# fn <- list.files('/home/jonathankennel/Storage/data/diver/mon', full.names = TRUE)
# dat <- read_transducer(fn, n_cores = 14)

Levelogger

fn <- list.files('/home/jonathankennel/Storage/data/levelogger/lev', full.names = TRUE)
dat <- read_transducer(fn)

# need a faster xle parser
fn <- list.files('/home/jonathankennel/Storage/data/levelogger/xle', full.names = TRUE)
dat <- read_transducer(fn, n_cores = 14)

Micron

fn <- list.files('/home/jonathankennel/Storage/data/micron/xlsx', full.names = TRUE)
dat <- read_transducer(fn)

Westbay

Currently, no support is provided for the binary .wd2 files which requires the user to output the files to a csv prior to import into R.

fn <- list.files('/home/jonathankennel/Storage/data/westbay/mosdax', full.names = TRUE)

dat <- read_transducer(fn, n_cores = 8)
names(dat)

RBR

fn <- list.files('/media/jonathankennel/Seagate Expansion Drive/rbr_ssfl', full.names = TRUE)[1:8]

system.time(dat <- read_transducer(fn, n_cores = 8))

Tips



jkennel/transducer documentation built on Feb. 1, 2024, 9:45 a.m.