data-raw/mif_comment_header.R

In pik-piam/quitte: Bits and pieces of code to use with quitte-style data frames

# Write some test data for .mif comment headers
library(tidyverse)
library(quitte)

f <- './inst/extdata/comment_header.mif'

set.seed(0)
quitte_example_data %>%
    slice_sample(n = 10) %>%
    write.mif(path = f, comment_header = c('foo: bar', 'fuzz: baz'))