>library(flipStandardCharts)

>dat <- if (!exists("formDataType") || formDataType == "Use an existing table") {
    formTable
} else
    flipTransformations::ParseEnteredData(formEnteredData)

> 

>chart.2 <- Chart(y = if (exists("formMultiplyBy100") && formMultiplyBy100) 100 * dat else dat,
   type = formType,
   transpose = formTranspose,
   title = formTitle,
   title.font.family = NULL,
   title.font.color = NULL,
   title.font.size = 16,
   colors = formPalette,
   colors.reverse = FALSE,
   opacity = NULL,
   background.fill.color = rgb(255, 255, 255, maxColorValue = 255),
   background.fill.opacity = 1,
   charting.area.fill.color = rgb(255, 255, 255, maxColorValue = 255),
   charting.area.fill.opacity = 1,
   legend.show = TRUE,
   legend.fill = rgb(255, 255, 255, maxColorValue = 255),
   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 = TRUE,
   margin.top = NULL,
   margin.bottom = NULL,
   margin.left = NULL,
   margin.right = NULL,
   margin.inner.pad = NULL,
   y.title = formYTitle,
   y.title.font.color = NULL,
   y.title.font.family = NULL,
   y.title.font.size = 12,
   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.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 = 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 = 10,
   x.title = formXTitle,
   x.title.font.color = NULL,
   x.title.font.family = NULL,
   x.title.font.size = 12,
   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 = 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 = NULL,
   x.tick.font.color = NULL,
   x.tick.font.family = NULL,
   x.tick.font.size = 10,
   x.tick.label.autoformat = TRUE,
   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 = 3,
   series.line.colors = NULL,
   series.line.colors.reverse = FALSE,
   series.line.opacity = 1,
   tooltip.show = TRUE,
   modebar.show = FALSE,
   global.font.family = "Arial",
   global.font.color = rgb(44, 44, 44, maxColorValue=255),
   rows.to.ignore = formIgnoreRows,
   cols.to.ignore = formIgnoreColumns,
   bar.gap = 0.15,
   data.label.show = formShowDataLabels,
   data.label.font.family = NULL,
   data.label.font.size = 10,
   data.label.font.color = NULL,
   data.label.decimals = formDataLabelDecimals,
   data.label.prefix = formPrefix,
   data.label.suffix = formSuffix,
   data.label.threshold = NULL,
   data.label.position = "top middle",
   pie.order = "initial",
   pie.groups.order = "initial",
   pie.subslice.colors = formPaletteOuter,
   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,
   scatter.group.indices = formGroupIndices,
   scatter.group.labels = formGroupLabels,
   us.date.format = if (exists("formDateFormat") && formDateFormat != "Default") formDateFormat == "US (mm/dd/yyyy)" else NULL) 

>chart.2
Total time:0.29s
Time on R server:0.26s
Time evaluating code:0.16s
Bytes sent:6,390
Bytes received:14,686