Code
do("library(pkg, lib.loc = path)")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 1 28 1 1 1 29 dep-code library(pkg, lib.loc = path)
2 1 1 1 1 7 1 1 1 8 fn-name library
Code
do("library('pkg', lib.loc = path)")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 1 30 1 1 1 31 dep-code library('pkg', lib.loc = path)
2 1 1 1 1 7 1 1 1 8 fn-name library
Code
do("library(lib.loc = path, pkg)")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 1 28 1 1 1 29 dep-code library(lib.loc = path, pkg)
2 1 1 1 1 7 1 1 1 8 fn-name library
Code
do("require(lib.loc = path, character.only = TRUE, 'pkg')")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 1 53 1 1 1 54 dep-code require(lib.loc = path, character.only = TRUE, 'pkg')
2 1 1 1 1 7 1 1 1 8 fn-name require
Code
do("library(foo, require(bar))")
Output
# A data frame: 4 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 1 26 1 1 1 27 dep-code library(foo, require(bar))
2 1 1 1 1 7 1 1 1 8 fn-name library
3 2 1 2 14 25 1 14 1 26 dep-code require(bar)
4 1 1 2 14 20 1 14 1 21 fn-name require
Code
do("fixtures/scan/modules.R")
Output
# A data frame: 18 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 11 21 2 2 2 13 dep-code "import(\"A\")"
2 1 1 1 11 16 2 2 2 8 fn-name "import"
3 2 1 2 24 32 3 2 3 11 dep-code "import(B)"
4 1 1 2 24 29 3 2 3 8 fn-name "import"
5 2 1 3 35 52 4 2 4 20 dep-code "import(from = \"C\")"
6 1 1 3 35 40 4 2 4 8 fn-name "import"
7 2 1 4 55 78 5 2 5 26 dep-code "import(symbol, from = D)"
8 1 1 4 55 60 5 2 5 8 fn-name "import"
9 2 1 5 163 173 10 1 10 12 dep-code "import(\"e\")"
10 1 1 5 163 168 10 1 10 7 fn-name "import"
11 2 1 6 175 183 11 1 11 10 dep-code "import(f)"
12 1 1 6 175 180 11 1 11 7 fn-name "import"
13 2 2 7 263 282 15 1 15 21 dep-code "modules::import(\"G\")"
14 3 2 7 263 269 15 1 15 8 ns-name "modules"
15 1 2 7 272 277 15 10 15 16 fn-name "import"
16 2 2 8 284 301 16 1 16 19 dep-code "modules::import(H)"
17 3 2 8 284 290 16 1 16 8 ns-name "modules"
18 1 2 8 293 298 16 10 16 16 fn-name "import"
Code
do("fixtures/scan/modules-empty.R")
Output
# A data frame: 0 x 11
# i 11 variables: id <int>, pattern <int>, match <int>, start_byte <int>, end_byte <int>, start_row <int>, start_column <int>, end_row <int>, end_column <int>, name <chr>, code <chr>
Code
do("x <- foo::bar()")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 6 13 1 6 1 14 dep-code foo::bar
2 1 1 1 6 8 1 6 1 9 pkg-name foo
Code
do("1 + 2 + foo:::bar")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 9 17 1 9 1 18 dep-code foo:::bar
2 1 1 1 9 11 1 9 1 12 pkg-name foo
Code
do("setClass('myclass')")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 1 19 1 1 1 20 dep-code setClass('myclass')
2 1 1 1 1 8 1 1 1 9 fn-name setClass
Code
do("setGeneric('props', function(object) attributes(object))")
Output
# A data frame: 2 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 2 1 1 1 56 1 1 1 57 dep-code setGeneric('props', function(object) attributes(object))
2 1 1 1 1 10 1 1 1 11 fn-name setGeneric
Code
do("JunitReporter$new()")
Output
# A data frame: 3 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 3 1 1 1 19 1 1 1 20 dep-code JunitReporter$new()
2 1 1 1 1 13 1 1 1 14 class-name JunitReporter
3 2 1 1 15 17 1 15 1 18 method-name new
Code
do("testthat::JunitReporter$new()")
Output
# A data frame: 4 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 3 2 1 1 29 1 1 1 30 dep-code testthat::JunitReporter$new()
2 4 2 1 1 8 1 1 1 9 pkg-name testthat
3 1 2 1 11 23 1 11 1 24 class-name JunitReporter
4 2 2 1 25 27 1 25 1 28 method-name new
Code
do("opts_chunk$set()")
Output
# A data frame: 3 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 3 1 1 1 16 1 1 1 17 dep-code opts_chunk$set()
2 1 1 1 1 10 1 1 1 11 object-name opts_chunk
3 2 1 1 12 14 1 12 1 15 method-name set
Code
do("knitr::opts_chunk$set()")
Output
# A data frame: 4 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 3 2 1 1 23 1 1 1 24 dep-code knitr::opts_chunk$set()
2 4 2 1 1 5 1 1 1 6 pkg-name knitr
3 1 2 1 8 17 1 8 1 18 object-name opts_chunk
4 2 2 1 19 21 1 19 1 22 method-name set
Code
renv_dependencies_database()
Output
$ggplot2
$ggplot2$geom_hex
[1] "hexbin"
$testthat
$testthat$JunitReporter
[1] "xml2"
Code
do("geom_hex()")
Output
# A data frame: 1 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 1 1 1 1 8 1 1 1 9 id geom_hex
Code
do("ggplot2::geom_hex()")
Output
# A data frame: 1 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 1 1 1 10 17 1 10 1 18 id geom_hex
Code
do("JunitReporter")
Output
# A data frame: 1 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 1 1 1 1 13 1 1 1 14 id JunitReporter
Code
do("testthat::JunitReporter")
Output
# A data frame: 1 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 1 1 1 11 23 1 11 1 24 id JunitReporter
Code
do("geom_hex()")
Output
# A data frame: 1 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 1 1 1 1 8 1 1 1 9 id geom_hex
Code
do("foopkg::foofun()")
Output
# A data frame: 1 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 1 1 1 9 14 1 9 1 15 id foofun
Code
do("foofun")
Output
# A data frame: 1 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 1 1 1 1 6 1 1 1 7 id foofun
Code
q_deps()
Output
[1] 1 2 3 4 5 6
Code
code_query(readLines(test_path("fixtures/scan/chunk-errors.Rmd")), query = q_deps_rmd(), language = "markdown")[["matched_captures"]]
Output
# A data frame: 14 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 4 2 1 5 16 2 4 2 16 inline "Parse Errors"
2 4 2 2 19 105 4 1 5 14 inline "renv should still be able to recover dependencies from the chunks without\nparse errors."
3 2 1 3 111 113 7 4 7 7 header "{r}"
4 1 1 3 112 112 7 5 7 6 language "r"
5 3 1 3 115 129 8 1 9 1 content "library(dplyr)\n"
6 2 1 4 138 140 11 4 11 7 header "{r}"
7 1 1 4 139 139 11 5 11 6 language "r"
8 3 1 4 142 169 12 1 13 1 content "this chunk has parse errors\n"
9 2 1 5 178 180 15 4 15 7 header "{r}"
10 1 1 5 179 179 15 5 15 6 language "r"
11 3 1 5 182 204 16 1 17 1 content "and so does this chunk\n"
12 2 1 6 213 215 19 4 19 7 header "{r}"
13 1 1 6 214 214 19 5 19 6 language "r"
14 3 1 6 217 245 20 1 20 30 content "we forgot to close this chunk"
Code
code_query(readLines(test_path("fixtures/scan/inline-chunks.Rmd")), query = q_deps_rmd(), language = "markdown")[["matched_captures"]]
Output
# A data frame: 3 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 4 2 1 5 17 2 4 2 17 inline Inline Chunks
2 4 2 2 20 146 4 1 4 128 inline Users might request the use of packages with `r inline::chunks()`. Check that we handle `r multiple::calls()` on the same line.
3 4 2 3 149 179 6 1 6 32 inline Also in `r separate::chunks()`.
Code
code_query(readLines(test_path("fixtures/scan/inline-chunks.Rmd")), query = q_deps_rmd_inline(), language = "markdown-inline", ranges = code[, range_cols])[["matched_captures"]]
Output
# A data frame: 9 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 3 1 1 65 84 4 46 4 66 code `r inline::chunks()`
2 1 1 1 65 65 4 46 4 47 csd1 `
3 2 1 1 84 84 4 65 4 66 csd2 `
4 3 1 2 108 128 4 89 4 110 code `r multiple::calls()`
5 1 1 2 108 108 4 89 4 90 csd1 `
6 2 1 2 128 128 4 109 4 110 csd2 `
7 3 1 3 157 178 6 9 6 31 code `r separate::chunks()`
8 1 1 3 157 157 6 9 6 10 csd1 `
9 2 1 3 178 178 6 30 6 31 csd2 `
Code
print(n = Inf, code_query(readLines(test_path("fixtures/scan/header-shiny.Rmd")), query = q_deps_yaml_header(), language = "yaml")[["matched_captures"]])
Output
# A data frame: 12 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 3 1 1 16 30 4 1 4 16 code "'server': shiny"
2 1 1 1 16 23 4 1 4 9 key "'server'"
3 2 1 1 26 30 4 11 4 16 value "shiny"
4 3 1 2 32 46 5 1 5 16 code "server: 'shiny'"
5 1 1 2 32 37 5 1 5 7 key "server"
6 2 1 2 40 46 5 9 5 16 value "'shiny'"
7 3 1 3 48 64 6 1 6 18 code "\"server\": \"shiny\""
8 1 1 3 48 55 6 1 6 9 key "\"server\""
9 2 1 3 58 64 6 11 6 18 value "\"shiny\""
10 3 1 4 66 82 7 1 8 8 code "server: |\n shiny"
11 1 1 4 66 71 7 1 7 7 key "server"
12 2 1 4 74 82 7 9 8 8 value "|\n shiny"
Code
print(n = Inf, code_query(readLines(test_path("fixtures/scan/header-shiny2.Rmd")), query = q_deps_yaml_header(), language = "yaml")[["matched_captures"]])
Output
# A data frame: 16 x 11
id pattern match start_byte end_byte start_row start_column end_row end_column name code
<int> <int> <int> <int> <int> <int> <int> <int> <int> <chr> <chr>
1 3 2 1 16 36 4 1 5 14 code "server:\n type: shiny"
2 1 2 1 16 21 4 1 4 7 key "server"
3 4 2 1 26 29 5 3 5 7 key2 "type"
4 2 2 1 32 36 5 9 5 14 value "shiny"
5 3 2 2 38 62 6 1 7 16 code "'server':\n type: 'shiny'"
6 1 2 2 38 45 6 1 6 9 key "'server'"
7 4 2 2 50 53 7 3 7 7 key2 "type"
8 2 2 2 56 62 7 9 7 16 value "'shiny'"
9 3 2 3 64 88 8 1 9 18 code "server:\n 'type': \"shiny\""
10 1 2 3 64 69 8 1 8 7 key "server"
11 4 2 3 74 79 9 3 9 9 key2 "'type'"
12 2 2 3 82 88 9 11 9 18 value "\"shiny\""
13 3 2 4 90 116 10 1 12 10 code "server:\n type: >\n shiny"
14 1 2 4 90 95 10 1 10 7 key "server"
15 4 2 4 100 103 11 3 11 7 key2 "type"
16 2 2 4 106 116 11 9 12 10 value ">\n shiny"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.