simplifyDF:

Usage Arguments Examples

View source: R/simplifyDF.R

Usage

1
simplifyDF(d, stringsAsFactors = FALSE)

Arguments

d
stringsAsFactors

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (d, stringsAsFactors = FALSE) 
{
    convert_numeric_to_int <- function(x) {
        ret <- if (is.numeric(x)) {
            if (all(x == as.integer(x))) {
                as.integer(x)
            }
            else {
                x
            }
        }
        else {
            x
        }
        ret
    }
    as.data.frame(lapply(d, convert_numeric_to_int), stringsAsFactors = stringsAsFactors)
  }

vlulla/vlutils documentation built on May 21, 2019, 12:35 a.m.