>require(flipStandardCharts)

Loading required package: flipStandardCharts

>dat <- NULL

>if (!exists("formDataType") || formDataType == "Use an existing table" || formDataType == "Use multiple existing tables")
    dat <- formTable

>if (exists("formEnteredData"))
    dat <- flipTransformations::ParseEnteredData(formEnteredData)

>

>chart.type <- formType

>if (formType == "Scatterplot" && exists("formShowLab") && formShowLab)
    chart.type <- "Labeled Scatterplot"

>if (formType == "Scatterplot" && exists("formVLabels") && !is.null(formVLabels))
    chart.type <- "Labeled Scatterplot"

>if (formType == "Scatterplot" && exists("formDataType") && formDataType == "Use multiple existing tables")
    chart.type <- "Labeled Scatterplot"

>

>if (formType == "Scatterplot" && formDataType == "Variables")
{
    var.labels <- NULL
    if (exists("formVHover") && !is.null(formVHover))
    {
       var.labels <- formVHover
    } else
    var.labels <- formVLabels
    print(str(var.labels))
}

 NULL
NULL

>

>chart <- Chart(y = if (exists("formMultiplyBy100") && formMultiplyBy100) 100 * dat else dat,
    type = chart.type,
    weights = QPopulationWeight,
    subset = QFilter,
    transpose = if (exists("formTranspose")) formTranspose else FALSE,
    title = formTitle,
    title.font.family = NULL,
    title.font.color = NULL,
    title.font.size = formTitleFontSize,
    subtitle = if (exists("formSubtitle")) formSubtitle else "",
    subtitle.font.size = formSubtitleFontSize,
    footer = if (exists("formFooter")) formFooter else "",
    footer.font.size = if (exists("formFooterFontSize")) formFooterFontSize else 8,
    footer.wordwrap = if (exists("formFooterWordwrap")) formFooterWordwrap else FALSE,
    footer.wordwrap.nchar = formFooterWrapNchar,
    colors = formPalette,
    colors.custom.color = if (exists("formCustomColor")) formCustomColor else NA,
    colors.custom.gradient.start = if (exists("formCustomGradientStart")) formCustomGradientStart else NA,
    colors.custom.gradient.end = if (exists("formCustomGradientEnd")) formCustomGradientEnd else NA,
    colors.custom.palette = if (exists("formCustomPalette")) formCustomPalette else NA,          
    colors.reverse = FALSE,
    opacity = NULL,
    background.fill.color = rgb(255, 255, 255, maxColorValue = 255),
    background.fill.opacity = 0,
    charting.area.fill.color = rgb(255, 255, 255, maxColorValue = 255),
    charting.area.fill.opacity = 0,
    legend.show = TRUE,
    legend.fill.color = rgb(255, 255, 255, maxColorValue = 255),
    legend.fill.opacity = 0,
    legend.border.color = rgb(44, 44, 44, maxColorValue = 255),
    legend.border.line.width = 0,
    legend.font.color = NULL,
    legend.font.family = NULL,
    legend.font.size = 10,
    legend.position = "right",
    legend.ascending = NA,
    margin.top = NULL,
    margin.bottom = NULL,
    margin.left = NULL,
    margin.right = NULL,
    margin.inner.pad = NULL,
    y.title = if (exists("formYTitle")) formYTitle else "",
    y.title.font.color = NULL, # for radar-charts, yaxis is the dimension extending from center (i.e. radius)
    y.title.font.family = NULL,
    y.title.font.size = if (exists("formYTitleFontSize")) formYTitleFontSize else 0,
    y.line.width = 0,
    y.line.color = rgb(0, 0, 0, maxColorValue = 255),
    y.tick.marks = "",
    y.tick.mark.length = 5,
    y.bounds.minimum = NULL,
    y.bounds.maximum = NULL,
    y.tick.distance = NULL,
    y.zero = TRUE,
    y.zero.line.width = 0,
    y.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),
    y.position = "left",
    y.data.reversed = FALSE,
    y.grid.width = 1 * formShowGrid * !formType %in% c("Pie", "Donut", "Bar", "Stacked Bar", "100% Stacked Bar"),
    y.grid.color = rgb(225, 225, 225, maxColorValue = 255),
    y.tick.show = if (exists("formShowY")) formShowY else TRUE,
    y.tick.suffix = formSuffix,
    y.tick.prefix = formPrefix,
    y.tick.decimals = NULL,
    y.tick.format.manual = "",
    y.hovertext.decimals = NULL,
    y.hovertext.format.manual = "",
    y.tick.angle = NULL,
    y.tick.font.color = NULL,
    y.tick.font.family = NULL,
    y.tick.font.size = if (exists("formYTickFontSize")) formYTickFontSize else 0,
    x.title = if(exists("formXTitle")) formXTitle else "", # for radar charts, x-axis is angle along circumference
    x.title.font.color = NULL,
    x.title.font.family = NULL,
    x.title.font.size = if (exists("formXTitleFontSize")) formXTitleFontSize else 0,
    x.line.width = 0,
    x.line.color = rgb(0, 0, 0, maxColorValue = 255),
    x.tick.marks = "",
    x.tick.mark.length = 5,
    x.bounds.minimum = NULL,
    x.bounds.maximum = NULL,
    x.tick.distance = NULL,
    x.zero.line.width = 0,
    x.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),
    x.position = "bottom",
    x.data.reversed = FALSE,
    x.grid.width = 1 * formShowGrid * !formType %in% c("Pie", "Donut", "Area", "Stacked Area", "100% Stacked Area", "Column", "Stacked Column", "100% Stacked Column", "Line"),
    x.grid.color = rgb(225, 225, 225, maxColorValue = 255),
    x.tick.show = if (exists("formShowX")) formShowX else TRUE,
    x.tick.suffix = formSuffix,
    x.tick.prefix = formPrefix,
    x.tick.decimals = NULL,
    x.tick.format.manual = "",
    x.hovertext.decimals = NULL,
    x.hovertext.format.manual = "",
    x.tick.angle = if (!exists("formLabelAngle")) NULL else switch(formLabelAngle, Automatic=NULL, Horizontal=0, Vertical=90, Diagonal=45),
    x.tick.font.color = NULL,
    x.tick.font.family = NULL,
    x.tick.font.size = if (exists("formXTickFontSize")) formXTickFontSize else 0,
    x.tick.label.autoformat = TRUE,
    x.tick.label.wordwrap = if (exists("formLabelWordwrap")) formLabelWordwrap else TRUE,
    wordwrap.nchar = if (exists("formWrapNchar")) formWrapNchar else 21,
    series.marker.show = if (formType %in% c("Labeled Scatterplot", "Labeled Bubbleplot")) "automatic" else "none",
    series.marker.colors = NULL,
    series.marker.colors.reverse = FALSE,
    series.marker.opacity = 1,
    series.marker.size = 6,
    series.marker.border.width = 1,
    series.marker.border.colors = NULL,
    series.marker.border.colors.reverse = FALSE,
    series.marker.border.opacity = 1,
    series.line.width = if (formType == "Scatterplot") 0 else 3,
    series.line.colors = NULL,
    series.line.colors.reverse = FALSE,
    series.line.opacity = 1,
    tooltip.show = TRUE,
    modebar.show = FALSE,
    global.font.family = formFont,
    global.font.color = formFontColor,
    rows.to.ignore = formIgnoreRows,
    cols.to.ignore = formIgnoreColumns,
    bar.gap = 0.15,
    data.label.show = if(exists("formShowDataLabels")) formShowDataLabels else FALSE,
    data.label.font.family = NULL,
    data.label.font.size = if (exists("formDataLabelFontSize")) formDataLabelFontSize else 10,
    data.label.font.color = NULL,
    data.label.decimals = if (exists("formDataLabelDecimals")) formDataLabelDecimals else 0,
    data.label.prefix = formPrefix,
    data.label.suffix = formSuffix,
    data.label.threshold = NULL,
    data.label.position = "top middle",
    data.label.max.plot = if (exists("formMaxLab")) formMaxLab else NA,
    pie.order = "initial",
    pie.groups.order = "initial",
    pie.subslice.colors = formSubslicePalette,
    pie.subslice.colors.custom.color = if (exists("formSubsliceCustomColor")) formSubsliceCustomColor else NA,
    pie.subslice.colors.custom.gradient.start = if (exists("formSubsliceCustomGradientStart")) formSubsliceCustomGradientStart else NA,
    pie.subslice.colors.custom.gradient.end = if (exists("formSubsliceCustomGradientEnd")) formSubsliceCustomGradientEnd else NA,
    pie.subslice.colors.custom.palette = if (exists("formSubsliceCustomPalette")) formSubsliceCustomPalette else NA,
    pie.subslice.colors.reverse = FALSE,
    pie.subslice.colors.repeat = TRUE,
    pie.border.color = rgb(255, 255, 255, maxColorValue = 255),
    pie.inner.radius = formRadius,
    pie.show.percentages = formType %in% c("Pie", "Donut") && formPiePercentages,
    z.title = formZTitle,
    trend.lines = if(exists("formTrendLines")) formTrendLines else FALSE,
    scatter.group.indices = if (exists("formGroupIndices")) formGroupIndices else NULL,
    scatter.group.labels = if (exists("formGroupLabels")) formGroupLabels else NULL,
    scatter.var.from.matrix = !(exists("formDataType") && formDataType == "Variables"),
    scatter.x.var = if (exists("formVX")) formVX else NULL,
    scatter.y.var = if (exists("formVY")) formVY else NULL,
    scatter.labels.var = if (exists("var.labels")) var.labels else NULL,
    scatter.sizes.var = if (exists("formVSizes")) formVSizes else NULL,
    scatter.colors.var = if (exists("formVColors")) formVColors else NULL,
    scatter.colors.as.group = if (exists("formVColType")) formVColType=="Categorical" else FALSE,
    us.date.format = if (exists("formDateFormat") && formDateFormat != "Default") formDateFormat == "US (mm/dd/yyyy)" else NULL,
    logos = if (exists("formLogos")) formLogos else NULL,
    logo.size = if (exists("formLogoSize")) formLogoSize else 0
)                  

> 

>chart
Total time:1.36s
Time on R server:1.33s
Time evaluating code:1.09s
Bytes sent:12,266
Bytes received:46,720