diff --git a/cute_little_R_functions.R b/cute_little_R_functions.R index 85f27ee79772589cbb5ce40714b04ec6313df333..c940469b9549dda253765329cd734bac19538ed4 100644 --- a/cute_little_R_functions.R +++ b/cute_little_R_functions.R @@ -2074,6 +2074,7 @@ fun_mat_fill <- function(mat, empty.cell.string = 0, warn.print = FALSE){ # DEBUGGING # mat = matrix(c(1,NA,NA,NA, 0,2,NA,NA, NA,3,4,NA, 5,6,7,8), ncol = 4) ; empty.cell.string = NA ; warn.print = TRUE # for function debugging # mat = matrix(c(0,0,0,2, 0,0,3,0, 0,3,0,NA, 5,0,0,0), ncol = 4) ; empty.cell.string = 0 ; warn.print = TRUE # for function debugging # topleft example +# mat = matrix(c(0,0,0,2, 0,0,3,0, 0,3,0,NA, 5,0,0,0), ncol = 4) ; empty.cell.string = NA ; warn.print = TRUE # for function debugging # topleft example # function name function.name <- paste0(as.list(match.call(expand.dots=FALSE))[[1]], "()") # end function name @@ -2164,8 +2165,11 @@ stop(tempo.cat) tempo.cat <- paste0("\n\n================\n\nERROR IN ", function.name, ": THE FUNCTION HAS DETECTED EMPTY AND NON EMPTY HALF PART IN THE SAME SECTOR: ", paste(full.sector[full.sector %in% empty.sector], collapse = " "), "\n\n================\n\n") stop(tempo.cat) }else if(length(empty.sector) + length(full.sector)!= 4){ -tempo.cat <- paste0("\n\n================\n\nERROR IN ", function.name, ": THE FUNCTION HAS DETECTED MORE OR LESS SECTORS THAN 4:\nEMPTY SECTORS:", paste(empty.sector, collapse = " "), "\nFULL SECTORS:", paste(full.sector, collapse = " "), "\n\n================\n\n") +tempo.cat <- paste0("\n\n================\n\nERROR IN ", function.name, ": THE FUNCTION HAS DETECTED MORE OR LESS SECTORS THAN 4:\nHALF SECTORS:", paste(empty.sector, collapse = " "), "\nFULL SECTORS:", paste(full.sector, collapse = " "), "\n\n================\n\n") stop(tempo.cat) +}else{ +tempo.warning <- paste0("FROM FUNCTION ", function.name, ": ", toupper(empty.sector), " SECTOR HAS BEEN COMPLETED TO BECOME SYMMETRICAL") +warning <- paste0(ifelse(is.null(warning), tempo.warning, paste0(warning, "\n\n", tempo.warning))) } # matrix filling for(i1 in 1:(nrow(mat) - 1)){ diff --git a/cute_little_R_functions.docx b/cute_little_R_functions.docx index 9cf3ca8fcf3c29dca2ad0ac07fe4cb4958a6fa63..76ff0b7b256bd86707aea73a70e99cd80956e02b 100644 Binary files a/cute_little_R_functions.docx and b/cute_little_R_functions.docx differ