R/cdm_print_summary_call.R

Defines functions cdm_print_summary_call

Documented in cdm_print_summary_call

## File Name: cdm_print_summary_call.R
## File Version: 0.05


cdm_print_summary_call <- function(object, call_name="call")
{
    CALL <- object[[ call_name ]]
    s3 <- paste0(CALL, collapse=" ")
    if ( nchar(s3) < 3000 ){
        cat("Call:\n")
        print( CALL )
        cat("\n")
    }
}

Try the CDM package in your browser

Any scripts or data that you put into this service are public.

CDM documentation built on Aug. 25, 2022, 5:08 p.m.