## a data.frame
data(iris)
Complete("item <- iris$")
Complete("item <- iris[[", TRUE)
## An S4 object
setClass("track", representation(x = "numeric", y = "numeric"))
t1 <- new("track", x=1:20, y=(1:20)^2)
Complete("item2 <- t1@", TRUE)
## A namespace
Complete("utils::")
## A partial identifier
Complete("item3 <- va", TRUE)
## Otherwise, a list with the content of .GlobalEnv
Complete("item4 <- ")
Run the code above in your browser using DataLab