># VERSION 1.1.7

>library(flipChart)

># Processing all the selections from the 'Inputs' and 'Charts' tab.

>pd <- PrepareData(formChartType,  QFilter, QPopulationWeight, input.data.table = get0("formTable"), input.data.raw = if (!exists("formX")) NULL else list(X = get0("formX"), Y = get0("formY"), Z1 = get0("formZ"), Z2 = get0("formZ2"), labels = get0("formScatterLabels")), input.data.pasted = if (length(get0("formPastedData")) == 0) NULL else list(get0("formPastedData"), !get0("formNotDataFrame", ifnotfound = TRUE),  get0("formPastedColumnNames"), get0("formPastedRowNames")), first.aggregate = get0("formFirstAggregate", ifnotfound = FALSE),  group.by.last = get0("formGroupByLastColumn", ifnotfound = FALSE), tidy = get0("formTidy", ifnotfound = FALSE), tidy.labels = get0("formTidyLabels", ifnotfound = FALSE), transpose = get0("formTranspose"), row.names.to.remove = get0("formIgnoreRows"), column.names.to.remove = get0("formIgnoreColumns"), hide.empty.rows.and.columns = get0("formHideEmpty", ifnotfound = FALSE), as.percentages = get0("formAsPercentages", ifnotfound = FALSE), show.labels = !get0("formNames", ifnotfound=TRUE), date.format = get0("formDateFormat", ifnotfound = "Automatic"), scatter.mult.yvals = get0("formScatterMultYvals", ifnotfound = FALSE))

>pc <- PrepareColors(pd$data, formChartType, scatter.colors.column = pd$scatter.variable.indices["colors"], palette = get0("formPalette"), palette.custom.color = get0("formCustomColor"), palette.custom.gradient.start = get0("formCustomGradientStart"), palette.custom.gradient.end = get0("formCustomGradientEnd"), palette.custom.palette = get0("formCustomPalette"), fit.palette = get0("formFitPalette"), fit.palette.custom.color = get0("formFitCustomColor"), fit.palette.custom.gradient.start = get0("formFitCustomGradientStart"), fit.palette.custom.gradient.end = get0("formFitCustomGradientEnd"), fit.palette.custom.palette = get0("formFitCustomPalette"), subslice.palette = get0("formSubslicePalette"), subslice.palette.custom.color = get0("formSubsliceCustomColor"), subslice.palette.custom.gradient.start = get0("formSubsliceCustomGradientStart"), subslice.palette.custom.gradient.end = get0("formSubsliceCustomGradientEnd"), subslice.palette.custom.palette = get0("formSubsliceCustomPalette")) 

>pn <- PrepareNumbers(categories.format.list = list(get0("formCategoriesNumberType"), get0("formCategoriesDateType"), get0("formCategoriesNumberCustom"), get0("formCategoriesSeparateThousands"), get0("formCategoriesDecimals")), values.format.list = list(get0("formValuesNumberType"), get0("formValuesDateType"), get0("formValuesNumberCustom"), get0("formValuesSeparateThousands"), get0("formValuesDecimals")), hover.format.list = list(get0("formHoverNumberType"), get0("formHoverDateType"), get0("formHoverNumberCustom"), get0("formHoverSeparateThousands"), get0("formHoverDecimals")), data.labels.format.list = list(get0("formDataLabelNumberType"), get0("formDataLabelDateType"), get0("formDataLabelCustom"), get0("formDataLabelSeparateThousands"), get0("formDataLabelDecimals")), !is.null(attr(pd$data, "statistic")) && grepl("%", attr(pd$data, "statistic"), fixed = TRUE))

>

># Creating the chart.

>chart.5 <- if(formChartType== "Table") pd$data else CChart(chart.type = formChartType,
    x = pd$data,
    weights = pd$weights,
    small.multiples = get0("formSmallMultiples", ifnotfound=FALSE),     
    nrows = get0("formSmallMultNRows"),
    x.order = get0("formSmallMultXOrder"),
    average.show = get0("formSmallMultAverage", ifnotfound = FALSE),
    average.color = get0("formSmallMultAverageColor"),
    share.axes = get0("formSmallMultShareAxes", ifnotfound = TRUE),
    paneltitle.show = get0("formSmallMultTitle", ifnotfound = TRUE),
    paneltitle.font.family = get0("formSmallMultTitleFontFamily"),
    paneltitle.font.color = get0("formSmallMultTitleFontColor"),
    paneltitle.font.size = get0("formSmallMultTitleFontSize"),
    paneltitle.wrap = get0("formSmallMultTitleWrap"),
    paneltitle.wrap.nchar = get0("formSmallMultTitleWrapNchar"),
    pad.left = get0("formSmallMultPadLeft", ifnotfound=0),
    pad.right = get0("formSmallMultPadRight", ifnotfound=0),
    pad.top = get0("formSmallMultPadTop"),
    pad.bottom = get0("formSmallMultPadBottom"),
    max.label.length = 0,
    #Scatter plot inputs.
    scatter.max.labels = get0("formScatterMaxLab", ifnotfound=20),
    scatter.labels.as.hovertext= if (exists("formScatterLabelType")) formScatterLabelType!="On chart" else TRUE,
    scatter.colors.as.categorical = if (exists("formScatterColorType")) formScatterColorType=="Categories" else TRUE,
    scatter.sizes.as.diameter = if (exists("formScatterSizeType")) formScatterSizeType=="Diameter" else FALSE,
    scatter.x.column = pd$scatter.variable.indices["x"],
    scatter.y.column = pd$scatter.variable.indices["y"],
    scatter.sizes.column = pd$scatter.variable.indices["sizes"],
    scatter.colors.column = pd$scatter.variable.indices["colors"],
    trend.lines = get0("formTrendLines", ifnotfound=FALSE),
    logos = get0("formLogos"),
    logo.size = get0("formLogoSize"),
    # Chart: DATA SERIES
    colors = pc$series.colors,
    pie.subslice.colors = pc$subslice.colors,
    #Chart: FIT LINE
    fit.type = get0("formFit", ifnotfound="None"),
    fit.ignore.last = get0("formFitIgnoreLast"),
    fit.line.type = get0("formFitLineType"),
    fit.line.colors = if (isTRUE(get0("formSmallMultiples"))) NULL else pc$fit.line.colors,
    fit.line.width = get0("formFitLineWidth", ifnotfound=1),
    # Chart: DATA LABELS
    data.label.show = get0("formDataLabelShow", ifnotfound = FALSE),
    data.label.format = pn$data.labels.number.format,
    data.label.font.size = get0("formDataLabelFontSize", ifnotfound = 10),
    data.label.font.family = get0("formDataLabelFontFamily", ifnotfound = get0("formFont")),
    data.label.font.color = get0("formDataLabelFontColor"),
    data.label.prefix = get0("formPrefix", ifnotfound=""),
    data.label.suffix = get0("formSuffix", ifnotfound=""),
    data.label.position = get0("formDataLabelPosition", ifnotfound="top middle"),
    data.label.align.horizontal = get0("formDataLabelHorizAlign", ifnotfound="Default"),
    # Chart: FONT
    global.font.family = get0("formFont"),
    global.font.color = get0("formFontColor"),
    #Chart: GRIDLINES
    grid.show = get0("formShowGrid", ifnotfound=TRUE),
    # Chart: LEGEND
    legend.show = get0("formLegendShow", ifnotfound=TRUE),
    legend.title = get0("formLegendTitle"),
    legend.font.family = get0("formLegendFontFamily"),
    legend.font.color = get0("formLegendFontColor"),
    legend.font.size = get0("formLegendFontSize"),
    legend.x.position = get0("formLegendXPos", ifnotfound=1.02),
    legend.y.position = get0("formLegendYPos", ifnotfound=1.0),
    legend.width = get0("formLegendWidth", ifnotfound=250),
    # Chart: TITLE
    title = get0("formTitle", ifnotfound=""),
    title.font.family = get0("formTitleFontFamily"),
    title.font.color = get0("formTitleFontColor"),
    title.font.size = get0("formTitleFontSize"),
    subtitle = get0("formSubtitle", ifnotfound=""),
    subtitle.font.family = get0("formSubtitleFontFamily"),
    subtitle.font.color = get0("formSubtitleFontColor"),
    subtitle.font.size = get0("formSubtitleFontSize"),
    footer = get0("formFooter", ifnotfound=""),
    footer.font.family = get0("formFooterFontFamily"),
    footer.font.color = get0("formFooterFontColor"),
    footer.font.size = get0("formFooterFontSize"),
    footer.wrap = get0("formFooterWrap", ifnotfound=FALSE),
    footer.wrap.nchar = get0("formFooterWrapNchar"),
    #Chart: CATEGORIES_AXIS
    categories.axis.show = get0("formCategoriesAxisShow", ifnotfound=TRUE),
    categories.tick.show = get0("formCategoriesAxisShow", ifnotfound=TRUE),
    categories.tick.format = pn$categories.number.format,
    categories.tick.prefix = paste0("", get0("formCategoriesPrefix"), get0("formCategoriesCurrency")),    # currency is just another prefix
    categories.tick.suffix = get0("formCategoriesSuffix", ifnotfound=""),
    categories.tick.interval = get0("formCategoriesTickInterval", ifnotfound=0),
    categories.tick.units = get0("formCategoriesTickUnits"),
    categories.title = paste0("", if (sum(nchar(get0("formCategoriesTitle", ifnotfound = " "))) > 0) get0("formCategoriesTitle", ifnotfound = " ") else pd$categories.title),
    categories.title.font.family = get0("formCategoriesTitleFontFamily"),
    categories.title.font.color = get0("formCategoriesTitleFontColor"),
    categories.title.font.size = get0("formCategoriesTitleFontSize", ifnotfound = 0), 
    categories.tick.font.family = get0("formCategoriesTickFontFamily"),
    categories.tick.font.color = get0("formCategoriesTickFontColor"),
    categories.tick.font.size = get0("formCategoriesTickFontSize", ifnotfound=10),
    categories.tick.angle = if (!exists("formCategoriesTickAngle")) NULL else switch(get0("formCategoriesTickAngle"), Automatic=NULL, Horizontal=0, Vertical=90, Diagonal=45),
    categories.tick.label.wrap = get0("formLabelWrap", ifnotfound=FALSE),
    categories.tick.label.wrap.nchar = get0("formLabelWrapNchar", ifnotfound=100),
    categories.tick.align.horizontal = get0("formCategoriesTickHorizAlign", ifnotfound = "Default"),
    #Chart: VALUES_AXIS
    values.axis.show = get0("formValuesAxisShow"),
    values.tick.show = get0("formValuesAxisShow", ifnotfound=TRUE),
    values.tick.format = pn$values.number.format,
    values.tick.prefix = paste0("", get0("formValuesPrefix"), get0("formValuesCurrency")),    # currency is just another prefix
    values.tick.suffix = get0("formValuesSuffix", ifnotfound=""),
    values.title =  paste0("", if (sum(nchar(get0("formValuesTitle", ifnotfound=" "))) > 0) get0("formValuesTitle", ifnotfound = " ") else pd$values.title),
    values.title.font.family = get0("formValuesTitleFontFamily"),
    values.title.font.color = get0("formValuesTitleFontColor"),
    values.title.font.size = get0("formValuesTitleFontSize", ifnotfound = 0),
    values.bounds.minimum = if (sum(nchar(get0("formValuesMin"))) == 0) NULL else formValuesMin, 
    values.bounds.maximum = if (sum(nchar(get0("formValuesMax"))) == 0) NULL else formValuesMax, 
    values.number.ticks = get0("formValuesNumberTicks"),
    values.tick.font.size = get0("formValuesTickFontSize", ifnotfound=10),
    values.tick.font.family = get0("formValuesTickFontFamily"),
    values.tick.font.color = get0("formValuesTickFontColor"),
    # Chart: HOVER
    values.hovertext.format = pn$hover.number.format,
    # Chart: MARGINS
    margin.top = get0("formMarginTop"),
    margin.left = get0("formMarginLeft"),
    margin.bottom = get0("formMarginBottom"),
    margin.right = get0("formMarginRight"),
    # Chart: APPEARANCE
    type = if(get0("formStackSeries", ifnotfound=FALSE)) "Stacked" else (if(formChartType == "Donut") "Donut" else formChartType),
    adjust = get0("formBandwidth"),
    automatic.lower.density = get0("formAutomaticLower"),
    pie.inner.radius = get0("formPieRadius"),
    pie.border.color = get0("formBorderColor"),
    density.color = get0("formDensityColor"),
    vertical = get0("formVertical"),
    show.mean = get0("formShowMean"),
    show.median = get0("formShowMedian"),
    show.quartiles  = get0("formShowQuartiles"),
    show.range = get0("formShowRange"),
    show.values = get0("formShowValues", ifnotfound = FALSE),
    histogram.cumulative = get0("formHistogramCumulative"),
    histogram.counts = get0("formHistogramCounts"),
    maximum.bins = get0("formMaximumBins"),
    box.points = get0("formBoxPoints"),
    mean.color = get0("formMeanColor"),
    median.color = get0("formMedianColor"),
    quartile.color =  get0("formQuartilesColor"),
    range.color =  get0("formRangeColor"),
    values.color =  get0("formValuesColor"),
    window.start = get0("formWindowStart"),
    range.bars = get0("formRangeBars"),
    line.thickness = get0("formLineThickness"),
    opacity = get0("formFillOpacity"),
    # BarPictograph parameters
    image = get0("formIcon"),
    custom.image = get0("formCustomIcon"),
    base.image = get0("formBaseImage", ifnotfound = ""), 
    hide.base.image = get0("formHideBase", ifnotfound = FALSE),
    base.icon.color = get0("formBaseColor", ifnotfound = ""),
    scale = if (exists("formIconScale")) as.numeric(formIconScale), 
    total.icons = if (exists("formTotalIcons")) as.numeric(formTotalIcons),
    icon.ncol = if (exists("formIconNCol")) as.numeric(formIconNCol),
    fix.icon.nrow = get0("formFixNRows", ifnotfound = TRUE),
    fill.direction = get0("formFillDirection"),
    label.color.asIcon = get0("formLabelColorAsIcon", ifnotfound = FALSE),
    categories.tick.align = get0("formCategoriesTickAlign"),
    pad.row = get0("formIconPadding", ifnotfound = 0),
    graphic.width.inch = QOutputSizeWidth,
    graphic.height.inch = QOutputSizeHeight,
    # GeographicMap parameters
    mapping.package = get0("formMapPackage"),
    high.resolution = get0("formHighRes", ifnotfound = TRUE),
    treat.NA.as.0 = get0("formNAasZero", ifnotfound = FALSE),
    color.NA = get0("formNAColor"),     
    ocean.color = get0("formOceanColor"),
    # Heat parameters
    sort.rows = get0("formSortRows"),
    sort.columns = get0("formSortColumns"),
    standardization = get0("formStandardization"),
    left.columns = get0("formLeftColumns"),
    left.column.headings = get0("formLeftColumnHeadings"),
    right.columns = get0("formRightColumns"),
    right.column.headings = get0("formRightColumnHeadings"),
    # General arguments
    warn.if.no.match = FALSE)

Loading required package: flipStandardCharts
Total time:3.29s
Time on R server:3.26s
Time evaluating code:3.00s
Bytes sent:18,433
Bytes received:48,988