{"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":"TABLE","widgetState":null,"outputs":{"text":" sales advertising\n1 1261.08 43.60\n2 1475.28 50.44\n3 1657.52 59.01\n4 2059.05 66.30\n5 2303.76 82.36\n6 2512.64 92.15\n7 2751.46 100.51\n8 2787.67 110.06\n9 2939.13 111.51\n","console":"<pre class='debug-source'>&gt;raw.data = data.frame(if (length(formVariables) == 1) formVariables[[1]] else formVariables)\n</pre>\n<pre class='debug-source'>&gt;raw.data = raw.data[QFilter,, drop = FALSE]\n</pre>\n<pre class='debug-source'>&gt;names(raw.data) &lt;- if(!formNames) lapply(formVariables, flipFormat::Labels) else lapply(formVariables, flipFormat::Names)\n</pre>\n<pre class='debug-source'>&gt;if (nrow(raw.data) * ncol(raw.data) &gt; 1000000)\n stop(&quot;Your table contains more than 1,000,000 cells. To get around this limitation, edit the R Code, or, create tables using RAW DATA.&quot;)\n</pre>\n<pre class='debug-source'>&gt;raw.data &lt;- raw.data\n</pre>\n<pre class='debug-out'> sales advertising\n1 1261.08 43.60\n2 1475.28 50.44\n3 1657.52 59.01\n4 2059.05 66.30\n5 2303.76 82.36\n6 2512.64 92.15\n7 2751.46 100.51\n8 2787.67 110.06\n9 2939.13 111.51\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>0.18s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 0.15s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 0.14s (pre 0.00s, post 0.01s) unexplained 0.01s apparmor forking (pre 0.03s, post 0.00s)\">0.15s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>0.10s</td></tr>\r\n<tr><th>Bytes sent:</th><td>2,251</td></tr>\r\n<tr><th>Bytes received:</th><td>3,354</td></tr>\r\n</table>\r\n</div>","message":"","warning":"","table":"{\"Dimensions\":[{\"IsStatistic\":true,\"Elements\":[{\"IsNumber\":true,\"IsBoolean\":false,\"IsDateTime\":false,\"IsPercent\":false,\"HasDecimalPlaces\":true,\"DecimalPlaces\":1,\"MoneySymbol\":null,\"IsCategorical\":false,\"Categories\":[],\"SeriesType\":0,\"Id\":\"StatisticsElement0\",\"Name\":\"sales\",\"WrappedName\":[\"sales\"],\"IsText\":false},{\"IsNumber\":true,\"IsBoolean\":false,\"IsDateTime\":false,\"IsPercent\":false,\"HasDecimalPlaces\":true,\"DecimalPlaces\":1,\"MoneySymbol\":null,\"IsCategorical\":false,\"Categories\":[],\"SeriesType\":0,\"Id\":\"StatisticsElement1\",\"Name\":\"advertising\",\"WrappedName\":[\"advertising\"],\"IsText\":false}],\"Id\":\"StatisticsDimensionID\",\"Name\":null,\"WrappedName\":null,\"Tiers\":[],\"Count\":2},{\"IsStatistic\":false,\"Elements\":[{\"Id\":\"RowDimensionElement0\",\"Name\":\"1\",\"WrappedName\":[\"1\"]},{\"Id\":\"RowDimensionElement1\",\"Name\":\"2\",\"WrappedName\":[\"2\"]},{\"Id\":\"RowDimensionElement2\",\"Name\":\"3\",\"WrappedName\":[\"3\"]},{\"Id\":\"RowDimensionElement3\",\"Name\":\"4\",\"WrappedName\":[\"4\"]},{\"Id\":\"RowDimensionElement4\",\"Name\":\"5\",\"WrappedName\":[\"5\"]},{\"Id\":\"RowDimensionElement5\",\"Name\":\"6\",\"WrappedName\":[\"6\"]},{\"Id\":\"RowDimensionElement6\",\"Name\":\"7\",\"WrappedName\":[\"7\"]},{\"Id\":\"RowDimensionElement7\",\"Name\":\"8\",\"WrappedName\":[\"8\"]},{\"Id\":\"RowDimensionElement8\",\"Name\":\"9\",\"WrappedName\":[\"9\"]}],\"Id\":\"RowCategoricalDimension\",\"Name\":null,\"WrappedName\":null,\"Tiers\":[],\"Count\":9}],\"DataPoints\":[[{\"Value\":1261.08,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":1475.28,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":1657.52,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2059.05,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2303.76,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2512.64,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2751.46,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2787.67,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2939.13,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null}],[{\"Value\":43.6,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":50.44,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":59.01,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":66.3,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":82.36,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":92.15,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":100.51,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":110.06,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":111.51,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null}]],\"Settings\":{\"CellDimensionId\":null,\"RowDimensionsIds\":[\"RowCategoricalDimension\"],\"ColumnDimensionsIds\":[\"StatisticsDimensionID\"],\"ColumnHeadersHidden\":false,\"Title\":null,\"Footnote\":null,\"IsRowHeadersSortable\":false,\"IsColumnHeadersSortable\":true,\"HeaderSorts\":[],\"IsRowHeadersFilterable\":false,\"IsColumnHeadersFilterable\":true,\"HeaderFilters\":[],\"PaginationParameters\":null,\"TableStyleCssClass\":\"style-97ba0187-37c0-47a1-a4ad-31b0f5281e77-1-_-_\",\"LiveTableFormat\":{},\"AvailableWidth\":288,\"AvailableHeight\":273,\"TableWidth\":null}}","visible":"yes"},"secondsTaken":0.18208600000000003,"updated":"2017-03-01T02:25:25.0201191Z","lastUpdatedMessage":null,"executedCode":"raw.data = data.frame(if (length(formVariables) == 1) formVariables[[1]] else formVariables)\nraw.data = raw.data[QFilter,, drop = FALSE]\nnames(raw.data) <- if(!formNames) lapply(formVariables, flipFormat::Labels) else lapply(formVariables, flipFormat::Names)\nif (nrow(raw.data) * ncol(raw.data) > 1000000)\n stop(\"Your table contains more than 1,000,000 cells. To get around this limitation, edit the R Code, or, create tables using RAW DATA.\")\nraw.data <- raw.data","lastSavedCode":"raw.data = data.frame(if (length(formVariables) == 1) formVariables[[1]] else formVariables)\nraw.data = raw.data[QFilter,, drop = FALSE]\nnames(raw.data) <- if(!formNames) lapply(formVariables, flipFormat::Labels) else lapply(formVariables, flipFormat::Names)\nif (nrow(raw.data) * ncol(raw.data) > 1000000)\n stop(\"Your table contains more than 1,000,000 cells. To get around this limitation, edit the R Code, or, create tables using RAW DATA.\")\nraw.data <- raw.data","highlightedCodeSpans":[{"start":33,"length":13,"index":4},{"start":54,"length":13,"index":4},{"start":78,"length":13,"index":4},{"start":113,"length":7,"index":6},{"start":160,"length":9,"index":4},{"start":178,"length":13,"index":4},{"start":225,"length":13,"index":4}],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":true,"guiControls":{"Code":"form.setHeading('Raw Data');\nform.dropBox({label: \"Variables\", \n types:[\"Variable: Numeric, Date, Money, Categorical, OrderedCategorical, Text\"], \n name: \"formVariables\",\n multi:true})\nform.checkBox({label: \"Variable names\", name: \"formNames\", default_value: false})","JSError":null,"JSErrorDetails":null,"Errors":null,"Controls":[{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Type":"Heading","Label":null,"Value":null,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":"Raw Data","Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formVariables","Type":"DropBox","Label":"Variables","Value":null,"Allowed":["eaef6812-2deb-4288-ac8e-e5f0df8edbda","6669e2d7-d66d-4eea-a707-1ade7441fd46"],"EmptyListMessage":null,"Multi":true,"Prompt":"Select at least one input which is of type Variable (Numeric, Date, Money, Categorical, Orderedcategorical or Text).","ErrorMessage":"Variables: Variables accepts only inputs which are of type Variable (Numeric, Date, Money, Categorical, Orderedcategorical or Text).","Invalid":null,"Required":true,"AllowedTypes":["Variable: Numeric, Date, Money, Categorical, OrderedCategorical, Text"],"MinInputs":1,"MaxInputs":2147483647,"Height":4,"Duplicates":false,"Values":["eaef6812-2deb-4288-ac8e-e5f0df8edbda","6669e2d7-d66d-4eea-a707-1ade7441fd46"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formNames","Type":"CheckBox","Label":"Variable names","Value":false,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":"left","Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Type":null,"Label":null,"Value":null,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":true}]},"showDebug":false,"layout":"OutputOnly","size":{"Width":288,"Height":273},"vSplit":0.25,"hSplit":0.45,"updateWarnings":true,"updateMode":"Automatic","warnSlow":true,"outputSize":{"Width":288,"Height":273},"Options":{"debugconsole":false,"codeposition":"OutputOnly","size":{"width":288,"height":273},"splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Automatic","warn slow":true}}

>raw.data = data.frame(if (length(formVariables) == 1) formVariables[[1]] else formVariables)

>raw.data = raw.data[QFilter,, drop = FALSE]

>names(raw.data) <- if(!formNames) lapply(formVariables, flipFormat::Labels) else lapply(formVariables, flipFormat::Names)

>if (nrow(raw.data) * ncol(raw.data) > 1000000)
    stop("Your table contains more than 1,000,000 cells. To get around this limitation, edit the R Code, or, create tables using RAW DATA.")

>raw.data <- raw.data

    sales advertising
1 1261.08       43.60
2 1475.28       50.44
3 1657.52       59.01
4 2059.05       66.30
5 2303.76       82.36
6 2512.64       92.15
7 2751.46      100.51
8 2787.67      110.06
9 2939.13      111.51