issues-48 (#50)

* First

* Update

Author: teramonagi

NAMESPACE

@@ -4,6 +4,7 @@ export(add)
 export(define)
 export(disaggregate)
 export(gmutate)
+export(gsummarise)
 export(gsummarize)
 export(mfilter)
 export(mplot_bar)

R/metrics_definition.R

@@ -3,6 +3,7 @@ NULL
 
 # Advertisng world metrics
 ad_metrics <- define(
+  count = n(),
   cost = sum(cost),
   impression = sum(impression),
   click = sum(click),

R/mmetrics.R

@@ -80,15 +80,16 @@ gmutate <- function(df, ..., metrics) gprocess(dplyr::mutate, df, ..., metrics =
 
 #' Pick evaluable metrics in the given data frame
 #'
-#' @param metrics Metrics
 #' @param df Data frame
+#' @param metrics Metrics
 #'
 #' @return Evaluable metrics
 #'
 #' @export
-mfilter <- function(metrics, df) {
+mfilter <- function(df, metrics) {
   is_evaluatable <- function(metrics, df) {
-    out <- tryCatch(eval(rlang::quo_squash(metrics), envir = df), error = function(e) e, silent = TRUE)
+    # Adhoc code
+    out <- tryCatch(dplyr::mutate(df[1, ], !!rlang::quo_squash(metrics)), error = function(e) e, silent = TRUE)
     !(any(class(out) == "error"))
   }
   is_effective <- unlist(purrr::map(metrics, ~ is_evaluatable(.x, df)))
@@ -98,7 +99,7 @@ mfilter <- function(metrics, df) {
 # Internal function for data process with group
 gprocess <- function(fun, df, ..., metrics) {
   group_vars <- rlang::enquos(...)
-  metrics <- mfilter(metrics, df)
+  metrics <- mfilter(df, metrics)
   df %>%
     dplyr::group_by(!!!group_vars) %>%
     fun(!!!metrics) %>%

README.Rmd

@@ -18,10 +18,8 @@ options(knitr.table.format = 'markdown')
 [![Travis-CI Build Status](https://api.travis-ci.com/y-bar/mmetrics.svg?branch=master)](https://travis-ci.com/y-bar/mmetrics) 
 [![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/mmetrics)](https://cran.r-project.org/package=mmetrics)
 [![codecov](https://codecov.io/github/y-bar/mmetrics/branch/master/graphs/badge.svg)](https://codecov.io/github/y-bar/mmetrics) 
-[![minimal R version](https://img.shields.io/badge/R%3E%3D-3.4.0-6666ff.svg)](https://cran.r-project.org/)
 [![Licence](https://img.shields.io/cran/l/mmetrics.svg)](https://github.com/y-bar/mmetrics/blob/master/LICENSE)
 [![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://www.tidyverse.org/lifecycle/#experimental)
-[![Last-changedate](https://img.shields.io/badge/last%20change-`r gsub('-', '--', Sys.Date())`-yellowgreen.svg)](/commits/master)
 
 
 Easy Computation of Marketing Metrics with Different Analysis Axis.