Loading R/chaos_color.R→R/c.color.R +4 −4 Original line number Diff line number Diff line chaos_color <- function( c.color <- function( ){ c( "#E64B35", ## "Cinnabar" Loading @@ -14,11 +14,11 @@ chaos_color <- function( ) } scale_fill_chao <- function( scale_fill_chaos <- function( n ){ scale_fill_manual( values = colorRampPalette(chaos_color())(n) values = colorRampPalette(c.color())(n) ) } Loading @@ -26,6 +26,6 @@ scale_color_chao <- function( n ){ scale_color_manual( values = colorRampPalette(chaos_color())(n) values = colorRampPalette(c.color())(n) ) } No newline at end of file R/comb.R→R/c.comb.R +3 −3 Original line number Diff line number Diff line dt_comb <- function( c.comb_dt <- function( ..., rep = NA, inter = "full" Loading Loading @@ -64,13 +64,13 @@ dt_comb <- function( } } str_comb <- function( c.comb_str <- function( ..., rep = NA, inter = "full", sep = "_" ){ dt_comb( c.comb_dt( ..., rep = rep, inter = inter Loading R/chaos_merge.R→R/c.merge.R +2 −2 Original line number Diff line number Diff line chaos_merge <- function( c.merge <- function( .data, bedtools_path = NA, c = 4, Loading Loading @@ -38,7 +38,7 @@ chaos_merge <- function( ## It would be faster when the output of bedtools were writen to files, ## however it would generate too much small files chaos_merge2 <- function( c.merge2 <- function( .data, label = TRUE, collapse = "," Loading R/chaos_tmp.R→R/c.random.R +1 −1 Original line number Diff line number Diff line chaos_tmp <- function( c.random <- function( n = 15, type = "default", sep = "", Loading R/revseq.R→R/c.revseq.R +1 −1 Original line number Diff line number Diff line revseq <- function( c.revseq <- function( seq ){ seq |> Loading Loading
R/chaos_color.R→R/c.color.R +4 −4 Original line number Diff line number Diff line chaos_color <- function( c.color <- function( ){ c( "#E64B35", ## "Cinnabar" Loading @@ -14,11 +14,11 @@ chaos_color <- function( ) } scale_fill_chao <- function( scale_fill_chaos <- function( n ){ scale_fill_manual( values = colorRampPalette(chaos_color())(n) values = colorRampPalette(c.color())(n) ) } Loading @@ -26,6 +26,6 @@ scale_color_chao <- function( n ){ scale_color_manual( values = colorRampPalette(chaos_color())(n) values = colorRampPalette(c.color())(n) ) } No newline at end of file
R/comb.R→R/c.comb.R +3 −3 Original line number Diff line number Diff line dt_comb <- function( c.comb_dt <- function( ..., rep = NA, inter = "full" Loading Loading @@ -64,13 +64,13 @@ dt_comb <- function( } } str_comb <- function( c.comb_str <- function( ..., rep = NA, inter = "full", sep = "_" ){ dt_comb( c.comb_dt( ..., rep = rep, inter = inter Loading
R/chaos_merge.R→R/c.merge.R +2 −2 Original line number Diff line number Diff line chaos_merge <- function( c.merge <- function( .data, bedtools_path = NA, c = 4, Loading Loading @@ -38,7 +38,7 @@ chaos_merge <- function( ## It would be faster when the output of bedtools were writen to files, ## however it would generate too much small files chaos_merge2 <- function( c.merge2 <- function( .data, label = TRUE, collapse = "," Loading
R/chaos_tmp.R→R/c.random.R +1 −1 Original line number Diff line number Diff line chaos_tmp <- function( c.random <- function( n = 15, type = "default", sep = "", Loading
R/revseq.R→R/c.revseq.R +1 −1 Original line number Diff line number Diff line revseq <- function( c.revseq <- function( seq ){ seq |> Loading
