organise demo app

tests/testthat/sampler/.gitignore

@@ -1,2 +1,3 @@
 node_modules
+*.rserve.R
 *.schema.ts

tests/testthat/test-compile.R

@@ -41,6 +41,6 @@ test_that("anonomous functions", {
 test_that("Compile files", {
     f <- tempfile(fileext = ".rserve.ts")
     on.exit(unlink(f))
-    res <- ts_compile("app.R", file = f)
+    res <- ts_compile("sampler/app.R", file = f)
     expect_true(file.exists(f))
 })

tests/testthat/test-deploy.R

@@ -1,5 +1,6 @@
 test_that("Deploy converts ts functions into valid ocap lists", {
-    on.exit(if (file.exists("app.rserve.R")) unlink("app.rserve.R"))
+    f <- tempfile(fileext = ".rserve.R")
-    ts_deploy("app.R")
+    on.exit(unlink(f))
-    expect_true(file.exists("app.rserve.R"))
+    ts_deploy("sampler/app.R", file = f)
+    expect_true(file.exists(f))
 })