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