{"size":{"Width":417,"Height":90},"appearance":{"background":"rgb(192, 192, 192)","padding":14,"font":{"family":"Arial","size":14.0,"bold":false,"italic":false,"underline":false,"strikeout":false,"color":"rgb(0,72,168)"},"border":{"on":true,"size":3.0,"style":"solid","color":"#666"},"text":{"wrap":true,"hAlign":"center","vAlign":"middle"}},"outputType":"TEXT","widgetState":null,"outputs":{"text":"Base: total sample; sample size: 74; data collected online on 29 November 2017.","console":"<pre class='debug-source'>&gt;n &lt;- length(QPopulationWeight[QFilter])\n</pre>\n<pre class='debug-source'>&gt;base &lt;- attr(QFilter, &quot;label&quot;)\n</pre>\n<pre class='debug-source'>&gt;if (base == &quot;Total sample&quot;)\n base &lt;- formTotalSample;\n</pre>\n<pre class='debug-source'>&gt;n &lt;- sum(!is.na(formComplete) &amp; QFilter, na.rm = TRUE)\n</pre>\n<pre class='debug-source'>&gt;paste0(formInitial, base, &quot;; sample size: &quot;, n, formFinal)\n</pre>\n<pre class='debug-out'>[1] &quot;Base: total sample; sample size: 74; data collected online on 29 November 2017.&quot;\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>0.22s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 0.12s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 0.10s (pre 0.00s, post 0.01s) unexplained 0.03s apparmor forking (pre 0.00s, post 0.00s)\">0.12s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>0.05s</td></tr>\r\n<tr><th>Bytes sent:</th><td>2,996</td></tr>\r\n<tr><th>Bytes received:</th><td>2,304</td></tr>\r\n</table>\r\n</div>","message":"","warning":""},"secondsTaken":0.21876920000000002,"updated":"2017-12-01T05:25:34.6203196Z","lastUpdatedMessage":null,"executedCode":"n <- length(QPopulationWeight[QFilter])\nbase <- attr(QFilter, \"label\")\nif (base == \"Total sample\")\n base <- formTotalSample;\nn <- sum(!is.na(formComplete) & QFilter, na.rm = TRUE)\npaste0(formInitial, base, \"; sample size: \", n, formFinal)","lastSavedCode":"n <- length(QPopulationWeight[QFilter])\nbase <- attr(QFilter, \"label\")\nif (base == \"Total sample\")\n base <- formTotalSample;\nn <- sum(!is.na(formComplete) & QFilter, na.rm = TRUE)\npaste0(formInitial, base, \"; sample size: \", n, formFinal)","highlightedCodeSpans":[{"start":12,"length":17,"index":6},{"start":30,"length":7,"index":6},{"start":53,"length":7,"index":6},{"start":111,"length":15,"index":4},{"start":144,"length":12,"index":4},{"start":160,"length":7,"index":6},{"start":190,"length":11,"index":4},{"start":232,"length":9,"index":4}],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":true,"guiControls":{"Code":"form.textBox({label: \"Initial text\", name: \"formInitial\", default_value: \"Base: \"})\nform.textBox({label: \"Total sample description\", name: \"formTotalSample\", default_value: \"total sample\"})\nform.textBox({label: \"Sample size description\", name: \"formN\", default_value: \"; sample size:\"})\nform.textBox({label: \"Final text\", name: \"formFinal\", required: false})\nform.dropBox({label: \"Complete data variable\", \n types:[\"Variable: Numeric, Date/Time, Money, Categorical, OrderedCategorical\"], \n name: \"formComplete\", \n required: true, \n prompt: \"The sample size is computed as all observations included in the filter with no missing values on this variable.\"})","JSError":null,"JSErrorDetails":null,"ControlDefinitionErrors":null,"InputValidationErrors":null,"Controls":[{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formInitial","Page":null,"Group":null,"Type":"TextBox","Label":"Initial text","LabelEmphasised":false,"Value":"Base: ","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":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formTotalSample","Page":null,"Group":null,"Type":"TextBox","Label":"Total sample description","LabelEmphasised":false,"Value":"total sample","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":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formN","Page":null,"Group":null,"Type":"TextBox","Label":"Sample size description","LabelEmphasised":false,"Value":"; sample size:","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":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formFinal","Page":null,"Group":null,"Type":"TextBox","Label":"Final text","LabelEmphasised":false,"Value":"; data collected online on 29 November 2017.","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":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formComplete","Page":null,"Group":null,"Type":"DropBox","Label":"Complete data variable","LabelEmphasised":false,"Value":"1c1344e4-c800-4358-8e59-9875e445ea14","Allowed":["d97d18c4-0101-4da6-a269-62b61768f35c","916e27bd-69e7-4460-8b4a-119cdca2c718","6fbe5dd0-88e9-4974-a07b-ff9c9a489fb9","ee665918-29c4-4106-a46a-f2418e438d37","0e43a515-46a9-4a8e-bcf9-374646ec37e5","e0f159f7-4371-480e-823a-4419935e25f6","c415e444-109b-4286-accd-3a9eede37c65","1c1344e4-c800-4358-8e59-9875e445ea14","f144a31d-a846-4ed9-b9b3-618de3246d53","6c45df70-9bd8-4406-8c90-2d94acad7aba","e6be3f39-c4af-454a-b108-b5039a614314","d9f40b8c-6eeb-4223-9dc7-9207b0f4b096","128c0f7e-9937-465a-8e0e-1c2cba85df2d","a7f98a25-016c-4481-a0e5-e96f1488e496","0b457aed-0a0c-4a5f-b3a8-2d64a4698865","b8248247-c2ae-4e2f-80cc-bbea82c1f63e","0a1b88b9-f1cf-43c9-b940-1883314e047d","f17e8020-5f14-40ae-bae7-2c7c64bd17b9","50754098-932a-4614-a4f9-e7c82f3fb18e","d1213649-9525-435d-83ae-d94f5807f350","4b1cf45b-b4a9-4f2e-b5b5-efb84c801b04","ea18f694-92e9-49f4-92c1-ba37150157c3","fc91ebd9-bdbf-4ed5-b4b4-303ac67fbce2","ff40585c-d6bd-4acc-871b-899cb13e8b81","786bddb4-6a49-4c44-8206-0e7ba492bb4e","e11443ea-bea5-42b6-a605-de0b138ca488","1aaaf871-508d-42c8-bcf7-22c9ad643a60","6406d9e7-87f7-49da-84ea-2a35e84bf542","8f80a6ee-6c48-431e-a37c-63959266e07d","8cdd3a0a-0ef2-4135-a204-fe4e5a36129e","4735d33c-4af8-40ff-99b2-7125a371901d","e6b7c8d7-1bde-4a8f-909d-e609354e45ff","f11b497e-333c-45a3-86ec-52cbb0b34e2d","239d0312-2650-4565-8334-f7abe8527d9e","6dfdcb2f-84e6-4271-a484-0134230525e3","cc53deba-bbb3-4bf3-ad3c-2c430c445561","a04b4eee-04a5-4afc-ab49-ead15a6b4ed0","9e27113d-3518-4bf0-8310-ee01279b027f","b989550e-9254-4f7e-b622-3ac91d73a79b","8d4cb892-b8a0-4f9e-b440-e12db0bb7025","4e9041f0-679a-40a2-89df-c4ab2aaf9361","f9c39681-a539-4e92-bf82-b7bf7c26c620","2aaf91a0-a2a0-411d-be33-8d66bd582353","0f606d89-fefa-4930-b353-62c0020820ee","f46eedc8-7e6b-4665-a278-2632c75a37d3","2adcb2c7-2e89-44a1-a423-46eaac29708b","db04c8fd-0417-46a7-a404-f83b3bab9cb4","821f266d-4224-40a4-afcf-27a34a9082c5","a6fcb13d-b81d-4c52-8437-a1604dd8350d","70c47feb-d963-444f-b539-567d9090b5a0","6b7e5fa8-641b-4826-bc6f-f40cb7f62d0c","cbd55e8b-8f82-4e3b-9325-1974dfeffe05","685d2cc8-2510-4256-b573-d01f2941d9c2","c4e291b0-e40d-47af-99d8-8802a1805386","095fc8e0-1b2b-4d79-859a-6a1dc72b8656","851ee830-5838-4647-997b-b5d58c00cd4d","bb7a51f9-f5c6-40b6-b084-8f3acb13dc97","8b1d549f-adaf-47bb-a1c7-f40b43d343a4","e6192074-9813-453f-83af-df5f5e7421e0","48d44d43-a0c0-4d83-a6d0-cbb38ae5b366","2c873994-b01f-4c1c-969a-6e0220bda42f","9b0a9060-2538-4c5e-9636-4e094f9521d0","7bc6c14d-cb18-4b57-b265-7a10b678d9e4","f47892c6-5828-494d-89f0-775447a864ee","5d191bfb-a385-413c-a881-e1ba1c026a89","2abe4617-9dea-47b3-8ad5-3c8a5288bbb0","3a16a85f-7487-4c0c-8d46-4f252833bf37","531badb6-2b79-494d-9131-35fa2842070f","0289652e-4cac-4ef5-b253-9a378ff8951f","9b89ce57-607b-43ee-9cc2-0bd02f605831","6ef5eb34-0adf-42db-be75-1ade80d9d182","852fd428-ec68-4110-bb22-38870bb3134e","03a3af68-d2be-48cd-bc8d-da8b9370d892","cb83aeb9-1154-4fa8-83f6-3792e52b72ce","f5599b72-9ea0-4b7e-9bb1-c705020b5772","26a7f22c-2a1b-4221-8f16-9023e79efac2","84fbe71a-6ce1-404a-bd2b-461db0dd7e55","a806190e-ba87-48ca-8195-896f01131f81","50438c3a-3a0e-42a9-bca5-4d21592b3870"],"EmptyListMessage":null,"Multi":false,"Prompt":"The sample size is computed as all observations included in the filter with no missing values on this variable.","ErrorMessage":"Complete data variable: Complete data variable accepts only one input which is of type Variable (Numeric, Date/Time, Money, Categorical or Orderedcategorical).","Invalid":null,"Required":true,"AllowedTypes":["Variable: Numeric, Date/Time, Money, Categorical, OrderedCategorical"],"MinInputs":1,"MaxInputs":1,"Height":1,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Page":null,"Group":null,"Type":null,"Label":null,"LabelEmphasised":false,"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}]},"calculating":"Idle","showDebug":false,"layout":"OutputOnly","vSplit":0.25,"hSplit":0.45,"updateWarnings":true,"updateMode":"Manual","warnSlow":false,"Options":{"debugconsole":false,"codeposition":"OutputOnly","splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Manual","warn slow":false}}