Getting your plumber API up and running takes a bit of fiddling around. Rather than launching swagger each time, and testing your arguments manually, you can use the following workflow:
- Draft your plumber function
- Run
start_plumber(path, port) - Check that it works as expected using
httr - Fiddle with your plumber function if something is off
- Repeat 2-4 until you get it right!
If you have ready-built plumber functions, you can use test them out
directly in a single RStudio session by opening up a new terminal with
start_plumber. I’ve included a two functions (random_praise and
random_data) in a sample plumber file in the inst folder of this
repo. Depending on what seed you set, the output changes:
# devtools::install_github("isteves/plumbplumb")
library(plumbplumb)
library(httr)
plumber_path <- system.file("plumber.R", package = "plumbplumb")
port <- 8484
start_plumber(plumber_path, port)
bar <- GET(glue::glue("http://127.0.0.1:{port}/random_praise?seed=2"))
content(bar)
foo <- GET(glue::glue("http://127.0.0.1:{port}/random_praise?seed=3"))
content(foo)Same with the data:
baz <- GET(glue::glue("http://127.0.0.1:{port}/random_data?seed=2"))
content(baz)
boo <- GET(glue::glue("http://127.0.0.1:{port}/random_data?seed=3"))
content(boo)