R/scatter.R

In GOUYONGCHAO/g2plot: R Plot for antv g2plot

#' Scatter plot
#' @param gWidget
#'
#' @param mapping
#' @param width
#' @param height
#'
#'@export scatter
scatter <- function(
    gWidget
    ,width=NULL
    ,height=NULL
    ,shape=NULL
) {
gWidget$width<-width
gWidget$height<-height
gWidget$x$attrs$plotType<-'scatter'
style<-list()
#shape default "circle"
if(is.null(shape)){style$shape<-'circle'}
else{
  if(!shape %in% c( 'circle',
                   'square',
                   'bowtie',
                   'diamond',
                   'hexagon',
                   'triangle',
                   'triangle-down',
                   'hollow-circle',
                   'hollow-square',
                   'hollow-bowtie',
                   'hollow-diamond',
                   'hollow-hexagon',
                   'hollow-triangle',
                   'hollow-triangle-down',
                   'cross',
                   'tick',
                   'plus',
                   'hyphen','line')){
  stop("shape is not support")}
  else{style$shape<-shape}
}
gWidget$x$style <- mergeLists(gWidget$x$style, style)
sizingPolicy <-htmlwidgets::sizingPolicy(viewer.padding = 10, browser.fill = TRUE)
attr(gWidget,"class")<-c("scatter",if (sizingPolicy$viewer$suppress) "suppress_viewer","htmlwidget")
gWidget
}