#' @note Have the parameters from your initial graph match that of the node you add, i.e.: if you pass \code{size} in your initial chart,

#' make sure you also have it in your proxy.

#' 

#' @rdname add_p

#' @export

sg_add_node_p <- function(proxy, data, ..., refresh = TRUE) {

#' @note Have the parameters from your initial graph match that of the node you add, i.e.: if you pass \code{size} in your initial chart,

#' make sure you also have it in your proxy.

#' 

#' @rdname adds_p

#' @export

sg_add_nodes_p <- function(proxy, data, ..., refresh = TRUE, rate = "once") {

#' @param id Id of edge or node to delete.

#' @param refresh Whether to refresh the graph after node is dropped, required to take effect, if you are running force the algorithm is killed and restarted.

#'

#'

#' @rdname drop_p

#' @export

#'

#' @param proxy An object of class \code{sigmajsProxy} as returned by \code{\link{sigmajsProxy}}.

#' @param refresh Whether to refresh the graph after node is dropped, required to take effect, if you are running force the algorithm is killed and restarted.

#'

#' @rdname clear-kill

#' @export

#' of the delay to effectively add each row one after the other: delay is thus applied at each row (number of seconds to wait

#' before the row is added *since the previous row*). If \code{FALSE} this is the number of milliseconds to wait before the node or

#' edge is added to the visualisation; \code{delay} is used as passed to the function.

#'

#' @note Have the parameters from your initial graph match that of the node you add, i.e.: if you pass \code{size} in your initial chart,

#' make sure you also have it in your proxy.

#' @param refresh Whether to refresh the graph after node is dropped, required to take effect.

#' @param rate Refresh rate, either \code{once}, the graph is refreshed after data.frame of nodes is added or at each \code{iteration} (row-wise). Only applies if \code{refresh} is set to \code{TRUE}.

#'

#' @note Have the parameters from your initial graph match that of the node you add, i.e.: if you pass \code{size} in your initial chart,

#' make sure you also have it in your proxy.

#' 

#' before the row is dropped *since the previous row*). If \code{FALSE} this is the number of milliseconds to wait before the node or

#' edge is added to the visualisation; \code{delay} is used as passed to the function.

#'

#'

#' @note Have the parameters from your initial graph match that of the node you add, i.e.: if you pass \code{size} in your initial chart,

#' make sure you also have it in your proxy.

#' 

#' if(interactive()) shinyApp(ui, server)

#' 

#' @name read

#' @export

sg_read_nodes_p <- function(proxy, data, ...){

#' 

#' if(interactive()) shinyApp(ui, server)

#' 

#' @name read-batch

#' @export

sg_read_delay_nodes_p <- function(proxy, data, ..., delay){

#'   sg_edges(edges, id, source, target) %>%

#'   sg_layout() %>% 

#'   sg_noverlap()

#'

#' @rdname noverlap

#' @export

#' }

#' if(interactive()) shinyApp(ui, server) # run

#' 

#' @rdname get_graph

#' @export

sg_get_nodes_p <- function(proxy) {

#' @note Keep \code{width} at \code{100\%} for a responsive visualisation.

#' 

#' @seealso \code{\link{sg_kill}}.

#' @export

sigmajs <- function(type = NULL, width = "100%", kill = FALSE, height = NULL, elementId = NULL) {

#'   \item{\code{sg_filter_undo_p} Undo filters, accepts vector of \code{name}s.}

#' }

#' 

#' 

#' @rdname filter

#' @export

#' sigmajs() %>% 

#'   sg_from_gexf(gexf) 

#' }

#' @export

sg_from_gexf <- function(sg, file, sd = NULL) {

#'   sg_animate(mapping = list(x = "to_x", y = "to_y", size = "to_size"))

#' 

#' @seealso \href{https://github.com/jacomyal/sigma.js/tree/master/plugins/sigma.plugins.animate}{official documentation}

#'

#' @rdname animation

#' @export

#'   sg_export_svg() %>% 

#'   sg_button("export_svg", "download")

#' 

#' 

#' @rdname export

#' @export

#'   

#' # all source and target are present in node ids

#' all(c(edges$source, edges$target) %in% nodes$id)

#'

#' @rdname graph

#' @export

#'   sg_add_edges(edges, delay, id, source, target, cumsum = FALSE) %>%

#'   sg_force_stop(2300) # stop after all edges added

#' 

#' @rdname add_static

#' @export

sg_add_nodes <- function(sg, data, delay, ..., cumsum = TRUE) {

#'   sg_nodes(nodes, id, size, color) %>% 

#'   sg_drop_nodes(nodes2, id, delay, cumsum = FALSE)

#' 

#' @rdname drop_static 

#' @export

sg_drop_nodes <- function(sg, data, ids, delay, cumsum = TRUE) {

#'   sg_read_exec() %>% 

#' 	 sg_button("read_exec", "Add nodes & edges")

#' 

#' @name read-static

#' @export

sg_read_nodes <- function(sg, data, ..., delay){

#' demo("add-camera", package = "sigmajs")

#' }

#' 

#' @noRd

#' @keywords internal

sg_camera <- function(sg, elementId = NULL, initialise = FALSE) {

#'   sg_nodes(nodes, id, label) %>% # no need to pass size

#'   sg_edges(edges, id, source, target) %>% 

#'   sg_relative_size()

#'

#' @export

sg_relative_size <- function(sg, initial = 1) {

#'   sg_force() %>% 

#'   sg_force_stop() # stop force after 5 seconds

#' 

#' @seealso \href{https://github.com/jacomyal/sigma.js/tree/master/plugins/sigma.layout.noverlap}{official documentation}

#'

#' @name force

#'   sg_progress(nodes2, delay, text, element = "h3") %>%

#'   sg_button(c("add_nodes", "progress"), "add") 

#' 

#' @export

sg_progress <- function(sg, data, delay, text, ..., position = "top", id = NULL,

                        tag = htmltools::span, cumsum = TRUE){

#'		sg_from_igraph(lesmis_igraph, layout) %>%

#'		sg_settings(defaultNodeColor = "#000")

#' }

#'

#' @export

sg_from_igraph <- function(sg, igraph, layout = NULL, sd = NULL) {

#' 

#' @note The default class (\code{btn btn-default}) works with Bootstrap 3 (the default framework for Shiny and R markdown).

#' 

#' @export

sg_button <- function(sg, event, ..., position = "top", class = "btn btn-default", tag = htmltools::tags$button, id = NULL){

}

.onLoad <- function(libname, pkgname) {

}

#'   

#' clustered <- sg_get_cluster(nodes, edges)

#' 

#' 

#' @rdname cluster

#' @export

#'   sg_edges(edges, id, source, target) %>% 

#'   sg_layout() %>% 

#'   sg_neighbours()

#'

#' @rdname neighbours

#' @export

#' 

#' @inheritParams sg_nodes

#' 

#' @rdname clear-kill

#' @export

sg_kill <- function(sg){

#'   sg_nodes(nodes, id, size) %>% 

#'   sg_scale_color(pal = c("red", "blue"))

#' 

#' @name color-scale

#' @export

sg_scale_color <- function(sg, pal){

#' 

#' @seealso \href{https://github.com/jacomyal/sigma.js/wiki/Events-API}{official documentation}.

#' 

#' @export 

sg_events <- function(sg, events){

#' # proxies

#' demo("drag-nodes", package = "sigmajs")

#' }

#'

#' @rdname drag-nodes

#' @export

}

#' @rdname drag-nodes

}

#' @rdname drag-nodes

}