Skip to contents

A script to retrieve locally available seq_done files & remove these sequences from the agouti_imager_seq_done googlesheet.

Usage

depopulate_agouti_imager_seq_done(
  dir = NULL,
  seqID = NULL,
  email = Sys.getenv("email"),
  sheet_id = "1PcqJziXm-ZNbCi2JJliQH_FQY8YMPXNEGgYwiiP2Ws8"
)

Arguments

dir

a character string specifying the directory to look for seq_done.csv

seqID

a character list of sequences to delete

email

a character specifying your email used to authenticate googlesheet

sheet_id

the character string of the agouti_imager_seq_done googlesheet

Details

If both dir and seqID are provided the function will only add the seqIDs.

Examples

if (FALSE) { # \dontrun{

seqID <- c("f9cfa2ac-36a5-45e0-bd84-2b3a5a234ee6",
"793b5057-90b3-47db-b400-96b2b31c9b59",
"53075b53-dd7b-41b0-b778-394f28e16268",
 "560c8d87-ec9a-43f2-adb9-d96a09f589ef",
  "7b2d6285-34af-4bd3-b9f9-40022a267ad8")

depopulate_agouti_imager_seq_done(seqID = seqID)
} # }