Nothing
#' Create fake gene sequences
#'
#' @export
#' @template params
#' @param length (integer) length of sequence to create
#' @seealso [SequenceProvider]
#' @examples
#' ch_gene_sequence()
#' ch_gene_sequence(10)
#' ch_gene_sequence(100)
#'
#' ch_gene_sequence(length = 500)
#' ch_gene_sequence(10, length = 500)
ch_gene_sequence <- function(n = 1, length = 30) {
assert(n, c("integer", "numeric"))
assert(length, c("integer", "numeric"))
if (n == 1) {
SequenceProvider$new()$render(length)
} else {
x <- SequenceProvider$new()
replicate(n, x$render(length))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.