如何停止功能？

Question

我想在某个条件下停止该功能，而不是继续执行以下功能。

whole <- function(z)            #z: file name
{
  u=1
  U=matrix(nrow = length(z)-1-(sum(apply(z,2,function(x)length(table(x))==1))),ncol=2)
  for (h in (2:length(z)))
  {
    if (length(table(z[h]))==1) {
      next
    }
    newname = with(z,table(z[,1],z[,h]))
    newname = as.data.frame.matrix(newname)
    if (sum(newname==0) > 0) {
      stop(matrix(c(names(newname)[1],names(newname)[2]),nrow = 1,ncol = 2))
    }
    if (is.ordered(z[,h])==TRUE)
    {     
      repeat
      {
         k=1

该行有什么问题，包括＆＃39;停止＆＃39;

Answer 1

stop是你如何引发错误（当你想要的时候）。您正在寻找break。请注意，它有一个奇怪的语法;见?break。