| # @drob's version from https://twitter.com/drob/status/1501747414780239879 | |
| pluck_recursive <- function(lst, name) { | |
| if (is.list(lst)) { | |
| if (!is.null(lst[[name]])) { | |
| return(lst[[name]]) | |
| } | |
| return(unname(unlist(purrr::map(lst, pluck_recursive, name)))) | |
| } | |
| } |
| # What's the most natural way to express this code in base R? | |
| library(dplyr, warn.conflicts = FALSE) | |
| mtcars %>% | |
| group_by(cyl) %>% | |
| summarise(mean = mean(disp), n = n()) | |
| #> # A tibble: 3 x 3 | |
| #> cyl mean n | |
| #> <dbl> <dbl> <int> | |
| #> 1 4 105. 11 | |
| #> 2 6 183. 7 |
| #!/bin/bash | |
| # Purpose: Bulk-delete GitLab pipelines older than a given date | |
| # Author: github.com/chrishoerl | |
| # GitLab API: v4 | |
| # Requirements: jq must be instaled ($ sudo apt install jq) | |
| # API example: https://gitlab.example.com/api/v4/projects | |
| # API example: https://gitlab.example.com/api/v4/projects/<projectid>/pipelines | |
| # | |
| # NOTE: Script is just a dryrun. To really delete pipelines, simply uncomment line 49 to activate | |
| # |
Key takeaways:
vars(...) is exactly the same as the stuff inside select(...)!!!vars() is used for all scoped variants of dplyr verbs (I assume bc the variables need to “fit” into a single argument, .vars. In select(...), the ellipses take everything)vars_select() is probably more of a developer-facing function (seen in select_helpers documentation)Some "gotchas":
| #requires -version 5.1 | |
| Function Get-DockerDiskUsage { | |
| [cmdletbinding()] | |
| [alias("gddu")] | |
| [OutputType("Get-DockerDiskUsage.DockerDiskUsage")] | |
| Param( | |
| [Parameter(Position = 0, HelpMessage = "Get specific usage types. The default is All")] | |
| [ValidateSet("Images","Containers","Volumes","Cache")] | |
| [string[]]$Type |
None of the string methods modify this – they always return fresh strings.
charAt(pos: number): string ES1
Returns the character at index pos, as a string (JavaScript does not have a datatype for characters). str[i] is equivalent to str.charAt(i) and more concise (caveat: may not work on old engines).
Let's say you have streaming data, and you would like to update a DT::datatable in Shiny without completely re-rendering the table. Here is some code to illustrate how this might be accomplished. Hope it helps.
library(DT)
library(shiny)
ui <- tagList(
tags$script(HTML(
"
Shiny.addCustomMessageHandler(
| ## GOAL: | |
| ## re-create a figure similar to Fig. 2 in Wilson et al. (2018), | |
| ## Nature 554: 183-188. Available from: | |
| ## https://www.nature.com/articles/nature25479#s1 | |
| ## | |
| ## combines a boxplot (or violin) with the raw data, by splitting each | |
| ## category location in two (box on left, raw data on right) | |
| ## call required packages |
