#' Add a camera

#'

#' Add a camera to your graph.

#'

#' @param sg An object of class \code{sigmajs}as intatiated by \code{\link{sigmajs}}.

#' @param elementId Id of graph that initialised the camera.

#' @param initialise Whether to initialise the camera.

#'

#' @note Cameras should only be initialised once.

#'

#' @examples

#' \dontrun{

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

#' }

#' 

#' @return An object of class \code{htmlwidget} which renders the visualisation on print.

#' 

#' @noRd

#' @keywords internal

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

  )

}

#' Zoom

#'

#' Dynamically Zoom a node.

#'

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

#' @param id Node id to zoom to.

#' @param duration Duration of animation.

#' @param ratio The zoom ratio of the graph and its items.

#'

#' @export

sg_zoom_p <- function(proxy, id, ratio = .5, duration = 1000) {

}