Merge branch 'development' of github.com:leibniz-psychology/FEARBASE-…

…R-Package into development

.gitignore

@@ -1,3 +1,4 @@
 .idea
 /.idea/
 .Rproj.user
+.Rhistory

NAMESPACE

@@ -4,3 +4,4 @@ importFrom("stats", "as.formula", "pnorm", "predict", "qnorm")
 importFrom("utils", "str")
 
 export(jsonSummary)
+export(checkData)

R/summary.R → R/jsonSummary.R

@@ -1,23 +1,23 @@
-#' @title JSON summary
-#'
-#' @description
-#' produces a json summary of includes dataset specified by parameter [d].
-#' @param d
-#' A \code{string} representing the dataset name which json representation should be returned.
-#' @return
-#' returns a json representation of an included dataset
-#' @author
-#' @export
-#' @examples
-
-jsonSummary <- function(d) {
-  requireNamespace("jsonlite")
-
-  #load the in variable d defined dataset from the package
-  dat <- checkData(d)
-
-  val <-jsonlite::toJSON(lapply(dat, function(x){as.list(summary(x))}), pretty = TRUE, auto_unbox = TRUE)
-  return(val)
-
-}
-
+#' @title JSON summary
+#'
+#' @description
+#' produces a json summary of includes dataset specified by parameter [d].
+#' @param d
+#' A \code{string} representing the dataset name which json representation should be returned.
+#' @return
+#' returns a json representation of an included dataset
+#' @author
+#' @export
+#' @examples
+
+jsonSummary <- function(d) {
+  requireNamespace("jsonlite")
+
+  #load the in variable d defined dataset from the package
+  dat <- checkData(d)
+
+  val <-jsonlite::toJSON(lapply(dat, function(x){as.list(summary(x))}), pretty = TRUE, auto_unbox = TRUE)
+  return(val)
+
+}
+