Commit 8fc96820 authored by houyun's avatar houyun
Browse files

WIP: can reset by users

parent 0cf3f7b7

R/experimental-fun.R

+4 −3
Original line number Diff line number Diff line
@@ -267,10 +267,11 @@ register_pairs_plot <- function(..., 
                 "jitter" = ggplot2::geom_jitter(),

                 "corr" = geom_corr())

  if (isTRUE(reset)) {

    options("linkET.pairs.plot" = layers)

    return(invisible(NULL))

  }

    gl <- list()

  } else {

    gl <- options("linkET.pairs.plot")$linkET.pairs.plot

  }



  layers <- utils::modifyList(gl, utils::modifyList(layers, list(...)))



  if (!is.list(scale)) {

CRA Git | Maintained and supported by SUSTech CRA and CCSE