Displaying 1 result from an estimated 1 matches for "swprod".
Did you mean:
siprod
2010 Feb 12
1
Assign Name of Data Frame
...MakeDF <- function(table)
#------------------------------------------------------------
# Function makes dataframe from UNIX SAS datasets
#------------------------------------------------------------
{
st.time <- Sys.time()
print(substitute(table))
sql.stmt <- paste("select * from swprod.", substitute(table),
sep="")
print(sql.stmt)
substitute(table) <<- sqlQuery(sears, sql.stmt)
# deparse(substitute(table)) <<- sqlQuery(sears, sql.stmt)
end.time
print(end.time - st.time)
}
MakeDF(sku_series)