Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
set.seed(1)
library(magrittr)
poorly_ordered <- expand.grid(98:103, 9:11) %>%
apply(1, function(x) paste0("patient", x[1], "-day", x[2], ".png")) %>%
sample(size = length(.))
## ----poorly-ordered-----------------------------------------------------------
poorly_ordered
## ----sort-attempt-------------------------------------------------------------
sort(poorly_ordered)
## ----alphordering-------------------------------------------------------------
strex::str_alphord_nums(poorly_ordered)
## ----good-sort----------------------------------------------------------------
sort(strex::str_alphord_nums(poorly_ordered))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.