|
a |
|
b/R/MetaNet-package.R |
|
|
1 |
#' @keywords internal |
|
|
2 |
"_PACKAGE" |
|
|
3 |
|
|
|
4 |
## usethis namespace: start |
|
|
5 |
#' @import ggplot2 |
|
|
6 |
#' @import igraph |
|
|
7 |
#' @importFrom dplyr select filter left_join arrange count mutate group_by summarise pull rename |
|
|
8 |
#' @importFrom igraph V E |
|
|
9 |
#' @importFrom utils data combn head tail write.csv packageName |
|
|
10 |
#' @importFrom stats aggregate median var sd setNames runif relevel coef fitted cor coefficients formula lm pt |
|
|
11 |
#' @importFrom stats time na.omit kmeans p.adjust density approx ks.test smooth.spline |
|
|
12 |
#' @importFrom pcutils lib_ps mmscale get_cols trans guolv hebing update_param tidai change_fac_lev |
|
|
13 |
#' @importFrom graphics legend hist par text symbols |
|
|
14 |
#' @importFrom tibble rownames_to_column column_to_rownames |
|
|
15 |
#' @importFrom reshape2 acast melt |
|
|
16 |
## usethis namespace: end |
|
|
17 |
NULL |
|
|
18 |
|
|
|
19 |
## quiets concerns of R CMD check re: the .'s that appear in pipelines |
|
|
20 |
if (getRversion() >= "2.15.1") utils::globalVariables(c(".")) |
|
|
21 |
|
|
|
22 |
#' Show MetaNet logo |
|
|
23 |
#' |
|
|
24 |
#' @return picture |
|
|
25 |
#' @export |
|
|
26 |
show_MetaNet_logo <- function() { |
|
|
27 |
pcutils::read.file(system.file("figures/MetaNet.png", package = "MetaNet"), all_yes = TRUE) |
|
|
28 |
} |
|
|
29 |
|
|
|
30 |
# Load the value of the option on package startup |
|
|
31 |
.onAttach <- function(libname, pkgname) { |
|
|
32 |
add_metanet_shapes() |
|
|
33 |
} |