inst/shiny_examples/demo/global.r

# Histograms
histograms <- function(data, variable, binwidth) {
  ggplot(data, aes_string(x = variable)) + 
    theme_bw(base_size = 16) + 
    geom_histogram(binwidth = binwidth) 
}

power_point <- function(data, x, y) {
  ggplot2::ggplot(data, aes_string(x = x, y = y)) + 
    ggplot2::theme_bw(base_size = 16) + 
    ggplot2::geom_point(size = 4) + 
    #geom_line(aes_string(linetype = group, color = group)) + 
    ggplot2::ylab("Power")
}

power_point_group <- function(data, x, y, group_var = NULL, 
                              facet_var = NULL) {
  p <- ggplot2::ggplot(data, aes_string(x = x, y = y, group = group_var)) + 
    ggplot2::theme_bw(base_size = 16) + 
    ggplot2::geom_point(size = 4, aes_string(color = group_var, shape = group_var)) + 
    ggplot2::geom_line(aes_string(linetype = group_var, color = group_var)) + 
    ggplot2::ylab("Power") 
  if(is.null(facet_var)) {
    p
  } else {
    p + ggplot2::facet_wrap(facet_var)
  }
}

# param_table <- htmltools::withTags(
#   table(
#     class = 'display',
#     thead(
#       tr(
#         
#       )
#     )
#   )
# )

Try the simglm package in your browser

Any scripts or data that you put into this service are public.

simglm documentation built on Feb. 7, 2022, 9:08 a.m.