R/toggle.R

In lifx: Control 'LIFX' Smart Light Bulbs

#' Toggle light
#' @template param_duration
#' @template param_selector
#' @template param_token
#' @examples
#' \dontrun{
#' lx_toggle(duration = 5)
#' lx_toggle(selector = lx_selector(location = "kitchen"))
#' }
#' @export
lx_toggle <- function(duration = 0, selector = "all", token = lx_get_token()) {
    lx_POST(selector, endpoint = "toggle", token = token, duration = duration)
}