{"appearance":{"background":"white","padding":14,"font":{"family":"Courier New","size":10.0,"bold":false,"italic":false,"underline":false,"strikeout":false,"color":"rgb(0,72,168)"},"border":{"on":true,"size":0.0,"style":"solid","color":"#666"},"text":{"wrap":false,"hAlign":"left","vAlign":"top"}},"outputType":"WIDGET","widgetState":null,"outputs":{"console":"<pre class='debug-source'>>library(flipTransformations)\n</pre>\n<pre class='debug-source'>>library(flipStandardCharts)\n</pre>\n<pre class='debug-source'>> \n</pre>\n<pre class='debug-source'>>dat <- if (!exists("formDataType") || formDataType == "Use an existing table") {\n formTable\n} else {\n ParseEnteredData(formEnteredData)\n}\n</pre>\n<pre class='debug-source'>> \n</pre>\n<pre class='debug-source'>>transpose <- ifelse(formType != "Donut", formTranspose, FALSE)\n</pre>\n<pre class='debug-source'>>outer.palette <- if (formType == "Pie" && formPaletteOuter != "Group colors") formPaletteOuter else NULL\n</pre>\n<pre class='debug-source'>>bubble.title <- ifelse(formType == "Labeled Bubbleplot", formZTitle, "")\n</pre>\n<pre class='debug-source'>>radius <- if (formType == "Pie" || formType == "Donut") formRadius else NULL\n</pre>\n<pre class='debug-source'>>group.indices <- if (formType == "Labeled Scatterplot" || formType == "Labeled Bubbleplot") formGroupIndices else NULL\n</pre>\n<pre class='debug-source'>>group.labels <- if (formType == "Labeled Scatterplot" || formType == "Labeled Bubbleplot") formGroupLabels else NULL\n</pre>\n<pre class='debug-source'>>x.grid.width <- if ((formType %in% c("Bar", "Stacked Bar", "100% Stacked Bar", "Labeled Scatterplot",\n "Labeled Bubbleplot")) && formShowGrid) 1 else 0\n</pre>\n<pre class='debug-source'>>y.grid.width <- if ((formType %in% c("Area", "Stacked Area", "100% Stacked Area", "Line", "Column",\n "Stacked Column", "100% Stacked Column", "Labeled Scatterplot",\n "Labeled Bubbleplot")) && formShowGrid) 1 else 0\n</pre>\n<pre class='debug-source'>>series.line.width <- if (formType %in% c("Area", "Stacked Area", "100% Stacked Area")) 0 else 3\n</pre>\n<pre class='debug-source'>>data.label.show <- formType %in% c("Pie", "Donut", "Labeled Scatterplot", "Labeled Bubbleplot") || formShowDataLabels\n</pre>\n<pre class='debug-source'>>data.label.decimals <- if (data.label.show && !(formType %in% c("Labeled Scatterplot", "Labeled Bubbleplot"))) formDataLabelDecimals else 2\n</pre>\n<pre class='debug-source'>>series.marker.show <- if (formType %in% c("Labeled Scatterplot", "Labeled Bubbleplot")) "automatic" else "none"\n</pre>\n<pre class='debug-source'>>x.tick.prefix <- ""\n</pre>\n<pre class='debug-source'>>y.tick.prefix <- ""\n</pre>\n<pre class='debug-source'>>data.label.prefix <- ""\n</pre>\n<pre class='debug-source'>>x.tick.suffix <- ""\n</pre>\n<pre class='debug-source'>>y.tick.suffix <- ""\n</pre>\n<pre class='debug-source'>>data.label.suffix <- ""\n</pre>\n<pre class='debug-source'>>pie.show.percentages <- formType %in% c("Pie", "Donut") && formPiePercentages\n</pre>\n<pre class='debug-source'>>if (!(formType %in% c("100% Stacked Area", "100% Stacked Bar", "100% Stacked Column")) && !pie.show.percentages)\n{\n if (formType == "Bar" || formType == "Labeled Scatterplot" || formType == "Labeled Bubbleplot")\n {\n x.tick.prefix <- formPrefix\n x.tick.suffix <- formSuffix\n }\n if (formType != "Bar")\n {\n y.tick.prefix <- formPrefix\n y.tick.suffix <- formSuffix\n }\n data.label.prefix = formPrefix\n data.label.suffix = formSuffix\n if (formSuffix == "%" && formMultiplyBy100)\n dat <- 100 * dat\n} else if (pie.show.percentages)\n data.label.suffix <- "%"\n</pre>\n<pre class='debug-source'>>x.title <- if (!(formType %in% c("Pie", "Donut"))) formXTitle else ""\n</pre>\n<pre class='debug-source'>>y.title <- if (!(formType %in% c("Pie", "Donut"))) formYTitle else ""\n</pre>\n<pre class='debug-source'>>us.date.format <- if (!(formType %in% c("Labeled Scatterplot", "Labeled Bubbleplot", "Pie", "Donut")))\n{\n if (formDateFormat == "Default")\n NULL\n else if (formDateFormat == "US (mm/dd/yyyy)")\n TRUE\n else if (formDateFormat == "International (dd/mm/yyyy)")\n FALSE\n else\n stop(paste("Date format not recognized:", formDateFormat))\n}\n</pre>\n<pre class='debug-source'>> \n</pre>\n<pre class='debug-source'>>chart.3 <- Chart(y = dat,\n type = formType,\n transpose = transpose,\n title = formTitle,\n title.font.family = NULL,\n title.font.color = NULL,\n title.font.size = 16,\n colors = formPalette,\n colors.reverse = TRUE,\n opacity = NULL,\n background.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n background.fill.opacity = 1,\n charting.area.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n charting.area.fill.opacity = 1,\n legend.show = TRUE,\n legend.fill = rgb(255, 255, 255, maxColorValue = 255),\n legend.border.color = rgb(44, 44, 44, maxColorValue = 255),\n legend.border.line.width = 0,\n legend.font.color = NULL,\n legend.font.family = NULL,\n legend.font.size = 10,\n legend.position = "right",\n legend.ascending = TRUE,\n margin.top = NULL,\n margin.bottom = NULL,\n margin.left = NULL,\n margin.right = NULL,\n margin.inner.pad = NULL,\n y.title = y.title,\n y.title.font.color = NULL,\n y.title.font.family = NULL,\n y.title.font.size = 12,\n y.line.width = 0,\n y.line.color = rgb(0, 0, 0, maxColorValue = 255),\n y.tick.marks = "",\n y.tick.mark.length = 5,\n y.bounds.minimum = NULL,\n y.bounds.maximum = NULL,\n y.tick.distance = NULL,\n y.zero.line.width = 0,\n y.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n y.position = "left",\n y.data.reversed = FALSE,\n y.grid.width = y.grid.width,\n y.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n y.tick.show = TRUE,\n y.tick.suffix = y.tick.suffix,\n y.tick.prefix = y.tick.prefix,\n y.tick.decimals = NULL,\n y.tick.format.manual = "",\n y.hovertext.decimals = NULL,\n y.hovertext.format.manual = "",\n y.tick.angle = NULL,\n y.tick.font.color = NULL,\n y.tick.font.family = NULL,\n y.tick.font.size = 10,\n x.title = x.title,\n x.title.font.color = NULL,\n x.title.font.family = NULL,\n x.title.font.size = 12,\n x.line.width = 0,\n x.line.color = rgb(0, 0, 0, maxColorValue = 255),\n x.tick.marks = "",\n x.tick.mark.length = 5,\n x.bounds.minimum = NULL,\n x.bounds.maximum = NULL,\n x.tick.distance = NULL,\n x.zero.line.width = 0,\n x.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n x.position = "bottom",\n x.data.reversed = FALSE,\n x.grid.width = x.grid.width,\n x.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n x.tick.show = TRUE,\n x.tick.suffix = x.tick.suffix,\n x.tick.prefix = x.tick.prefix,\n x.tick.decimals = NULL,\n x.tick.format.manual = "",\n x.hovertext.decimals = NULL,\n x.hovertext.format.manual = "",\n x.tick.angle = NULL,\n x.tick.font.color = NULL,\n x.tick.font.family = NULL,\n x.tick.font.size = 10,\n x.tick.label.autoformat = TRUE,\n series.marker.show = series.marker.show,\n series.marker.colors = NULL,\n series.marker.colors.reverse = FALSE,\n series.marker.opacity = 1,\n series.marker.size = 6,\n series.marker.border.width = 1,\n series.marker.border.colors = NULL,\n series.marker.border.colors.reverse = FALSE,\n series.marker.border.opacity = 1,\n series.line.width = series.line.width,\n series.line.colors = NULL,\n series.line.colors.reverse = FALSE,\n series.line.opacity = 1,\n tooltip.show = TRUE,\n modebar.show = FALSE,\n global.font.family = "Arial",\n global.font.color = rgb(44, 44, 44, maxColorValue=255),\n rows.to.ignore = formIgnoreRows,\n cols.to.ignore = formIgnoreColumns,\n bar.gap = 0.15,\n data.label.show = data.label.show,\n data.label.font.family = NULL,\n data.label.font.size = 10,\n data.label.font.color = NULL,\n data.label.decimals = data.label.decimals,\n data.label.prefix = data.label.prefix,\n data.label.suffix = data.label.suffix,\n data.label.threshold = NULL,\n data.label.position = "top middle",\n pie.order = "initial",\n pie.groups.order = "initial",\n pie.subslice.colors = outer.palette,\n pie.subslice.colors.reverse = FALSE,\n pie.subslice.colors.repeat = TRUE,\n pie.border.color = rgb(255, 255, 255, maxColorValue = 255),\n pie.inner.radius = radius,\n pie.show.percentages = pie.show.percentages,\n z.title = bubble.title,\n scatter.group.indices = group.indices,\n scatter.group.labels = group.labels,\n us.date.format = us.date.format)\n</pre>\n<pre class='debug-source'>> \n</pre>\n<pre class='debug-source'>>chart.3\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>2.00s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 1.97s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 1.95s (pre 0.00s, post 0.06s) unexplained 0.03s apparmor forking (pre 0.02s, post 0.00s)\">1.97s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>1.86s</td></tr>\r\n<tr><th>Bytes sent:</th><td>10,824</td></tr>\r\n<tr><th>Bytes received:</th><td>24,834</td></tr>\r\n</table>\r\n</div>","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-474c2a953a2329be755a\" style=\"width:960px;height:500px;\" class=\"rhtmlDonut html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-474c2a953a2329be755a\">{\"x\":{\"values\":[24.6338351620311,16.815514161776,17.53508548099,16.2133197244195,13.1513141107425,11.6509313600408],\"labels\":[\"Basic exploratory data analysis\",\"Data cleaning\",\"Machine learning/statistics\",\"Creating visualizations\",\"Presenting analysis\",\"Extract/transform/load\"],\"settings\":{\"valuesFont\":\"Arial\",\"valuesSize\":10,\"valuesColor\":[\"#005A32\",\"#238B45\",\"#41AB5D\",\"#74C476\",\"#A1D99B\",\"#C7E9C0\"],\"valuesDisplay\":\"original\",\"valuesOrder\":\"initial\",\"valuesDec\":0,\"labelsFont\":\"Arial\",\"labelsSize\":10,\"labelsColor\":\"#2C2C2C\",\"labelsInner\":false,\"labelsBold\":false,\"labelsMinFontSize\":10,\"groups\":null,\"groupsFont\":\"Arial\",\"groupsFontColor\":\"#2C2C2C\",\"groupsSize\":10,\"groupsBold\":false,\"groupsColor\":null,\"groupsNames\":null,\"groupsSums\":null,\"groupsCounts\":null,\"groupLabelsMinFontSize\":10,\"title\":\"\",\"titleFontFamily\":\"Arial\",\"titleFontSize\":16,\"titleFontColor\":\"#2C2C2C\",\"titleTopPadding\":0,\"titleBold\":false,\"prefix\":\"\",\"suffix\":\"%\",\"orderControl\":false,\"gradient\":false,\"innerRadius\":\"0%\",\"minAngle\":0.003,\"borderColor\":\"#FFFFFF\"}},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-474c2a953a2329be755a\">{\"viewer\":{\"width\":450,\"height\":350,\"padding\":0,\"fill\":true},\"browser\":{\"width\":960,\"height\":500,\"padding\":0,\"fill\":true}}</script>","htmlwidget-head":"{\"stylesheets\":[\"https://rserverhtmlwidgetasset.azureedge.net/d3pie-0bab3c984e04f3150b65ccaf2c83535a.css\"],\"javascript\":[\"https://rserverhtmlwidgetasset.azureedge.net/htmlwidgets-d2ab507a7e7d3e3d7c2178bda9d4c762.js\",\"https://rserverhtmlwidgetasset.azureedge.net/d3.min-2f50967ff82fd3475fcd22e9253d546e.js\",\"https://rserverhtmlwidgetasset.azureedge.net/d3pie-65cceb31dfc30ec2a905571eb62c7cb2.js\",\"https://rserverhtmlwidgetasset.azureedge.net/validate-290153bc67b0029aab48e0d29cb7c9e2.js\",\"https://rserverhtmlwidgetasset.azureedge.net/helpers-9c6d3474c9c9779f102fa0c5384f4fad.js\",\"https://rserverhtmlwidgetasset.azureedge.net/math-29a23041ec7683998cb0bb6711ec0c06.js\",\"https://rserverhtmlwidgetasset.azureedge.net/labels-86fa5d40808955608ff654f7a7b8e6c7.js\",\"https://rserverhtmlwidgetasset.azureedge.net/segments-661db9096377f450316f3360510c5a5f.js\",\"https://rserverhtmlwidgetasset.azureedge.net/text-64412032d620c64b5068a1e366fe3fc3.js\",\"https://rserverhtmlwidgetasset.azureedge.net/tooltip-0ecb96764ca814a750041aee1bd57ba0.js\",\"https://rserverhtmlwidgetasset.azureedge.net/rainbowvis-817701ea427986ff7c25fb14b18ce504.js\",\"https://rserverhtmlwidgetasset.azureedge.net/rhtmlDonut-043cac0acda514bd9bee3d43115a15a5.js\"],\"attachments\":[]}","message":"","warning":"","visible":"yes"},"secondsTaken":2.0016255000000003,"updated":"2017-03-13T22:49:17.4604501Z","lastUpdatedMessage":null,"executedCode":"library(flipTransformations)\nlibrary(flipStandardCharts)\n \ndat <- if (!exists(\"formDataType\") || formDataType == \"Use an existing table\") {\n formTable\n} else {\n ParseEnteredData(formEnteredData)\n}\n \ntranspose <- ifelse(formType != \"Donut\", formTranspose, FALSE)\nouter.palette <- if (formType == \"Pie\" && formPaletteOuter != \"Group colors\") formPaletteOuter else NULL\nbubble.title <- ifelse(formType == \"Labeled Bubbleplot\", formZTitle, \"\")\nradius <- if (formType == \"Pie\" || formType == \"Donut\") formRadius else NULL\ngroup.indices <- if (formType == \"Labeled Scatterplot\" || formType == \"Labeled Bubbleplot\") formGroupIndices else NULL\ngroup.labels <- if (formType == \"Labeled Scatterplot\" || formType == \"Labeled Bubbleplot\") formGroupLabels else NULL\nx.grid.width <- if ((formType %in% c(\"Bar\", \"Stacked Bar\", \"100% Stacked Bar\", \"Labeled Scatterplot\",\n \"Labeled Bubbleplot\")) && formShowGrid) 1 else 0\ny.grid.width <- if ((formType %in% c(\"Area\", \"Stacked Area\", \"100% Stacked Area\", \"Line\", \"Column\",\n \"Stacked Column\", \"100% Stacked Column\", \"Labeled Scatterplot\",\n \"Labeled Bubbleplot\")) && formShowGrid) 1 else 0\nseries.line.width <- if (formType %in% c(\"Area\", \"Stacked Area\", \"100% Stacked Area\")) 0 else 3\ndata.label.show <- formType %in% c(\"Pie\", \"Donut\", \"Labeled Scatterplot\", \"Labeled Bubbleplot\") || formShowDataLabels\ndata.label.decimals <- if (data.label.show && !(formType %in% c(\"Labeled Scatterplot\", \"Labeled Bubbleplot\"))) formDataLabelDecimals else 2\nseries.marker.show <- if (formType %in% c(\"Labeled Scatterplot\", \"Labeled Bubbleplot\")) \"automatic\" else \"none\"\nx.tick.prefix <- \"\"\ny.tick.prefix <- \"\"\ndata.label.prefix <- \"\"\nx.tick.suffix <- \"\"\ny.tick.suffix <- \"\"\ndata.label.suffix <- \"\"\npie.show.percentages <- formType %in% c(\"Pie\", \"Donut\") && formPiePercentages\nif (!(formType %in% c(\"100% Stacked Area\", \"100% Stacked Bar\", \"100% Stacked Column\")) && !pie.show.percentages)\n{\n if (formType == \"Bar\" || formType == \"Labeled Scatterplot\" || formType == \"Labeled Bubbleplot\")\n {\n x.tick.prefix <- formPrefix\n x.tick.suffix <- formSuffix\n }\n if (formType != \"Bar\")\n {\n y.tick.prefix <- formPrefix\n y.tick.suffix <- formSuffix\n }\n data.label.prefix = formPrefix\n data.label.suffix = formSuffix\n if (formSuffix == \"%\" && formMultiplyBy100)\n dat <- 100 * dat\n} else if (pie.show.percentages)\n data.label.suffix <- \"%\"\nx.title <- if (!(formType %in% c(\"Pie\", \"Donut\"))) formXTitle else \"\"\ny.title <- if (!(formType %in% c(\"Pie\", \"Donut\"))) formYTitle else \"\"\nus.date.format <- if (!(formType %in% c(\"Labeled Scatterplot\", \"Labeled Bubbleplot\", \"Pie\", \"Donut\")))\n{\n if (formDateFormat == \"Default\")\n NULL\n else if (formDateFormat == \"US (mm/dd/yyyy)\")\n TRUE\n else if (formDateFormat == \"International (dd/mm/yyyy)\")\n FALSE\n else\n stop(paste(\"Date format not recognized:\", formDateFormat))\n}\n \nchart.3 <- Chart(y = dat,\n type = formType,\n transpose = transpose,\n title = formTitle,\n title.font.family = NULL,\n title.font.color = NULL,\n title.font.size = 16,\n colors = formPalette,\n colors.reverse = TRUE,\n opacity = NULL,\n background.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n background.fill.opacity = 1,\n charting.area.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n charting.area.fill.opacity = 1,\n legend.show = TRUE,\n legend.fill = rgb(255, 255, 255, maxColorValue = 255),\n legend.border.color = rgb(44, 44, 44, maxColorValue = 255),\n legend.border.line.width = 0,\n legend.font.color = NULL,\n legend.font.family = NULL,\n legend.font.size = 10,\n legend.position = \"right\",\n legend.ascending = TRUE,\n margin.top = NULL,\n margin.bottom = NULL,\n margin.left = NULL,\n margin.right = NULL,\n margin.inner.pad = NULL,\n y.title = y.title,\n y.title.font.color = NULL,\n y.title.font.family = NULL,\n y.title.font.size = 12,\n y.line.width = 0,\n y.line.color = rgb(0, 0, 0, maxColorValue = 255),\n y.tick.marks = \"\",\n y.tick.mark.length = 5,\n y.bounds.minimum = NULL,\n y.bounds.maximum = NULL,\n y.tick.distance = NULL,\n y.zero.line.width = 0,\n y.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n y.position = \"left\",\n y.data.reversed = FALSE,\n y.grid.width = y.grid.width,\n y.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n y.tick.show = TRUE,\n y.tick.suffix = y.tick.suffix,\n y.tick.prefix = y.tick.prefix,\n y.tick.decimals = NULL,\n y.tick.format.manual = \"\",\n y.hovertext.decimals = NULL,\n y.hovertext.format.manual = \"\",\n y.tick.angle = NULL,\n y.tick.font.color = NULL,\n y.tick.font.family = NULL,\n y.tick.font.size = 10,\n x.title = x.title,\n x.title.font.color = NULL,\n x.title.font.family = NULL,\n x.title.font.size = 12,\n x.line.width = 0,\n x.line.color = rgb(0, 0, 0, maxColorValue = 255),\n x.tick.marks = \"\",\n x.tick.mark.length = 5,\n x.bounds.minimum = NULL,\n x.bounds.maximum = NULL,\n x.tick.distance = NULL,\n x.zero.line.width = 0,\n x.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n x.position = \"bottom\",\n x.data.reversed = FALSE,\n x.grid.width = x.grid.width,\n x.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n x.tick.show = TRUE,\n x.tick.suffix = x.tick.suffix,\n x.tick.prefix = x.tick.prefix,\n x.tick.decimals = NULL,\n x.tick.format.manual = \"\",\n x.hovertext.decimals = NULL,\n x.hovertext.format.manual = \"\",\n x.tick.angle = NULL,\n x.tick.font.color = NULL,\n x.tick.font.family = NULL,\n x.tick.font.size = 10,\n x.tick.label.autoformat = TRUE,\n series.marker.show = series.marker.show,\n series.marker.colors = NULL,\n series.marker.colors.reverse = FALSE,\n series.marker.opacity = 1,\n series.marker.size = 6,\n series.marker.border.width = 1,\n series.marker.border.colors = NULL,\n series.marker.border.colors.reverse = FALSE,\n series.marker.border.opacity = 1,\n series.line.width = series.line.width,\n series.line.colors = NULL,\n series.line.colors.reverse = FALSE,\n series.line.opacity = 1,\n tooltip.show = TRUE,\n modebar.show = FALSE,\n global.font.family = \"Arial\",\n global.font.color = rgb(44, 44, 44, maxColorValue=255),\n rows.to.ignore = formIgnoreRows,\n cols.to.ignore = formIgnoreColumns,\n bar.gap = 0.15,\n data.label.show = data.label.show,\n data.label.font.family = NULL,\n data.label.font.size = 10,\n data.label.font.color = NULL,\n data.label.decimals = data.label.decimals,\n data.label.prefix = data.label.prefix,\n data.label.suffix = data.label.suffix,\n data.label.threshold = NULL,\n data.label.position = \"top middle\",\n pie.order = \"initial\",\n pie.groups.order = \"initial\",\n pie.subslice.colors = outer.palette,\n pie.subslice.colors.reverse = FALSE,\n pie.subslice.colors.repeat = TRUE,\n pie.border.color = rgb(255, 255, 255, maxColorValue = 255),\n pie.inner.radius = radius,\n pie.show.percentages = pie.show.percentages,\n z.title = bubble.title,\n scatter.group.indices = group.indices,\n scatter.group.labels = group.labels,\n us.date.format = us.date.format)\n \nchart.3","lastSavedCode":"library(flipTransformations)\nlibrary(flipStandardCharts)\n \ndat <- if (!exists(\"formDataType\") || formDataType == \"Use an existing table\") {\n formTable\n} else {\n ParseEnteredData(formEnteredData)\n}\n \ntranspose <- ifelse(formType != \"Donut\", formTranspose, FALSE)\nouter.palette <- if (formType == \"Pie\" && formPaletteOuter != \"Group colors\") formPaletteOuter else NULL\nbubble.title <- ifelse(formType == \"Labeled Bubbleplot\", formZTitle, \"\")\nradius <- if (formType == \"Pie\" || formType == \"Donut\") formRadius else NULL\ngroup.indices <- if (formType == \"Labeled Scatterplot\" || formType == \"Labeled Bubbleplot\") formGroupIndices else NULL\ngroup.labels <- if (formType == \"Labeled Scatterplot\" || formType == \"Labeled Bubbleplot\") formGroupLabels else NULL\nx.grid.width <- if ((formType %in% c(\"Bar\", \"Stacked Bar\", \"100% Stacked Bar\", \"Labeled Scatterplot\",\n \"Labeled Bubbleplot\")) && formShowGrid) 1 else 0\ny.grid.width <- if ((formType %in% c(\"Area\", \"Stacked Area\", \"100% Stacked Area\", \"Line\", \"Column\",\n \"Stacked Column\", \"100% Stacked Column\", \"Labeled Scatterplot\",\n \"Labeled Bubbleplot\")) && formShowGrid) 1 else 0\nseries.line.width <- if (formType %in% c(\"Area\", \"Stacked Area\", \"100% Stacked Area\")) 0 else 3\ndata.label.show <- formType %in% c(\"Pie\", \"Donut\", \"Labeled Scatterplot\", \"Labeled Bubbleplot\") || formShowDataLabels\ndata.label.decimals <- if (data.label.show && !(formType %in% c(\"Labeled Scatterplot\", \"Labeled Bubbleplot\"))) formDataLabelDecimals else 2\nseries.marker.show <- if (formType %in% c(\"Labeled Scatterplot\", \"Labeled Bubbleplot\")) \"automatic\" else \"none\"\nx.tick.prefix <- \"\"\ny.tick.prefix <- \"\"\ndata.label.prefix <- \"\"\nx.tick.suffix <- \"\"\ny.tick.suffix <- \"\"\ndata.label.suffix <- \"\"\npie.show.percentages <- formType %in% c(\"Pie\", \"Donut\") && formPiePercentages\nif (!(formType %in% c(\"100% Stacked Area\", \"100% Stacked Bar\", \"100% Stacked Column\")) && !pie.show.percentages)\n{\n if (formType == \"Bar\" || formType == \"Labeled Scatterplot\" || formType == \"Labeled Bubbleplot\")\n {\n x.tick.prefix <- formPrefix\n x.tick.suffix <- formSuffix\n }\n if (formType != \"Bar\")\n {\n y.tick.prefix <- formPrefix\n y.tick.suffix <- formSuffix\n }\n data.label.prefix = formPrefix\n data.label.suffix = formSuffix\n if (formSuffix == \"%\" && formMultiplyBy100)\n dat <- 100 * dat\n} else if (pie.show.percentages)\n data.label.suffix <- \"%\"\nx.title <- if (!(formType %in% c(\"Pie\", \"Donut\"))) formXTitle else \"\"\ny.title <- if (!(formType %in% c(\"Pie\", \"Donut\"))) formYTitle else \"\"\nus.date.format <- if (!(formType %in% c(\"Labeled Scatterplot\", \"Labeled Bubbleplot\", \"Pie\", \"Donut\")))\n{\n if (formDateFormat == \"Default\")\n NULL\n else if (formDateFormat == \"US (mm/dd/yyyy)\")\n TRUE\n else if (formDateFormat == \"International (dd/mm/yyyy)\")\n FALSE\n else\n stop(paste(\"Date format not recognized:\", formDateFormat))\n}\n \nchart.3 <- Chart(y = dat,\n type = formType,\n transpose = transpose,\n title = formTitle,\n title.font.family = NULL,\n title.font.color = NULL,\n title.font.size = 16,\n colors = formPalette,\n colors.reverse = TRUE,\n opacity = NULL,\n background.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n background.fill.opacity = 1,\n charting.area.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n charting.area.fill.opacity = 1,\n legend.show = TRUE,\n legend.fill = rgb(255, 255, 255, maxColorValue = 255),\n legend.border.color = rgb(44, 44, 44, maxColorValue = 255),\n legend.border.line.width = 0,\n legend.font.color = NULL,\n legend.font.family = NULL,\n legend.font.size = 10,\n legend.position = \"right\",\n legend.ascending = TRUE,\n margin.top = NULL,\n margin.bottom = NULL,\n margin.left = NULL,\n margin.right = NULL,\n margin.inner.pad = NULL,\n y.title = y.title,\n y.title.font.color = NULL,\n y.title.font.family = NULL,\n y.title.font.size = 12,\n y.line.width = 0,\n y.line.color = rgb(0, 0, 0, maxColorValue = 255),\n y.tick.marks = \"\",\n y.tick.mark.length = 5,\n y.bounds.minimum = NULL,\n y.bounds.maximum = NULL,\n y.tick.distance = NULL,\n y.zero.line.width = 0,\n y.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n y.position = \"left\",\n y.data.reversed = FALSE,\n y.grid.width = y.grid.width,\n y.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n y.tick.show = TRUE,\n y.tick.suffix = y.tick.suffix,\n y.tick.prefix = y.tick.prefix,\n y.tick.decimals = NULL,\n y.tick.format.manual = \"\",\n y.hovertext.decimals = NULL,\n y.hovertext.format.manual = \"\",\n y.tick.angle = NULL,\n y.tick.font.color = NULL,\n y.tick.font.family = NULL,\n y.tick.font.size = 10,\n x.title = x.title,\n x.title.font.color = NULL,\n x.title.font.family = NULL,\n x.title.font.size = 12,\n x.line.width = 0,\n x.line.color = rgb(0, 0, 0, maxColorValue = 255),\n x.tick.marks = \"\",\n x.tick.mark.length = 5,\n x.bounds.minimum = NULL,\n x.bounds.maximum = NULL,\n x.tick.distance = NULL,\n x.zero.line.width = 0,\n x.zero.line.color = rgb(44, 44, 44, maxColorValue = 255),\n x.position = \"bottom\",\n x.data.reversed = FALSE,\n x.grid.width = x.grid.width,\n x.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n x.tick.show = TRUE,\n x.tick.suffix = x.tick.suffix,\n x.tick.prefix = x.tick.prefix,\n x.tick.decimals = NULL,\n x.tick.format.manual = \"\",\n x.hovertext.decimals = NULL,\n x.hovertext.format.manual = \"\",\n x.tick.angle = NULL,\n x.tick.font.color = NULL,\n x.tick.font.family = NULL,\n x.tick.font.size = 10,\n x.tick.label.autoformat = TRUE,\n series.marker.show = series.marker.show,\n series.marker.colors = NULL,\n series.marker.colors.reverse = FALSE,\n series.marker.opacity = 1,\n series.marker.size = 6,\n series.marker.border.width = 1,\n series.marker.border.colors = NULL,\n series.marker.border.colors.reverse = FALSE,\n series.marker.border.opacity = 1,\n series.line.width = series.line.width,\n series.line.colors = NULL,\n series.line.colors.reverse = FALSE,\n series.line.opacity = 1,\n tooltip.show = TRUE,\n modebar.show = FALSE,\n global.font.family = \"Arial\",\n global.font.color = rgb(44, 44, 44, maxColorValue=255),\n rows.to.ignore = formIgnoreRows,\n cols.to.ignore = formIgnoreColumns,\n bar.gap = 0.15,\n data.label.show = data.label.show,\n data.label.font.family = NULL,\n data.label.font.size = 10,\n data.label.font.color = NULL,\n data.label.decimals = data.label.decimals,\n data.label.prefix = data.label.prefix,\n data.label.suffix = data.label.suffix,\n data.label.threshold = NULL,\n data.label.position = \"top middle\",\n pie.order = \"initial\",\n pie.groups.order = \"initial\",\n pie.subslice.colors = outer.palette,\n pie.subslice.colors.reverse = FALSE,\n pie.subslice.colors.repeat = TRUE,\n pie.border.color = rgb(255, 255, 255, maxColorValue = 255),\n pie.inner.radius = radius,\n pie.show.percentages = pie.show.percentages,\n z.title = bubble.title,\n scatter.group.indices = group.indices,\n scatter.group.labels = group.labels,\n us.date.format = us.date.format)\n \nchart.3","highlightedCodeSpans":[{"start":97,"length":12,"index":4},{"start":144,"length":9,"index":4},{"start":225,"length":8,"index":4},{"start":246,"length":13,"index":4},{"start":289,"length":8,"index":4},{"start":310,"length":16,"index":4},{"start":346,"length":16,"index":4},{"start":396,"length":8,"index":4},{"start":460,"length":8,"index":4},{"start":481,"length":8,"index":4},{"start":502,"length":10,"index":4},{"start":544,"length":8,"index":4},{"start":581,"length":8,"index":4},{"start":662,"length":8,"index":4},{"start":699,"length":8,"index":4},{"start":780,"length":8,"index":4},{"start":968,"length":8,"index":4},{"start":1259,"length":8,"index":4},{"start":1349,"length":8,"index":4},{"start":1496,"length":8,"index":4},{"start":1559,"length":21,"index":4},{"start":1614,"length":8,"index":4},{"start":1852,"length":8,"index":4},{"start":1887,"length":18,"index":4},{"start":1912,"length":8,"index":4},{"start":2029,"length":8,"index":4},{"start":2050,"length":8,"index":4},{"start":2087,"length":8,"index":4},{"start":2152,"length":10,"index":4},{"start":2188,"length":10,"index":4},{"start":2213,"length":8,"index":4},{"start":2263,"length":10,"index":4},{"start":2299,"length":10,"index":4},{"start":2340,"length":10,"index":4},{"start":2375,"length":10,"index":4},{"start":2394,"length":10,"index":4},{"start":2415,"length":17,"index":4},{"start":2538,"length":8,"index":4},{"start":2608,"length":8,"index":4},{"start":2685,"length":8,"index":4},{"start":3087,"length":8,"index":4},{"start":3168,"length":9,"index":4},{"start":3341,"length":11,"index":4},{"start":8072,"length":14,"index":4},{"start":8125,"length":17,"index":4}],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":true,"guiControls":{"Code":"if (!form.dataEntry)\n form.dropBox({name: \"formTable\", label: \"Table\", types: [\"Table\", \"RItem:integer,numeric,matrix,array,data.frame,table\"], required: true});\nelse\n{\n var dt = form.comboBox({name: \"formDataType\", label: \"Data source\", alternatives: [\"Use an existing table\", \"Type or paste data\"], default_value: \"Use an existing table\"});\n if (dt.getValue() == \"Use an existing table\")\n form.dropBox({name: \"formTable\", label: \"Table\", types: [\"Table\", \"RItem:integer,numeric,matrix,array,data.frame,table\"], required: true});\n else\n form.dataEntry({name: \&