working deployment #163

MarkEdmondson1234 · Jan 8, 2022 · f328540 · f328540
1 parent 90d4e86
commit f328540
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 3 deletions.
diff --git a/R/docker.R b/R/docker.R
@@ -406,6 +406,7 @@ cr_buildstep_docker <- function(
           sprintf("--context=%s", build_context),
           "--cache=true"
         ),
+        waitFor = "-",
         ...
       )
     },

diff --git a/inst/vetiver/plumber/api.R b/inst/vetiver/plumber/api.R
@@ -3,7 +3,7 @@ if(Sys.getenv("PORT") == "") Sys.setenv(PORT = 8000)
 #' @get /
 #' @html
 function(){
-  "<html><h1>It works!</h1></html>"
+  "<html><h1>It works! Vetiver deployment</h1></html>"
 }
 
 

diff --git a/inst/vetiver/plumber/server.R b/inst/vetiver/plumber/server.R
@@ -1,3 +1,4 @@
 pr <- plumber::plumb("api.R")
-pr <- vetiver::vetiver_pr_predict()
+v <- vetiver::vetiver_pin_read(pins::board_folder("pins"), name = "sacramento_rf")
+pr <- vetiver::vetiver_pr_predict(pr, v, debug = TRUE)
 pr$run(host = "0.0.0.0", port = as.numeric(Sys.getenv("PORT")), swagger = TRUE)
diff --git a/inst/vetiver/setup.R b/inst/vetiver/setup.R
@@ -31,4 +31,14 @@ cr_deploy_docker_trigger(repo, "vetiver",
                          projectId_target = "gcer-public",
                          timeout = 3600)
 
-cr_deploy_plumber(file.path(root,"plumber"), timeout = 3600)
+run <- cr_deploy_plumber(file.path(root,"plumber"), remote = "vetiver")
+
+# on succesful deployment
+endpoint <- vetiver::vetiver_endpoint(paste0(jj$status$url, "/predict"))
+library(tidyverse)
+data(Sacramento, package = "modeldata")
+new_sac <- Sacramento %>%
+  slice_sample(n = 20) %>%
+  select(type, sqft, beds, baths)
+
+
-Original file line number
+Diff line change
@@ Expand Up / @@ -406,6 +406,7 @@ cr_buildstep_docker <- function( @@
               sprintf("--context=%s", build_context),
               "--cache=true"
             ),
+            waitFor = "-",
             ...
           )
         },
@@ Expand Down @@