def rename_r_object(self,event):
prompt = variable_prompt.VariablePrompt(['New Label'])
if not prompt.get_inputs():
return
new_label = prompt.get_inputs()[0]
treeview = self.builder.get_object("objectview")
selected = treeview.get_selection().get_selected_rows()
index = selected[1][0]
label = selected[0][index][1]
if self.active_robject.label == label:
self.clear_dataview()
object = self.robjects[label]
#Create the new named object
self.add_r_object(object,label=new_label)
#Delete the old object
del self.robjects[label]
rsession.rm(label)
self.refresh_object_list()
self.set_active_robject(object)
def new_workspace(self,event):
if not wrappers.yesNoDialog('Are you sure you want to create a new workspace?'):
return
#Delete everything in R
rsession.rm(rsession.ls())
#Delete everything in Python
self.clear_dataview()
self.active_robject = None
self.robjects.clear()
self.refresh_object_list()
def delete_r_object(self,object):
'''Remove a object from the REnviroment'''
treeview = self.builder.get_object("objectview")
selected = treeview.get_selection().get_selected_rows()
index = selected[1][0]
label = selected[0][index][1]
if self.active_robject.label == label:
self.clear_dataview()
del self.robjects[label]
rsession.rm(label)
self.refresh_object_list()
def run(self,*event):
ilab,idata = self.custom_variables['independent'].get_first()
dlab,ddata = self.custom_variables['dependent'].get_first()
x = self.active_r_object[ilab]
y = self.active_r_object[dlab]
fit = rsession.r('lm(%s ~ %s,data=%s)' % (y,x,self.active_r_object.label))
if idata == ddata:
error('Variables are identical, results may not be accurate.')
anova_output = rsession.r['anova'](fit)
name = 'ANOVA ' + str(self.active_r_object.label)
#This isn't good if there are variables called x,y in the workspace
rsession.rm('x')
rsession.rm('y')
self.parent.render_description(anova_output,label=name)
