{"size":{"Width":462,"Height":210},"appearance":{"background":null,"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":" Group.1 Group.2 Salary Age\n1 Cook Dinner 1600 22\n2 Manager Dinner 2000 41\n3 Server Dinner 1500 25\n4 Cook Lunch 1000 19\n5 Manager Lunch 2200 32\n6 Server Lunch 1200 24\n","console":"<pre class='debug-source'>&gt;data &lt;- table\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;second &lt;- function(x) {\n if (length(x) == 1)\n return(x)\n return(sort(x, decreasing = TRUE)[2])}\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;agg &lt;- aggregate(data,\n by = list(data$Role, data$Shift),\n FUN = second)\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;agg$Name &lt;- agg$Role &lt;- agg$Shift &lt;- NULL\n</pre>\n<pre class='debug-source'>&gt;agg\n</pre>\n<pre class='debug-out'> Group.1 Group.2 Salary Age\n1 Cook Dinner 1600 22\n2 Manager Dinner 2000 41\n3 Server Dinner 1500 25\n4 Cook Lunch 1000 19\n5 Manager Lunch 2200 32\n6 Server Lunch 1200 24\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>2.38s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 2.31s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 2.28s (pre 0.00s, post 0.02s) unexplained 0.03s apparmor forking (pre 0.00s, post 0.00s)\">2.31s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>2.17s</td></tr>\r\n<tr><th>Bytes sent:</th><td>1,767</td></tr>\r\n<tr><th>Bytes received:</th><td>2,842</td></tr>\r\n</table>\r\n</div>","message":"","warning":"","table":"{\"Dimensions\":[{\"IsStatistic\":true,\"Elements\":[{\"IsNumber\":false,\"IsBoolean\":false,\"IsDateTime\":false,\"IsPercent\":false,\"HasDecimalPlaces\":true,\"DecimalPlaces\":0,\"MoneySymbol\":null,\"IsCategorical\":false,\"Categories\":[],\"SeriesType\":0,\"Id\":\"StatisticsElement0\",\"Name\":\"Group.1\",\"WrappedName\":[\"Group.1\"],\"IsText\":true},{\"IsNumber\":false,\"IsBoolean\":false,\"IsDateTime\":false,\"IsPercent\":false,\"HasDecimalPlaces\":true,\"DecimalPlaces\":0,\"MoneySymbol\":null,\"IsCategorical\":false,\"Categories\":[],\"SeriesType\":0,\"Id\":\"StatisticsElement1\",\"Name\":\"Group.2\",\"WrappedName\":[\"Group.2\"],\"IsText\":true},{\"IsNumber\":true,\"IsBoolean\":false,\"IsDateTime\":false,\"IsPercent\":false,\"HasDecimalPlaces\":true,\"DecimalPlaces\":0,\"MoneySymbol\":null,\"IsCategorical\":false,\"Categories\":[],\"SeriesType\":0,\"Id\":\"StatisticsElement2\",\"Name\":\"Salary\",\"WrappedName\":[\"Salary\"],\"IsText\":false},{\"IsNumber\":true,\"IsBoolean\":false,\"IsDateTime\":false,\"IsPercent\":false,\"HasDecimalPlaces\":true,\"DecimalPlaces\":0,\"MoneySymbol\":null,\"IsCategorical\":false,\"Categories\":[],\"SeriesType\":0,\"Id\":\"StatisticsElement3\",\"Name\":\"Age\",\"WrappedName\":[\"Age\"],\"IsText\":false}],\"Id\":\"StatisticsDimensionID\",\"Name\":null,\"WrappedName\":null,\"Tiers\":[],\"Count\":4},{\"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\":\"RowCategoricalDimension\",\"Name\":null,\"WrappedName\":null,\"Tiers\":[],\"Count\":6}],\"DataPoints\":[[{\"Value\":\"Cook\",\"WrappedText\":[\"Cook\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Manager\",\"WrappedText\":[\"Manager\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Server\",\"WrappedText\":[\"Server\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Cook\",\"WrappedText\":[\"Cook\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Manager\",\"WrappedText\":[\"Manager\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Server\",\"WrappedText\":[\"Server\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null}],[{\"Value\":\"Dinner\",\"WrappedText\":[\"Dinner\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Dinner\",\"WrappedText\":[\"Dinner\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Dinner\",\"WrappedText\":[\"Dinner\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Lunch\",\"WrappedText\":[\"Lunch\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Lunch\",\"WrappedText\":[\"Lunch\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":\"Lunch\",\"WrappedText\":[\"Lunch\"],\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null}],[{\"Value\":1600.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2000.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":1500.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":1000.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":2200.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":1200.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null}],[{\"Value\":22.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":41.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":25.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":19.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":32.0,\"WrappedText\":null,\"IsBlank\":null,\"Significance\":null,\"ExtraText\":null},{\"Value\":24.0,\"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\":462,\"AvailableHeight\":210,\"TableWidth\":null}}"},"secondsTaken":2.3815614,"updated":"2018-06-18T07:05:50.5251244Z","lastUpdatedMessage":null,"executedCode":"data <- table\n\nsecond <- function(x) {\n if (length(x) == 1)\n return(x)\n return(sort(x, decreasing = TRUE)[2])}\n\nagg <- aggregate(data,\n by = list(data$Role, data$Shift),\n FUN = second)\n\nagg$Name <- agg$Role <- agg$Shift <- NULL\nagg\n\n\n\n","lastSavedCode":"data <- table\n\nsecond <- function(x) {\n if (length(x) == 1)\n return(x)\n return(sort(x, decreasing = TRUE)[2])}\n\nagg <- aggregate(data,\n by = list(data$Role, data$Shift),\n FUN = second)\n\nagg$Name <- agg$Role <- agg$Shift <- NULL\nagg\n\n\n\n","highlightedCodeSpans":[{"start":8,"length":5,"index":2}],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":false,"guiControls":{"Code":"","JSError":null,"JSErrorDetails":null,"ControlDefinitionErrors":null,"InputValidationErrors":null,"Controls":[{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Page":null,"Group":null,"Type":null,"Label":null,"LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":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":"Automatic","warnSlow":true,"Options":{"debugconsole":false,"codeposition":"OutputOnly","splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Automatic","warn slow":true}}

>data <- table

>

>second <- function(x) {
    if (length(x) == 1)
        return(x)
    return(sort(x, decreasing = TRUE)[2])}

>

>agg <- aggregate(data,
                 by = list(data$Role, data$Shift),
                 FUN = second)

>

>agg$Name <- agg$Role <- agg$Shift <- NULL

>agg

  Group.1 Group.2 Salary Age
1    Cook  Dinner   1600  22
2 Manager  Dinner   2000  41
3  Server  Dinner   1500  25
4    Cook   Lunch   1000  19
5 Manager   Lunch   2200  32
6  Server   Lunch   1200  24