{"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 <- if (!exists("formDataType") || formDataType == "Use an existing table") {\n formTable\n} else\n flipTransformations::ParseEnteredData(formEnteredData)\n</pre>\n<pre class='debug-source'>>\n</pre>\n<pre class='debug-source'>>chart <- Chart(y = if (exists("formMultiplyBy100") && formMultiplyBy100) 100 * dat else dat,\n type = formType,\n transpose = formTranspose,\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 = formFooterFontSize,\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.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.tick.angle = NULL,\n y.tick.font.color = NULL,\n y.tick.font.family = NULL,\n y.tick.font.size = if (exists("formYTickFontSize")) formYTickFontSize else 0,\n x.title = if(exists("formXTitle")) formXTitle else "", # for radar charts, x-axis is angle along circumference\n x.title.font.color = NULL,\n x.title.font.family = NULL,\n x.title.font.size = if (exists("formXTitleFontSize")) formXTitleFontSize else 0,\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 = 1 * formShowGrid * !formType %in% c("Pie", "Donut", "Area", "Stacked Area", "100% Stacked Area", "Column", "Stacked Column", "100% Stacked Column", "Line"),\n x.grid.color = rgb(225, 225, 225, maxColorValue = 255),\n x.tick.show = if (exists("formShowX")) formShowX else TRUE,\n x.tick.suffix = formSuffix,\n x.tick.prefix = formPrefix,\n x.tick.decimals = NULL,\n x.tick.format.manual = "",\n x.hovertext.decimals = NULL,\n x.hovertext.format.manual = "",\n x.tick.angle = if (!exists("formLabelAngle")) NULL else switch(formLabelAngle, Automatic=NULL, Horizontal=0, Vertical=90, Diagonal=45),\n x.tick.font.color = NULL,\n x.tick.font.family = NULL,\n x.tick.font.size = if (exists("formXTickFontSize")) formXTickFontSize else 0,\n x.tick.label.autoformat = TRUE,\n x.tick.label.wordwrap = if (exists("formLabelWordwrap")) formLabelWordwrap else TRUE,\n wordwrap.nchar = if (exists("formWrapNchar")) formWrapNchar else 21,\n series.marker.show = if (formType %in% c("Labeled Scatterplot", "Labeled Bubbleplot")) "automatic" else "none",\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 = if (formType == "Scatterplot") 0 else 3,\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 = formFont,\n global.font.color = formFontColor,\n rows.to.ignore = formIgnoreRows,\n cols.to.ignore = formIgnoreColumns,\n bar.gap = 0.15,\n data.label.show = formShowDataLabels,\n data.label.font.family = NULL,\n data.label.font.size = if (exists("formDataLabelFontSize")) formDataLabelFontSize else 10,\n data.label.font.color = NULL,\n data.label.decimals = if (exists("formDataLabelDecimals")) formDataLabelDecimals else 0,\n data.label.prefix = formPrefix,\n data.label.suffix = formSuffix,\n data.label.threshold = NULL,\n data.label.position = "top middle",\n data.label.max.plot = if (exists("formMaxLab")) formMaxLab else NA,\n pie.order = "initial",\n pie.groups.order = "initial",\n pie.subslice.colors = formSubslicePalette,\n pie.subslice.colors.custom.color = if (exists("formSubsliceCustomColor")) formSubsliceCustomColor else NA,\n pie.subslice.colors.custom.gradient.start = if (exists("formSubsliceCustomGradientStart")) formSubsliceCustomGradientStart else NA,\n pie.subslice.colors.custom.gradient.end = if (exists("formSubsliceCustomGradientEnd")) formSubsliceCustomGradientEnd else NA,\n pie.subslice.colors.custom.palette = if (exists("formSubsliceCustomPalette")) formSubsliceCustomPalette else NA,\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 = formRadius,\n pie.show.percentages = formType %in% c("Pie", "Donut") && formPiePercentages,\n z.title = formZTitle,\n scatter.group.indices = formGroupIndices,\n scatter.group.labels = formGroupLabels,\n us.date.format = if (exists("formDateFormat") && formDateFormat != "Default") formDateFormat == "US (mm/dd/yyyy)" else NULL) \n</pre>\n<pre class='debug-source'>>\n</pre>\n<pre class='debug-source'>>chart\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>1.73s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 1.68s (pre 0.01s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 1.64s (pre 0.00s, post 0.71s) unexplained 0.03s apparmor forking (pre 0.02s, post 0.18s)\">1.68s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>0.73s</td></tr>\r\n<tr><th>Bytes sent:</th><td>9,416</td></tr>\r\n<tr><th>Bytes received:</th><td>39,287</td></tr>\r\n</table>\r\n</div>","message":"Loading required package: flipStandardCharts\n","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-298d43633466\" style=\"width:100%;height:400px;\" class=\"plotly html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-298d43633466\">{\"x\":{\"visdat\":{\"298d19bcd4dc\":[\"function () \",\"plotlyVisDat\"]},\"cur_data\":\"298d19bcd4dc\",\"attrs\":{\"298d19bcd4dc\":{\"alpha\":1,\"sizes\":[10,100],\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[0.54791037660893,0.433954063722376,0.47374988858187,0.39503317304766,0.405968914774098,0.407173672763575,0.335619518776703,0.388153665403117,0.281824097712369],\"fill\":\"tonexty\",\"fillcolor\":\"rgba(228,149,165,1)\",\"line\":{\"width\":0,\"color\":\"rgba(228,149,165,1)\"},\"name\":\"Colas (e.g., Coca Cola, Pepsi Max)?\",\"legendgroup\":\"grouped\",\"text\":\"\",\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\"},\"298d19bcd4dc.1\":{\"alpha\":1,\"sizes\":[10,100],\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[0.637279516923566,0.487713550198923,0.628130849451823,0.468896463570516,0.481235138022539,0.516811067137305,0.439144366988981,0.490811553723039,0.404314962206538],\"fill\":\"tonexty\",\"fillcolor\":\"rgba(134,184,117,1)\",\"line\":{\"width\":0,\"color\":\"rgba(134,184,117,1)\"},\"name\":\"Sparkling mineral water\",\"legendgroup\":\"grouped\",\"text\":\"\",\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\"},\"298d19bcd4dc.2\":{\"alpha\":1,\"sizes\":[10,100],\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[1,1,1,1,1,1,1,1,1],\"fill\":\"tonexty\",\"fillcolor\":\"rgba(125,176,221,1)\",\"line\":{\"width\":0,\"color\":\"rgba(125,176,221,1)\"},\"name\":\"Coffee\",\"legendgroup\":\"grouped\",\"text\":\"\",\"textposition\":\"top middle\",\"hoverinfo\":\"x+y+name\",\"mode\":\"lines\"}},\"layout\":{\"margin\":{\"b\":65,\"l\":80,\"t\":20,\"r\":60,\"pad\":0},\"title\":\"\",\"showlegend\":true,\"legend\":{\"bgcolor\":\"rgba(255,255,255,0)\",\"bordercolor\":\"#2C2C2C\",\"borderwidth\":0,\"font\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":10},\"xanchor\":\"left\",\"yanchor\":\"auto\",\"y\":1,\"x\":1.02,\"traceorder\":\"reversed\"},\"yaxis\":{\"domain\":[0,1],\"title\":\"% Total Share\",\"type\":\"linear\",\"titlefont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":12},\"tickfont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":10},\"showline\":false,\"linecolor\":\"#000000\",\"linewidth\":[],\"tickmode\":\"auto\",\"tickvals\":[],\"ticktext\":[],\"range\":[],\"rangemode\":\"tozero\",\"ticks\":\"\",\"tickangle\":[],\"ticklen\":0,\"tickcolor\":\"#000000\",\"dtick\":[],\"zeroline\":false,\"zerolinewidth\":0,\"zerolinecolor\":\"#2C2C2C\",\"tickformat\":\"%\",\"tickprefix\":\"\",\"ticksuffix\":\"\",\"autorange\":true,\"side\":\"left\",\"gridwidth\":1,\"gridcolor\":\"#E1E1E1\",\"showgrid\":true,\"hoverformat\":\".2f\",\"showexponent\":\"all\",\"showtickprefix\":true,\"showticksuffix\":true,\"showticklabels\":true},\"xaxis\":{\"domain\":[0,1],\"title\":\"Q3. Age\",\"type\":\"category\",\"titlefont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":12},\"tickfont\":{\"color\":\"#2C2C2C\",\"family\":\"Arial\",\"size\":10},\"showline\":false,\"linecolor\":\"#000000\",\"linewidth\":[],\"tickmode\":\"auto\",\"tickvals\":[],\"ticktext\":[],\"range\":[0,8],\"ticks\":\"\",\"tickangle\":0,\"ticklen\":5,\"tickcolor\":\"#000000\",\"dtick\":[],\"zeroline\":false,\"zerolinewidth\":0,\"zerolinecolor\":\"#2C2C2C\",\"tickformat\":\".f\",\"tickprefix\":\"\",\"ticksuffix\":\"\",\"autorange\":false,\"side\":\"bottom\",\"gridwidth\":0,\"gridcolor\":\"#E1E1E1\",\"showgrid\":false,\"hoverformat\":\".2f\",\"showexponent\":\"all\",\"showtickprefix\":true,\"showticksuffix\":true,\"showticklabels\":true},\"plot_bgcolor\":\"rgba(255,255,255,0)\",\"paper_bgcolor\":\"rgba(255,255,255,0)\",\"hovermode\":\"closest\",\"titlefont\":{\"family\":\"Arial\",\"color\":\"#2C2C2C\",\"size\":16},\"font\":{\"family\":\"Arial\",\"color\":\"#2C2C2C\",\"size\":10},\"bargap\":0.15,\"barmode\":\"\"},\"source\":\"A\",\"config\":{\"modeBarButtonsToAdd\":[{\"name\":\"Collaborate\",\"icon\":{\"width\":1000,\"ascent\":500,\"descent\":-50,\"path\":\"M487 375c7-10 9-23 5-36l-79-259c-3-12-11-23-22-31-11-8-22-12-35-12l-263 0c-15 0-29 5-43 15-13 10-23 23-28 37-5 13-5 25-1 37 0 0 0 3 1 7 1 5 1 8 1 11 0 2 0 4-1 6 0 3-1 5-1 6 1 2 2 4 3 6 1 2 2 4 4 6 2 3 4 5 5 7 5 7 9 16 13 26 4 10 7 19 9 26 0 2 0 5 0 9-1 4-1 6 0 8 0 2 2 5 4 8 3 3 5 5 5 7 4 6 8 15 12 26 4 11 7 19 7 26 1 1 0 4 0 9-1 4-1 7 0 8 1 2 3 5 6 8 4 4 6 6 6 7 4 5 8 13 13 24 4 11 7 20 7 28 1 1 0 4 0 7-1 3-1 6-1 7 0 2 1 4 3 6 1 1 3 4 5 6 2 3 3 5 5 6 1 2 3 5 4 9 2 3 3 7 5 10 1 3 2 6 4 10 2 4 4 7 6 9 2 3 4 5 7 7 3 2 7 3 11 3 3 0 8 0 13-1l0-1c7 2 12 2 14 2l218 0c14 0 25-5 32-16 8-10 10-23 6-37l-79-259c-7-22-13-37-20-43-7-7-19-10-37-10l-248 0c-5 0-9-2-11-5-2-3-2-7 0-12 4-13 18-20 41-20l264 0c5 0 10 2 16 5 5 3 8 6 10 11l85 282c2 5 2 10 2 17 7-3 13-7 17-13z m-304 0c-1-3-1-5 0-7 1-1 3-2 6-2l174 0c2 0 4 1 7 2 2 2 4 4 5 7l6 18c0 3 0 5-1 7-1 1-3 2-6 2l-173 0c-3 0-5-1-8-2-2-2-4-4-4-7z m-24-73c-1-3-1-5 0-7 2-2 3-2 6-2l174 0c2 0 5 0 7 2 3 2 4 4 5 7l6 18c1 2 0 5-1 6-1 2-3 3-5 3l-174 0c-3 0-5-1-7-3-3-1-4-4-5-6z\"},\"click\":\"function(gd) { \\n // is this being viewed in RStudio?\\n if (location.search == '?viewer_pane=1') {\\n alert('To learn about plotly for collaboration, visit:\\\\n https://cpsievert.github.io/plotly_book/plot-ly-for-collaboration.html');\\n } else {\\n window.open('https://cpsievert.github.io/plotly_book/plot-ly-for-collaboration.html', '_blank');\\n }\\n }\"}],\"cloud\":false,\"displayModeBar\":false},\"data\":[{\"type\":\"scatter\",\"x\":[\"18 to 24\",\"25 to 29\",\"30 to 34\",\"35 to 39\",\"40 to 44\",\"45 to 49\",\"50 to 54\",\"55 to 64\",\"65 +\"],\"y\":[0.54791037660893,0.433954063722376,0.47374988858187,