search

llrs / rutils

Personal package for helping with my day to day work
https://llrs.github.io/rutils/
GNU General Public License v3.0
4 stars 0 forks source link

Wrapper for `llrs_shiny_create` + `llrs_hook`? #2

Closed llrs closed 1 year ago

llrs commented 1 year ago

llrs_shiny_create(<project>) is followed by llrs_hook("post-receive", "/srv/shiny-server/<project>").

Create a simple wrapper for both ? 

llrs_shiny <- function(project, dest = "/srv/shiny-server/") {
   llrs_shiny_create(project)
   llrs_hook("post-receive", file.path(dest, project))
}