testthat::test_that("Stats per random dataframes works", {

Error in `file(file, ifelse(append, "a", "w"), encoding = fileEncoding)`: cannot open the connection

test_with_dir("Saving rds files works", {
test_with_dir("Saving rda files works", {
test_with_dir("Saving tsv files works", {
test_with_dir("Saving csv files works", {
test_with_dir("Loading rds files works", {
test_with_dir("Loading rda files works", {
test_with_dir("Loading tsv files works", {
test_with_dir("Loading csv files works", {
test_with_dir("Saving and loading abundance works", {
TAD:::save_abundance_dataframe(path = file, object = abd_df)
TAD:::save_abundance_dataframe(path = "/tmp/ab.csv", object = abd_df)
test_with_dir("Saving and loading weighted moments works", {
TAD:::save_weighted_moments(path = file, object = abd_df)
test_with_dir("Saving and loading statistics per obs works", {
TAD:::save_statistics_per_obs(path = file, object = abd_df)
test_with_dir("Saving and loading statistics_per_random works", {
TAD:::save_statistics_per_random(path = file, object = abd_df)
test_with_dir("Saving and loading stat_skr_param works", {
TAD:::save_stat_skr_param(path = file, object = abd_df)

"Saving and loading weighted moments works"
"Saving and loading statistics per obs works"
"Saving and loading statistics_per_random works"
"Saving and loading stat_skr_param works"