R/add_widgets.R
In kcf-jackson/jsReact: Statistical models from R and Interactive apps from Javascript
#' Add slider to body
#' @param my_html html in a vector of strings; output from 'create_html'.
#' @param into character string; unique identifier of a line in the html. Element id is highly recommended.
#' @param text character string; the display text on the button
#' @param ... Extra parameter that goes into a tag, e.g. In <div type = "xxx">, 'type = "xxx"' goes to ... .
#' @export
add_button <- function(my_html, into = "<body>", text = "", ...) {
button_html <- add_widget("button", ...)
script <- paste0(button_html[1], text, button_html[2])
my_html %<>% insert_into(script, into)
}
# add_button <- curry::partial(
# html5_elements,
# list(tag = "button", close_tag = T)
# )
#' Add slider to body
#' @param my_html html in a vector of strings; output from 'create_html'.
#' @param into character string; unique identifier of a line in the html. Element id is highly recommended.
#' @param ... Extra parameter that goes into a tag, e.g. In <div type = "xxx">, 'type = "xxx"' goes to ... .
#' @export
add_slider <- function(my_html, into = "<body>", ...) {
script <- add_widget("input", type = "range", ...)[1]
my_html %<>% insert_into(script, into)
}
# add_slider <- curry::partial(
# html5_elements,
# list(tag = "input", text = '', type = "range", close_tag = F)
# )
#' Add drop-down list to body
#' @param my_html html in a vector of strings; output from 'create_html'.
#' @param into character string; unique identifier of a line in the html. Element id is highly recommended.
#' @param options character vector; the options in the drop-down list. Each item must be unique.
#' @param ... Extra parameter that goes into a tag, e.g. In <div type = "xxx">, 'type = "xxx"' goes to ... .
#' @export
add_dropdown_list <- function(my_html, into = "<body>", options, ...) {
select_text <- purrr::map2_chr(
.x = options, .y = tolower(options),
~paste(add_widget(tag = "option", text = .x, value = .y), collapse = "")
) %>%
paste(collapse = "\n")
html5_elements(my_html, into, tag = "select", text = select_text, ...)
}
kcf-jackson/jsReact documentation built on May 29, 2019, 3:01 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
#' Add slider to body
#' @param my_html html in a vector of strings; output from 'create_html'.
#' @param into character string; unique identifier of a line in the html. Element id is highly recommended.
#' @param text character string; the display text on the button
#' @param ... Extra parameter that goes into a tag, e.g. In <div type = "xxx">, 'type = "xxx"' goes to ... .
#' @export
add_button <- function(my_html, into = "<body>", text = "", ...) {
button_html <- add_widget("button", ...)
script <- paste0(button_html[1], text, button_html[2])
my_html %<>% insert_into(script, into)
}
# add_button <- curry::partial(
# html5_elements,
# list(tag = "button", close_tag = T)
# )
#' Add slider to body
#' @param my_html html in a vector of strings; output from 'create_html'.
#' @param into character string; unique identifier of a line in the html. Element id is highly recommended.
#' @param ... Extra parameter that goes into a tag, e.g. In <div type = "xxx">, 'type = "xxx"' goes to ... .
#' @export
add_slider <- function(my_html, into = "<body>", ...) {
script <- add_widget("input", type = "range", ...)[1]
my_html %<>% insert_into(script, into)
}
# add_slider <- curry::partial(
# html5_elements,
# list(tag = "input", text = '', type = "range", close_tag = F)
# )
#' Add drop-down list to body
#' @param my_html html in a vector of strings; output from 'create_html'.
#' @param into character string; unique identifier of a line in the html. Element id is highly recommended.
#' @param options character vector; the options in the drop-down list. Each item must be unique.
#' @param ... Extra parameter that goes into a tag, e.g. In <div type = "xxx">, 'type = "xxx"' goes to ... .
#' @export
add_dropdown_list <- function(my_html, into = "<body>", options, ...) {
select_text <- purrr::map2_chr(
.x = options, .y = tolower(options),
~paste(add_widget(tag = "option", text = .x, value = .y), collapse = "")
) %>%
paste(collapse = "\n")
html5_elements(my_html, into, tag = "select", text = select_text, ...)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.