Renames the package to IMPosterior

DESCRIPTION

@@ -1,4 +1,4 @@
-Package: IMposterior
+Package: IMPosterior
 Title: Plot the posterior distribution
 Version: 0.5
 Authors@R: c(

NAMESPACE

@@ -1,7 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
-export(IMposterior)
-export(IMposteriorOutput)
-export(renderIMposterior)
+export(IMPosterior)
+export(IMPosteriorOutput)
+export(renderIMPosterior)
 import(htmlwidgets)
 importFrom(magrittr,"%>%")

R/IMposterior.R → R/IMPosterior.R

@@ -6,7 +6,7 @@
 #' @importFrom magrittr "%>%"
 #'
 #' @export
-IMposterior <- function(x, MME = 0, threshold = 0.75, colors,
+IMPosterior <- function(x, MME = 0, threshold = 0.75, colors,
                         width = NULL, height = NULL,
                         elementId = NULL) {
   # Set colors
@@ -71,39 +71,39 @@ IMposterior <- function(x, MME = 0, threshold = 0.75, colors,
 
   # create widget
   htmlwidgets::createWidget(
-    name = 'IMposterior',
+    name = 'IMPosterior',
     opts,
     width = width,
     height = height,
-    package = 'IMposterior',
+    package = 'IMPosterior',
     elementId = elementId
   )
 }
 
-#' Shiny bindings for IMposterior
+#' Shiny bindings for IMPosterior
 #'
-#' Output and render functions for using IMposterior within Shiny
+#' Output and render functions for using IMPosterior within Shiny
 #' applications and interactive Rmd documents.
 #'
 #' @param outputId output variable to read from
 #' @param width,height Must be a valid CSS unit (like \code{'100\%'},
 #'   \code{'400px'}, \code{'auto'}) or a number, which will be coerced to a
 #'   string and have \code{'px'} appended.
-#' @param expr An expression that generates a IMposterior
+#' @param expr An expression that generates a IMPosterior
 #' @param env The environment in which to evaluate \code{expr}.
 #' @param quoted Is \code{expr} a quoted expression (with \code{quote()})? This
 #'   is useful if you want to save an expression in a variable.
 #'
-#' @name IMposterior-shiny
+#' @name IMPosterior-shiny
 #'
 #' @export
-IMposteriorOutput <- function(outputId, width = '100%', height = '400px'){
-  htmlwidgets::shinyWidgetOutput(outputId, 'IMposterior', width, height, package = 'IMposterior')
+IMPosteriorOutput <- function(outputId, width = '100%', height = '400px'){
+  htmlwidgets::shinyWidgetOutput(outputId, 'IMPosterior', width, height, package = 'IMPosterior')
 }
 
-#' @rdname IMposterior-shiny
+#' @rdname IMPosterior-shiny
 #' @export
-renderIMposterior <- function(expr, env = parent.frame(), quoted = FALSE) {
+renderIMPosterior <- function(expr, env = parent.frame(), quoted = FALSE) {
   if (!quoted) { expr <- substitute(expr) } # force quoted
-  htmlwidgets::shinyRenderWidget(expr, IMposteriorOutput, env, quoted = TRUE)
+  htmlwidgets::shinyRenderWidget(expr, IMPosteriorOutput, env, quoted = TRUE)
 }

inst/htmlwidgets/IMposterior.js → inst/htmlwidgets/IMPosterior.js

@@ -1,6 +1,6 @@
 HTMLWidgets.widget({
 
-  name: 'IMposterior',
+  name: 'IMPosterior',
 
   type: 'output',
 

tests/example.R

@@ -4,8 +4,8 @@ x <- rnorm(1000)
 
 
 # Usy my widget -----------------------------------------------------------
-library(IMposterior)
-IMposterior(x= x, MME=1)
+library(IMPosterior)
+IMPosterior(x= x, MME=1)