Nothing
#' A function to update node
#'
#' @param nodes a data frame
#' @param newNode a new row
#' @param name a string
#' @return a data.frame updated the nodes
#' @keywords internal
updateNodes <- function(nodes, newNode, name = "leaf") {
rows <- nodes[name] == newNode[1, name]
nodes <- rbind(nodes[!rows, ], newNode)
nodes
}
#' A function to deal with symbols
#'
#' @param input a string
#' @return converted string
#' @keywords internal
encodeHtml <- function(input) {
# reference: https://en.wikipedia.org/wiki/List_of_XML_and_HTML_character_entity_references
dict <- data.frame(
c('&', '\u0026'),
c('<=', '\u2264'),
c('>=', '\u2265'),
c('<', '\u003C'),
c('>', '\u003E')
)
tmp <- input
for (i in 1:ncol(dict)) {
tmp <- gsub(dict[1, i], dict[2, i], tmp)
Encoding(tmp) <- "UTF-8"
}
tmp
}
#' A function to draw an oval
#'
#' @param plotobj the obj to be plot
#' @param x x
#' @param y y
#' @param c c
#' @param x.scale x.scale
#' @param y.scale y.scale
#' @return a ggplot object
#' @importFrom ggplot2 geom_polygon aes
#' @keywords internal
oval_draw <- function(plotobj, x, y, c, x.scale = 1, y.scale = 1, ...){
t <- seq(-1 * pi, 1 * pi, length = 100)
df <- data.frame(
x = x.scale * sin(t) + x,
y = y.scale * cos(t) / c + y
)
plotobj <- plotobj +
geom_polygon(data = df,
aes(x, y),
fill = "lightgrey",
color = "black")
}
#' A function to draw the confidence interval as a diamond
#'
#' @param plotobj the obj to be plot
#' @param x the x coordinate of the center to be plotted
#' @param y the y coordinate of the center to be plotted
#' @param a the distance between the center to the vertext on x-axis of the diamond
#' @param b the distance between the center to the vertext on x-axis of the diamond
#' @return a ggplot object
#' @importFrom ggplot2 geom_polygon aes
#' @keywords internal
CI_draw <- function(plotobj, x, y, a = 1, b = 1){
x0 <- seq(0, a, length = 25)
x1 <- seq(-a, 0, length = 25)
y1 <- -b/a * x0 + b
y2 <- b/a * x0 - b
y3 <- b/a * x1 + b
y4 <- -b/a * x1 - b
x.coord <- c(x0, x1, x0, x1) + x
y.coord <- c(y1, y3, y2, y4) + y
df <- data.frame (x.coord = x.coord, y.coord = y.coord)
plotobj <- plotobj +
geom_polygon(data = df,
aes(x.coord, y.coord),
fill = "black",
color = "black")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.