REnvironmentObject *RObjectList::createTopLevelEnvironment (const QString &name) {
RK_TRACE (OBJECTS);
REnvironmentObject *envobj = new REnvironmentObject (this, name);
envobj->updateFromR (update_chain);
return envobj;
}
void RObjectList::createToplevelEnvironment (const QString &name) {
RK_TRACE (OBJECTS);
RK_ASSERT (childmap.find (name) == childmap.end ());
REnvironmentObject *envobj = new REnvironmentObject (this, name);
if (name == ".GlobalEnv") {
envobj->type |= GlobalEnv;
} else if (name.contains (':')) {
envobj->namespace_name = name.section (':', 1);
} else if (name == "Autoloads") {
envobj->type |= GlobalEnv; // this is wrong! but it's a temporary HACK to get things to work
}
addChild (envobj, name);
RKGlobals::tracker ()->addObject (envobj, 0);
envobj->updateFromR ();
}
