if(interactive()) {
library(htmltools)
library(reactR)
browsable(
tagList(
html_dependency_mobx(react = FALSE),
div(id="test"),
tags$script(HTML(
"
var obs = mobx.observable({val: null})
mobx.autorun(function() {
document.querySelector('#test').innerText = obs.val
})
setInterval(
function() {obs.val++},
1000
)
"
))
)
)
}
if (FALSE) {
# use with react
library(htmltools)
library(reactR)
browsable(
tagList(
html_dependency_react(),
html_dependency_mobx(),
div(id="test"),
tags$script(HTML(babel_transform(
"
var obs = mobx.observable({val: null})
var App = mobxReact.observer((props) => {props.obs.val})
ReactDOM.render(, document.querySelector('#test'))
setInterval(
function() {obs.val++},
1000
)
"
)))
)
)
}
Run the code above in your browser using DataLab