examples/1_basic_slider/example.R

In kcf-jackson/jsReact: Statistical models from R and Interactive apps from Javascript

# Example 1. This file explores the basic mechanism for R and JS to interact.
rm(list = ls())
library(jsReact)
library(magrittr)
my_html <- create_html() %>%
  add_title("Send message") %>%
  add_slider(min = "0", max = "100", oninput = "show_value(value)") %>%
  add_title("Receive message") %>%
  add_div(id = "output")
my_html %<>% add_script(
  'function show_value(value) {
     ws.send(value);
   }
   ws.onmessage = function(msg) {
     document.getElementById("output").innerHTML = msg.data;
   }')

r_fun <- function(msg) {
  print(msg)
}

preview_app(my_html, r_fun, T)