Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
5 changes: 4 additions & 1 deletion .Rbuildignore
Original file line number Diff line number Diff line change
Expand Up @@ -4,8 +4,11 @@
^README\.Rmd$
^LICENSE\.md$
^roadmap.md$
^scratch$
^scratch.*$
^\.vscode$
^cran-comments\.md$
^[\.]?air\.toml$
^\.github$
^scripts$
^AGENTS.md$
^CRAN-SUBMISSION$
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Package: quickr
Title: Compiler for R
Version: 0.1.0.9000
Version: 0.2.0.9000
Authors@R: c(
person("Tomasz", "Kalinowski", , "tomasz@posit.co", role = c("aut", "cre")),
person("Posit Software, PBC", role = c("cph", "fnd"),
Expand Down
2 changes: 2 additions & 0 deletions NEWS.md
Original file line number Diff line number Diff line change
@@ -1,5 +1,7 @@
# quickr (development version)

# quickr 0.2.0

- Internal utility `r2f()` print method now shows the generated `c_bridge`
for translated subroutines.

Expand Down
4 changes: 1 addition & 3 deletions R/compile-package.R
Original file line number Diff line number Diff line change
Expand Up @@ -25,11 +25,9 @@ compile_package <- function(path = ".") {
}
pkgname <- as.character(pkgname)

# collect all `quick()` calls in the package
collector$activate(paste0(pkgname, ":quick_funcs"))

# TODO: need to unset various R_* env vars, or just
# take a dep on callr
# TODO: prompt to install pkgload if not available?
system2(
file.path(R.home("bin"), "R"),
c("-q", "-e", shQuote("pkgload::load_all()"))
Expand Down
6 changes: 4 additions & 2 deletions R/quick.R
Original file line number Diff line number Diff line change
Expand Up @@ -106,13 +106,15 @@
#' @returns A quicker R function.
#' @export
#' @examples
#' \donttest{
#' add_ab <- quick(function(a, b) {
#' declare(type(a = double(n)),
#' type(b = double(n)))
#' out <- a + b
#' out
#' a + b
#' })
#' add_ab(1, 2)
#' add_ab(c(1, 2, 3), c(4, 5, 6))
#' }
quick <- function(fun, name = NULL) {
if (is.null(name)) {
name <- if (is.symbol(substitute(fun))) {
Expand Down
6 changes: 3 additions & 3 deletions cran-comments.md
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
## R CMD check results
Update with bugfixes and new features. See NEWS.md for details.

0 errors | 0 warnings | 1 note
## R CMD check results

* This is a new release.
0 errors | 0 warnings | 0 notes
6 changes: 4 additions & 2 deletions man/quick.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

Loading