Functions names changed.

YoannPa · Aug 31, 2021 · 697708d · 697708d
1 parent e91f35f
commit 697708d
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 17 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: NCBI.BLAST2DT
 Type: Package
 Title: Submit DNA sequences to NCBI BLAST and get results in an R data.table.
-Version: 0.0.17
+Version: 0.0.18
 Authors@R: 
     person(given = "Yoann",
            family = "Pageaud",

diff --git a/NAMESPACE b/NAMESPACE
@@ -1,9 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
-S3method(split,queries)
-S3method(split,queries.df)
 export(NCBI_BLAST_XML2DT)
 export(aggregate_NCBI_BLAST_XMLs2DT)
 export(get.NCBI.BLAST2DT)
 export(prepare.gb.access)
+export(split_queries)
+export(split_queries.df)
 export(submit_NCBI_BLAST)
diff --git a/R/submit_NCBI_BLAST_request.R b/R/submit_NCBI_BLAST_request.R
@@ -64,11 +64,11 @@ prepare.gb.access <- function(GBaccess.bed, ncores = 1){
 #' @export
 #' @examples
 #' #Using an example data.frame of 1 Genbank ID
-#' split.queries.df(
+#' split_queries.df(
 #'   df = data.frame("GB.access" = "AC073318", "Start" = 71401, "End" = 120576),
 #'   by = 7025)
 
-split.queries.df <- function(df, by = 7000){
+split_queries.df <- function(df, by = 7000){
   ls.dt <- lapply(X = seq(nrow(df)), FUN = function(i){
     #Compute breaks
     brks <- seq(from = df[i, 2], to = df[i, 3], by = by)
@@ -105,17 +105,17 @@ split.queries.df <- function(df, by = 7000){
 #' @export
 #' @examples
 #' #Using an example data.frame of 1 Genbank ID
-#' ls.seq <- split.queries(
+#' ls.seq <- split_queries(
 #'   x = data.frame("GB.access" = "AC073318", "Start" = 71401, "End" = 120576),
 #'   by = 7025)
 #' #Using an example list of DNA sequences
 #' ls.seq <- list(
 #'   "7qtel" = "CCCTAACACTGTTAGGGTTATTATGTTGACTGTTCTCATTGCTGTCTTAG",
 #'   "1ptel" = "GATCCTTGAAGCGCCCCCAAGGGCATCTTCTCAAAGTTGGATGTGTGCAT",
 #'   "17qtel" = "CCCTAACCCTAAACCCTAGCCCTAGCCCTAGCCCTAGCCCTAGCCCTAGC")
-#' ls.seq <- split.queries(x = ls.seq, by = 10)
+#' ls.seq <- split_queries(x = ls.seq, by = 10)
 
-split.queries <- function(x = x, by = 7000, ncores = 1){
+split_queries <- function(x = x, by = 7000, ncores = 1){
   if(is.data.frame(x)){
     dt.res <- split.queries.df(df = x, by = by)
     #Convert to list of sequences

diff --git a/man/split.queries.Rd → man/split_queries.Rd b/man/split.queries.Rd → man/split_queries.Rd
diff --git a/man/split.queries.df.Rd → man/split_queries.df.Rd b/man/split.queries.df.Rd → man/split_queries.df.Rd