tclRequire("Tktable", warn = TRUE)
n <- 1000
V1 <- sample(c(1:9, NA), n, replace = TRUE)
V2 <- sample(LETTERS, n, replace = TRUE)
V3 <- as.POSIXct(rnorm(n, mean = 0, sd = 1e6), origin = "2010-01-01")
V4 <- sample(V1 * pi, n)
d <- data.frame(V1, V2, V3, V4)
column.names <- c("Integers", "Letters", "DateTime", "Numeric")
column.units <- c("units", NA, NA, NA)
column.formats <- c("%d", "%s", "%m/%d/%Y %H:%M", NA)
ViewData(d, column.names, column.units, column.formats)
row.names(d) <- 1:n + n
ViewData(d, column.names, column.formats = column.formats)
Run the code above in your browser using DataLab