wiipoc is a proof of concept package for jupyter widgets in the xeus-r kernel
You can install the development version of wiipoc from GitHub with:
# install.packages("devtools")
devtools::install_github("romainfrancois/wiipoc")
library(wiipoc)
x <- IntSlider()
x
style <- ButtonStyle(
font_family = "Courrier New",
font_size = "15px",
font_variant = "small-caps",
font_weight = "bolder",
text_color = "red",
text_decoration = "underline"
)
b <- Button(style = style, description = "update slider", tooltip = "click the button to update the slider")
b$on_click(function(){
x$value <- round(runif(1, min = 0, max = 100))
})
b