R/export_idt.R

In dbrookeUAB/GeCKO: Access and edit gRNA sequences from the GeCKO Library

#' Export gRNA oligos for IDT 
#'
#' @param x 
#' @param file 
#' @param ... 
#'
#' @return
#' @export
#' @import data.table
#'
#' @examples
export_IDT <- function(x, file,...){
  require(data.table)
  tmp <- prep_idt(x)
  
  tmp <- data.table(Name = tmp$Name,Sequence =tmp$Sequence, Scale = "25nmS", Purifcation = "STD")
  if(grepl("\\.xlsx$",file)){
    fwrite(tmp,file = file,...)
  } else {
    stop("file name must end with .xlsx to use with the IDT batch upload", call. = FALSE)
  }
  
}