R/write_nanodrop.R

In KaiAragaki/ragaki: Reduce Annoyances

write_nanodrop <- function(nanodrop, destination, file_name = NULL, slug = NULL, raw = FALSE) {

  if (is.null(file_name)) {
    file_name <- glue::glue_collapse(c(as.character(nanodrop$date), nanodrop$nucleotide, slug), sep = "_")
  } else {
    file_name <- glue::glue_collapse(c(file_name, slug))
  }

  data <- if(raw) nanodrop$raw_data else nanodrop$data

  out <- fs::path(destination, file_name, ext = "tsv")

  readr::write_tsv(data, out)

  out
}