htmx + R example

apis.R

library(htmltools)

#* @serializer html
#* @get /
base = function() {
  html <- tags$html(
    tags$head(
      tags$script(src='https://unpkg.com/htmx.org@1.9.10/dist/htmx.js')
    ),
    tags$body(
      tags$button(
        'hx-post'="/clicked",
        'hx-swap'="outerHTML",
        "Click Me"
      )
    )
  ) 

  html |> doRenderTags()
}

#* @serializer html
#* @post /clicked
clicked = function() {
  htmltools::h1("I'm clicked") |>
    doRenderTags()
}

server.R

library(plumber)
pr_run(pr("apis.R"), port = 8000)