R/rd3pie.R

In smartinsightsfromdata/rd3pie: Interface to d3pie Library, built on d3.js, for creating clear, attractive pie charts

#' <Add Title>
#'
#' <Add Description>
#'
#' @import htmlwidgets
#'
#' @export
rd3pie <- function(Data, Title = NULL,
    SubTitle = NULL, OuterRadius = NULL, width = NULL, height = NULL, enabled_tooltips = NULL, type = NULL ){

if(class(Data[[colnames(Data)[1]]]) == "character") { colnames(Data)[1] <- "label"
} else { colnames(Data)[1] <- "value"  }
if(class(Data[[colnames(Data)[2]]]) == "character") { colnames(Data)[2] <- "label"
} else { colnames(Data)[2] <- "value"  }

d3data <- lapply(1:nrow(Data), function(i) {
    l_ <- as.list(Data[i, ])
    return(l_)})

lData <- list(
  header = list(
    title = list(
      text = Title),
    subtitle = list(
      text = SubTitle)
  ),
  size = list(
    pieOuterRadius = OuterRadius),
  data = list(
    content = d3data),
  tooltips = list(
     enabled = enabled_tooltips,
    type = type
  )
)

#lData <- list(data = list( content = d3data))


  # create widget
  htmlwidgets::createWidget(
    name = 'rd3pie',
    x = lData,
    width = width,
    height = height,
    package = 'rd3pie'
  )
}


#' Widget output function for use in Shiny
#'
#' @export
rd3pieOutput <- function(outputId, width = '100%', height = '100%'){
  shinyWidgetOutput(outputId, 'rd3pie', width, height, package = 'rd3pie')
}

# TODO
#' Widget render function for use in Shiny
#'
#' @export
renderRd3pie <- function(expr, env = parent.frame(), quoted = FALSE) {
  if (!quoted) { expr <- substitute(expr) } # force quoted
  shinyRenderWidget(expr, rd3pieOutput, env, quoted = TRUE)
# TODO
}