Update S3 methods export

Author: gdemin

NAMESPACE

@@ -62,6 +62,8 @@ S3method(as.labelled,labelled)
 S3method(as.labelled,list)
 S3method(as.logical,labelled)
 S3method(as.numeric,labelled)
+S3method(build_compare,default)
+S3method(build_compare,numeric)
 S3method(c,labelled)
 S3method(calculate,data.frame)
 S3method(calculate,list)
@@ -113,6 +115,7 @@ S3method(make_labels_from_names,list)
 S3method(make_subheadings,default)
 S3method(make_subheadings,etable)
 S3method(mean,data.frame)
+S3method(median,data.frame)
 S3method(merge,etable)
 S3method(n_diff,data.frame)
 S3method(n_diff,data.table)
@@ -679,3 +682,7 @@ import(matrixStats)
 import(stats)
 import(utils)
 importFrom(data.table,data.table)
+importFrom(htmlTable,htmlTable)
+importFrom(htmlTable,htmlTableWidget)
+importFrom(htmlTable,htmlTableWidgetOutput)
+importFrom(htmlTable,interactiveTable)

R/S3_methods.R

@@ -16,8 +16,8 @@ mtfrm.labelled <- function(x) {
 as.data.frame.labelled = function(x, ..., nm = paste(deparse(substitute(x), width.cutoff = 500L)) ){
     if(length(class(x))>1){
         # because we can have labelled matrices or factors with variable label
-        NextMethod("as.data.frame", ..., nm = nm, stringsAsFactors = FALSE)
-        
+        # NextMethod("as.data.frame", ..., nm = nm, stringsAsFactors = FALSE)
+        as.data.frame.vector(x, ..., nm = nm, stringsAsFactors = FALSE)  
     } else {
         # this branch for other packages where "labelled' is single class rather than c("labelled", "numeric") etc.
 

R/sum.R

@@ -119,7 +119,7 @@ sd_col=function(..., na.rm = TRUE){
 
 ################################################
 
-# @export
+#' @exportS3Method
 median.data.frame = function(x, ...) stats::median(as.matrix(x), ...)
 
 #' @export