git2qmd.qmd

---
title: "Untitled"
format: html
---


```{r}
#| label: prepare
#| echo: true

url2raw <- function(url) {
    raw_url <- sub("https://github.com", "https://raw.githubusercontent.com", url)
    raw_url <- sub("blob/", "", raw_url)
    sub("#.*$", "", raw_url)
}

parse_selection <- function(url) {
    lines <- adaR::ada_get_hash(url)
    lines <- gsub("#|L", "", lines)
    lines <- gsub("-", ":", lines)
    lines <- eval(parse(text = lines))
    code <- readLines(url2raw(url))
    cat("````r", code[lines], "````", sep = "\n")
    # code[lines]
}

```

Do this 

```r
#| echo: false
#| output: asis
url <- "https://github.com/schochastics/adaR/blob/ba3392c3772619c2650209d5c01397de54f70b79/R/has.R#L43-L47"
parse_selection(url)

```

to get this
```{r}
#| echo: false
#| output: asis
url <- "https://github.com/schochastics/adaR/blob/ba3392c3772619c2650209d5c01397de54f70b79/R/has.R#L43-L47"
parse_selection(url)

```