@@ -58,14 +58,16 @@ parse_rprof <- function(path, interval=0.02) { start = start, end = start + 1, leaf = 1:depth == depth, - hist = sapply(1:depth, function(i) digest(call[seq_len(i)])) + hist = sapply(1:depth, function(i) digest(call[seq_len(i)])), + stringsAsFactors = TRUE )) depth <- sapply(calls, length) calldf <- data.frame( call = array(unclass(calls)), start = 0:(length(calls)-1), - depth = depth + depth = depth, + stringsAsFactors = TRUE ) do.call(rbind, apply(calldf, 1, .expand.call)) R/parse.r r/parse.r c0c9c47861c3ed47ee151b8ff029a7b7944e8f6c hadley h.wickham@gmail.com http://github.com/hadley/profr/commit/aa10542be58347a51c816460afe2539f6fb9cbf5 aa10542be58347a51c816460afe2539f6fb9cbf5 2008-07-01T11:44:50-07:00 2008-07-01T11:44:50-07:00 Ensure that stringsAsFactors = TRUE 3e455768198ede7ebf7756988d0f62d26fc2a79f hadley h.wickham@gmail.com