remove deprecated functions

NAMESPACE

@@ -30,8 +30,6 @@ S3method(print,infer_ts_ind_ttest)
 S3method(print,infer_ts_paired_ttest)
 S3method(print,infer_ts_prop_test)
 S3method(print,infer_ts_var_test)
-S3method(print,var_test_shiny)
-S3method(var_test_shiny,default)
 export(binom_calc)
 export(binom_test)
 export(chisq_gof)
@@ -70,16 +68,13 @@ export(ts_prop_grp)
 export(ts_prop_test)
 export(ttest)
 export(var_test)
-export(var_test_shiny)
 importFrom(Rcpp,sourceCpp)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,funs)
 importFrom(dplyr,group_by)
-importFrom(dplyr,group_by_)
 importFrom(dplyr,mutate)
 importFrom(dplyr,pull)
 importFrom(dplyr,select)
-importFrom(dplyr,select_)
 importFrom(dplyr,summarise_all)
 importFrom(magrittr,"%>%")
 importFrom(magrittr,subtract)
@@ -93,6 +88,7 @@ importFrom(rlang,"!!")
 importFrom(rlang,enquo)
 importFrom(rlang,quo_is_null)
 importFrom(rlang,quos)
+importFrom(rlang,sym)
 importFrom(shiny,runApp)
 importFrom(stats,anova)
 importFrom(stats,as.formula)
@@ -116,4 +112,4 @@ importFrom(stats,var)
 importFrom(tibble,as_data_frame)
 importFrom(tibble,tibble)
 importFrom(tidyr,gather)
-useDynLib(inferr, .registration = TRUE)
+useDynLib(inferr)

R/RcppExports.R

@@ -2,10 +2,10 @@
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
 nsignC <- function(x) {
-    .Call(`_inferr_nsignC`, x)
+    .Call('_inferr_nsignC', PACKAGE = 'inferr', x)
 }
 
 gvar <- function(ln, ly) {
-    .Call(`_inferr_gvar`, ln, ly)
+    .Call('_inferr_gvar', PACKAGE = 'inferr', ln, ly)
 }
 

R/infer-utils.R

@@ -1,4 +1,4 @@
-#' @importFrom dplyr group_by group_by_ select_ summarise_all funs mutate
+#' @importFrom dplyr group_by summarise_all funs mutate
 #' @importFrom magrittr %>% use_series
 #' @importFrom stats var sd
 #' @importFrom tibble tibble as_data_frame
@@ -741,10 +741,12 @@ indpool <- function(n1, n2, mean_diff, se_dif) {
   return(out)
 }
 
+#' @importFrom rlang sym
 tibble_stats <- function(data, x, y) {
+
     by_factor <- data %>%
-        group_by_(y) %>%
-        select_(y, x) %>%
+        group_by(!! sym(y)) %>%
+        select(!! sym(y), !! sym(x)) %>%
         summarise_all(funs(length, mean, var, sd)) %>%
         as_data_frame() %>%
         mutate(
@@ -755,7 +757,7 @@ tibble_stats <- function(data, x, y) {
 
 tbl_stats <- function(data, y) {
     avg <- data %>%
-        select_(y) %>%
+        select(y) %>%
         summarise_all(funs(length, mean, sd)) %>%
         as_data_frame() %>%
         mutate(
@@ -837,8 +839,8 @@ paired_data <- function(x, y) {
 #' @importFrom dplyr select
 paired_stats <- function(data, key, value) {
   d <- data %>%
-    group_by_(key) %>%
-    select_(value, key) %>%
+    group_by(key) %>%
+    select(value, key) %>%
     summarise_all(funs(length, mean, sd)) %>%
     as_data_frame() %>%
     mutate(