tom/ts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more demo use

Browse Source
This commit is contained in:
Tom Elliott 2024-07-24 11:52:09 +12:00
parent fa5be168c0
commit dfaeabec05
4 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
R/function.R
View File

@ -23,7 +23,7 @@ ts_function <- function(f, ..., result = NULL) {
} }
fn <- function(...) { fn <- function(...) {
mc <- match.call() mc <- match.call(f)
x <- parse_args(args, mc) x <- parse_args(args, mc)
result$check(do.call(f, x)) result$check(do.call(f, x))
} }

6
R/types.R
View File

@ -74,8 +74,10 @@ ts_numeric <- function(n = -1L) {
n_type(n, "number"), n_type(n, "number"),
n_type_fun(n, "Numeric"), n_type_fun(n, "Numeric"),
check = function(x) { check = function(x) {
if (!is.numeric(x)) stop("Expected a number") if (!is.numeric(x)) stop("Expected a number", call. = FALSE)
if (n > 0 && length(x) != n) stop("Expected a number of length ", n) if (n > 0 && length(x) != n) {
stop("Expected a number of length ", n, , call. = FALSE)
}
x x
} }
) )

8
README.Rmd
View File

@ -94,9 +94,13 @@ type App = {
Here's what's currently working: Here's what's currently working:
```{r} ```{r, error = TRUE}
library(ts) library(ts)
myfun <- ts_function(mean, x = ts_numeric(), result = ts_numeric()) myfun <- ts_function(mean, x = ts_numeric(), result = ts_numeric(1))
myfun(1:5)
myfun("hello world")
ts_compile(myfun) ts_compile(myfun)
``` ```

10
README.md
View File

@ -90,7 +90,13 @@ Here’s what’s currently working:
``` r ``` r
library(ts) library(ts)
myfun <- ts_function(mean, x = ts_numeric(), result = ts_numeric()) myfun <- ts_function(mean, x = ts_numeric(), result = ts_numeric(1))
myfun(1:5)
#> [1] 3
myfun("hello world")
#> Error: Expected a number
ts_compile(myfun) ts_compile(myfun)
#> const myfun = (x: number | number[]) => Promise<Numeric>; #> const myfun = (x: number | number[]) => Promise<Numeric<1>)>;
``` ```