# NOT RUN {
## Display a notebook cell
robservable(
"@d3/bar-chart",
include = "chart"
)
## Change cells data with input
robservable(
"@d3/bar-chart",
include = "chart",
input = list(color = "red", height = 700)
)
## Change data frame cells data
df <- data.frame(table(mtcars$cyl))
names(df) <- c("name", "value")
robservable(
"@d3/horizontal-bar-chart",
include = "chart",
input = list(data = df)
)
# }
Run the code above in your browser using DataLab