A subset of ~50 emoji that relate to the kinds of things I am usually working on.
In general aiming to use emoji labels that are relatively short!
| label to use | emoji produced | Meaning/description |
|---|---|---|
:ship: |
🚢 | Export something |
:basket: |
🧺 | Add or update functions* |
:cook: |
🧑🍳 | Manage dependencies (~ingredients...??) |
:owl: |
🦉 | Work on improving accessibility |
:sparkles: |
✨ | Work on presentational/visual issues |
| --- | |
| title: NHS England Acute trust league table rankings map 2025 | |
| code-fold: true | |
| knitr: | |
| opts_chunk: | |
| dev: "ragg_png" | |
| fig-dpi: 144 | |
| fig-width: 8.2 | |
| fig-height: 11.6 | |
| --- |
| { | |
| "workbench.startupEditor": "none", | |
| // adds more lines to the file tab | |
| "workbench.tree.renderIndentGuides": "always", | |
| "workbench.colorCustomizations": { | |
| "editorRuler.foreground": "#ff4081" | |
| }, | |
| "editor.fontFamily": "Maple Mono NF, FiraCode Nerd Font, JuliaMono Nerd Font, Agave Nerd Font, monospace", | |
| // "editor.fontLigatures": true, |
| [ | |
| // Ctrl + Up/Down to move lines | |
| { | |
| "key": "ctrl+up", | |
| "command": "editor.action.moveLinesUpAction", | |
| "when": "editorTextFocus && !editorReadonly" | |
| }, | |
| { | |
| "key": "alt+up", | |
| "command": "-editor.action.moveLinesUpAction", |
| #' A wrapper for dplyr::coalesce() that handles tidy column selections | |
| #' | |
| #' @param .data a data frame | |
| #' @param ... (use tidyselect specification) a selection of cols to coalesce | |
| #' @export | |
| tidy_coalesce <- function(.data, ..., res = "result", .after = NULL) { | |
| assert_that(inherits(.data, "data.frame")) | |
| cnms <- colnames(dplyr::select(.data, ...)) | |
| nms <- rlang::data_syms(cnms) | |
| aft <- ifnull(.after, dplyr::last(intersect(colnames(.data), cnms))) |
| #' Conveniently wrap a regular expr in glue::glue_data() and pass to `grepl()` | |
| #' | |
| #' Use {glue} expressions in grepl (and put the arguments the right way round) | |
| #' https://glue.tidyverse.org/articles/wrappers.html | |
| #' | |
| #' @param x A character vector to check | |
| #' @param rx A string that after processing by glue_data() will be used as a | |
| #' regex pattern in `grepl()` | |
| #' @param ... Arguments passed onto `grepl()` | |
| #' @param g The parent frame of gregg, which must be passed through to `glue()` |
| #' Returns a vector of bank holiday dates in England and Wales | |
| #' | |
| #' Currently dates from 2018-2026 are available via gov.uk | |
| #' https://www.gov.uk/bank-holidays | |
| #' | |
| #' @returns A vector of dates | |
| #' @export | |
| ew_holidays <- function() { | |
| "https://www.gov.uk/bank-holidays/england-and-wales.ics" |> | |
| readLines() |> |
"Please can anyone suggest some dplyr code that can turn my sample data_in into my sample data_out?"
data_in <- tibble::tribble(
~patient, ~delivery_date, ~obs_point, ~obs_date,
"A", "2024-01-28", "antenatal", "2024-01-01",
"A", "2024-01-28", "at_delivery", "2024-01-28",
"B", "2024-01-28", "at_delivery", "2024-01-27",
"B", "2024-01-28", "at_delivery", "2024-01-28",
"C", "2024-01-28", "at_delivery", "2024-01-27",
| library(ggplot2) | |
| library(lubridate, warn.conflicts = FALSE) | |
| t <- lubridate::as_datetime("2021-01-01") | |
| e1 <- lubridate::as_datetime("2021-12-31 23:59:59") | |
| n1 <- as.numeric(lubridate::as.duration(e1 - t)) | |
| s1 <- sample(seq.int(n1), 300L) | |
| # https://gist.github.com/francisbarton/5d9d177978a2279cf225abdc772adef9 | |
| ons_api_base <- "https://services1.arcgis.com/ESMARspQHYMw9BZ9/arcgis/rest" | |
| imd_dataset <- "Index_of_Multiple_Deprivation_Dec_2019_Lookup_in_England_2022" | |
| req <- httr2::request(ons_api_base) |> | |
| httr2::req_url_path_append("services") |> | |
| httr2::req_url_path_append(imd_dataset) |> | |
| httr2::req_url_path_append("FeatureServer/0/query") |> | |
| httr2::req_url_query(f = "json") |