R/proxies.R

In JohnCoene/gior: A Declarative 3D Globe Data Visualization Library built with 'Three.js'

globalVariables(c("."))

#' Add & Clear
#'
#' Add and clear data in Shiny.
#'
#' @inheritParams gior
#' @inheritParams g_data
#' @param proxy A proxy as returned by \code{\link{giorProxy}}.
#'
#' @examples
#' if(interactive()){
#'
#'   library(shiny)
#'
#'   data("country_data")
#'
#'   ui <- fluidPage(
#'     actionButton("add", "add"),
#'     actionButton("clear", "clear"),
#'     giorOutput("gior")
#'   )
#'
#'   server <- function(input, output, session){
#'     output$gior <- renderGior({
#'       data %>%
#'         gior() %>%
#'         g_data(from, to, value)
#'     })
#'
#'     observeEvent(input$clear, {
#'       giorProxy("gior") %>%
#'         g_clear_p()
#'     })
#'
#'     observeEvent(input$add, {
#'       giorProxy("gior") %>%
#'         g_data_p(country_data, from, to, value)
#'     })
#'   }
#'
#'   shinyApp(ui, server)
#'
#' }
#'
#' @rdname add
#' @export
g_clear_p <- function(proxy){

  if (!"giorProxy" %in% class(proxy))
    stop("must pass giorProxy object", call. = FALSE)

  data <- list(id = proxy$id)

  proxy$session$sendCustomMessage("g_clear_p", data)

  return(proxy)
}

#' @rdname add
#' @export
g_data_p <- function(proxy, data, from, to, value, ...){

  if (!"giorProxy" %in% class(proxy))
    stop("must pass giorProxy object", call. = FALSE)

  if(missing(data) || missing(from) || missing(to) || missing(value))
    stop("missing data, from, to, or value", call. = FALSE)

  row.names(data) <- NULL

  e <- dplyr::enquo(from)
  i <- dplyr::enquo(to)
  v <- dplyr::enquo(value)

  json <- data %>%
    dplyr::select(
      e = !!e,
      i = !!i,
      v = !!v,
      ...
    ) %>%
    apply(., 1, as.list)

  data <- list(id = proxy$id, json = json)

  proxy$session$sendCustomMessage("g_data_p", data)

  return(proxy)
}

#' Initialise
#'
#' (Re)- initialise the globe.
#'
#' @inheritParams g_clear_p
#'
#' @export
g_init_p <- function(proxy){

  if (!"giorProxy" %in% class(proxy))
    stop("must pass giorProxy object", call. = FALSE)

  data <- list(id = proxy$id)

  proxy$session$sendCustomMessage("g_init_p", data)

  return(proxy)
}


#' Switch
#'
#' Switch country.
#'
#' @inheritParams g_clear_p
#' @param country Country to zoom onto.
#'
#' @export
g_switch_p <- function(proxy, country){

  if (!"giorProxy" %in% class(proxy))
    stop("must pass giorProxy object", call. = FALSE)

  if(missing(country))
    stop("missing country", call. = FALSE)

  data <- list(id = proxy$id, country = country)

  proxy$session$sendCustomMessage("g_switch_p", data)

  return(proxy)
}