updates

now with a shiny hwe-app

NAMESPACE

@@ -10,6 +10,7 @@ export(cpr_sex)
 export(date_convert)
 export(dob_extract_cpr)
 export(hwe_allele)
+export(hwe_app)
 export(hwe_geno)
 export(hwe_sum)
 export(plot_ord_odds)

R/hwe_app.R

@@ -0,0 +1,13 @@
+#' Shiny app of the Hardy Weinberg Equillibrium calculations
+#'
+#' App to easily calculate and visualize the HWE.
+#'
+#' @export
+hwe_app <- function() {
+  appDir <- system.file("shiny-examples", "hwe_calc", package = "daDoctoR")
+  if (appDir == "") {
+    stop("Could not find app directory. Try re-installing `daDoctoR`.", call. = FALSE)
+  }
+
+  shiny::runApp(appDir, display.mode = "normal")
+}

man/hwe_app.Rd

@@ -0,0 +1,11 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/hwe_app.R
+\name{hwe_app}
+\alias{hwe_app}
+\title{Shiny app of the Hardy Weinberg Equillibrium calculations}
+\usage{
+hwe_app()
+}
+\description{
+App to easily calculate and visualize the HWE.
+}