Блог

Я создал универсальную функцию и определил класс вывода внутри функции. Я также создал функцию печати, которая принимает выходные данные первой функции.

Однако после того, как я запускаю print, исходная функция выдает результат print, а не тот результат, который я хочу, чтобы он выдавал.

Это мои методы:

 fisher <- function(obj, ...){
  UseMethod("fisher")
}

fisher.default <- function(obj, ...){
  x<- -2*sum(log(obj))
  df <- 2*length(obj)
  p = pchisq(x, df,lower.tail = FALSE)
  class(p)="fisher"
  p
}

print.fisher <- function(print_obj){
  paste("The p-value of this vector is: ", print_obj)

}

xx= fisher(x)
 

fisher перед созданием и выполнением print.fisher функции все работало отлично. Теперь fisher(x) выдает точный вывод как print(xx) .

Что может быть не так?

Со мной работает следующее. R 4.0.3 в Ubuntu 20.10.

 fisher <- function(x, ...){
  UseMethod("fisher")
}

fisher.default <- function(x, ...){
  y <- -2*sum(log(x))
  df <- 2*length(x)
  p <- pchisq(y, df, lower.tail = FALSE)
  class(p) <- c("fisher", class(p))
  p
}

print.fisher <- function(x, ...){
  y <- paste("The p-value of this vector is:", unclass(x))
  print(y)
  invisible(y)
}

set.seed(2020)
x <- abs(rnorm(10))
xx <- fisher(x)
xx
#[1] "The p-value of this vector is: 0.985718045451049"
 

Запуск функции без назначения выходных данных также вызывает пользовательский метод печати.

 fisher(x)
#[1] "The p-value of this vector is: 0.985718045451049"