reactwidget.R

#' @export
React <- structure(list(), class = "react.component.builder")

isUpper <- function(s) {
  grepl("^[[:upper:]]+$", s)
}

#' @export
`$.react.component.builder` <- function(x, name) {
  if (length(name) == 0 || !isUpper(substring(name, 1, 1))) {
    stop("Component name must be specified and start with an upper case character")
  }
  function(...) {
    htmltools::tag(name, list(...))
  }
}

#' @export
`[[.react.component.builder` <- `$.react.component.builder`

#' @export
`$<-.react.component.builder` <- function(x, name, value) {
  stop("Assigning to a component constructor is not allowed")
}

#' @export
`[[<-.react.component.builder` <- `$<-.react.component.builder`

# Example:
# React$SomeComponent(x = 1,
#   React$OtherThing(y = 4),
#   React$OtherThing(y = 4),
# )