{"size":{"Width":697,"Height":290},"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'>>require(flipStandardCharts)\n</pre>\n<pre class='debug-message'>Loading required package: flipStandardCharts\n</pre>\n<pre class='debug-source'>>dat <- NULL\n</pre>\n<pre class='debug-source'>>if (!exists("formDataType") || formDataType == "Use an existing table" || formDataType == "Use multiple existing tables")\n dat <- formTable\n</pre>\n<pre class='debug-source'>>if (exists("formEnteredData"))\n dat <- flipTransformations::ParseEnteredData(formEnteredData)\n</pre>\n<pre class='debug-source'>>\n</pre>\n<pre class='debug-source'>>chart.type <- formType\n</pre>\n<pre class='debug-source'>>if (formType == "Scatterplot" && exists("formShowLab") && formShowLab)\n chart.type <- "Labeled Scatterplot"\n</pre>\n<pre class='debug-source'>>if (formType == "Scatterplot" && exists("formVLabels") && !is.null(formVLabels))\n chart.type <- "Labeled Scatterplot"\n</pre>\n<pre class='debug-source'>>if (formType == "Scatterplot" && exists("formDataType") && formDataType == "Use multiple existing tables")\n chart.type <- "Labeled Scatterplot"\n</pre>\n<pre class='debug-source'>>\n</pre>\n<pre class='debug-source'>>if (formType == "Scatterplot" && formDataType == "Variables")\n{\n var.labels <- NULL\n if (exists("formVHover") && !is.null(formVHover))\n {\n var.labels <- formVHover\n } else\n var.labels <- formVLabels\n print(str(var.labels))\n}\n</pre>\n<pre class='debug-out'> Factor w/ 50 levels "Alabama","Alaska",..: 1 2 3 4 5 6 7 8 9 10 ...\n - attr(*, "questiontype")= chr "PickOne"\n - attr(*, "name")= chr "state"\n - attr(*, "label")= chr "State"\n - attr(*, "question")= chr "State"\nNULL\n</pre>\n<pre class='debug-source'>>\n</pre>\n<pre class='debug-source'>>chart.2 <- Chart(y = if (exists("formMultiplyBy100") && formMultiplyBy100) 100 * dat else dat,\n type = chart.type,\n weights = QPopulationWeight,\n subset = QFilter,\n transpose = if (exists("formTranspose")) formTranspose else FALSE,\n title = formTitle,\n title.font.family = NULL,\n title.font.color = NULL,\n title.font.size = formTitleFontSize,\n subtitle = if (exists("formSubtitle")) formSubtitle else "",\n subtitle.font.size = formSubtitleFontSize,\n footer = if (exists("formFooter")) formFooter else "",\n footer.font.size = if (exists("formFooterFontSize")) formFooterFontSize else 8,\n footer.wordwrap = if (exists("formFooterWordwrap")) formFooterWordwrap else FALSE,\n footer.wordwrap.nchar = formFooterWrapNchar,\n colors = formPalette,\n colors.custom.color = if (exists("formCustomColor")) formCustomColor else NA,\n colors.custom.gradient.start = if (exists("formCustomGradientStart")) formCustomGradientStart else NA,\n colors.custom.gradient.end = if (exists("formCustomGradientEnd")) formCustomGradientEnd else NA,\n colors.custom.palette = if (exists("formCustomPalette")) formCustomPalette else NA, \n colors.reverse = FALSE,\n opacity = NULL,\n background.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n background.fill.opacity = 0,\n charting.area.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n charting.area.fill.opacity = 0,\n legend.show = TRUE,\n legend.fill.color = rgb(255, 255, 255, maxColorValue = 255),\n legend.fill.opacity = 0,\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 = NA,\n margin.top = NULL,\n margin.bottom = NULL,\n margin.left = NULL,\n margin.right = NULL,\n margin.inner.pad = NULL,\n y.title = if (exists("formYTitle")) formYTitle else "",\n y.title.font.color = NULL, # for radar-charts, yaxis is the dimension extending from center (i.e. radius)\n y.title.font.family = NULL,\n y.title.font.size = if (exists("formYTitleFontSize")) formYTitleFontSize else 0,\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 = TRUE,\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 = 1 * formShowGrid * !formType %in% c("Pie", "Donut", "Bar", "Stacked Bar", "100% Stacked Bar"),\n y.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n y.tick.show = if (exists("formShowY")) formShowY else TRUE,\n y.tick.suffix = formSuffix,\n y.tick.prefix = formPrefix,\n y.tick.decimals = NULL,\n y.tick.format.manual = "",\n y.hovertext.decimals = NULL,\n y.hovertext.format.manual = "",\n y.ti