add examples

#' @rdname set_style

#' @author Hou Yun

#' @export

#' @examples

#' ## use corrplot style

#' set_corrplot_style()

#' qcorrplot(mtcars) + geom_shaping(marker = "circle")

#' ## use custom colour palee

#' set_corrplot_style(colours = c("red", "white", "blue"))

#' qcorrplot(mtcars) + geom_shaping(marker = "circle")

print.hyplot <- function(x, ...) {

  if (inherits(x$data, "cor_md_tbl") &&

      !is.null(getOption("linkET.corrplot.style")) &&

\description{

Set default color pallete for \code{\link{qcorrplot}}.

}

\examples{

## use corrplot style

set_corrplot_style()

qcorrplot(mtcars) + geom_shaping(marker = "circle")

## use custom colour palee

set_corrplot_style(colours = c("red", "white", "blue"))

qcorrplot(mtcars) + geom_shaping(marker = "circle")

}

\author{

Hou Yun

}