R/utils.R

In ramnathv/vuer: Harness the Power of Vue in R

asPropsList <- function (x, name = "name", value = "value"){
  x <- as.list(x)
  nms <- names(x)
  lapply(seq_along(x), function(i) {
    l <- list()
    l[name] <- nms[i]
    l[value] <- x[i]
    l
  })
}


#' Use a vue Plugin
#'
#'
#' @export
vueUsePlugin <- function(fun){
  tags$script(sprintf("Vue.use(%s)", fun))
}

#' Append html dependencies
#'
#' NOTE: This function has been copied over from shinydashboard
#' @export
appendDependencies <- function (x, value){
  if (inherits(value, "html_dependency"))
    value <- list(value)
  old <- attr(x, "html_dependencies", TRUE)
  htmlDependencies(x) <- c(old, value)
  x
}

#' @importFrom purrr map
#' @importFrom htmltools tags
#' @export vtags
vtags <- names(htmltools::tags) %>%
  purrr::map(~ function(...){
    vtag(.x, list(...))
  }) %>%
  rlang::set_names(names(tags))

#' Vue Tag
#'
#'
#' @export
#' @examples
#' vtag("input", list(type = "text", vmodel = "message"))
vtag <- function(`_tag_name`, varArgs){
  if (!is.null(names(varArgs))){
    names(varArgs) <- gsub("^v(.*)", "v-\\1", names(varArgs))
    names(varArgs) <- gsub(
      "^v-([^\\.]*)(\\.)(.*)$", "v-\\1:\\3", names(varArgs)
    )
  }
  htmltools::tag(`_tag_name`, varArgs)
}