if (FALSE) {
library(quickcode)
# Track usage of type2 and type1 functions
store.usage.file <- tempfile()
type5 <- function(x) type2(x)
type4 <- function(x) type3(x)
type3 <- function(x) type1(x)
type1 <- function(x) {
mean(x)
sd(x)
track_func(store.usage.file)
}
type2 <- function(x) {
type1(x)
track_func(store.usage.file)
}
# add usage counts to store.usage.file
type1(number(10))
type2(number(10))
type3(number(10))
type4(number(10))
type5(number(10))
# check the stored function usage file
print(read.csv(store.usage.file))
}
Run the code above in your browser using DataLab