# NOT RUN {
if (require(Lahman))
{
franches <- makeSchemaFromData(TeamsFranchises, name="team_franch")
show(franches)
makeSchemaFromFunction(function(x) head(x), name="team_franch", x=TeamsFranchises)
test.df <- TeamsFranchises
names(test.df)[1] <- "franch.ID"
names(test.df)
names(correct.df.names(test.df))
}
# }
Run the code above in your browser using DataLab