[rkward-cvs] rkward/rkward/plugins/00saveload/save/save code.php,NONE,1.1 description.xml,NONE,1.1

[adrien]

Update of /cvsroot/rkward/rkward/rkward/plugins/00saveload/save/save
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31036/rkward/plugins/00saveload/save/save

Added Files:
	code.php description.xml 
Log Message:
last mail hopefully 
plugins save (wherease save environment, you can choose which object can be save)
thank you for your patience
I hope everything will work : you should have a entry for save load plugin ready to use now

--- NEW FILE: description.xml ---
<!DOCTYPE rkplugin>
<document>
  <entry type="entry" id="save" label="Save as R object" />
<!-- The layout-section takes care of the layout of the GUI for this plugin. -->  <dialog>
    <tabbook>
      <tab label="Select variables" >
        <column>
          <row>
            <varselector id="vars" label="Select a variable" />
            <varslot multi="true" classes="all" id="data" source="vars" label="Object" required="true" />
          </row>
        </column>
        <frame label="Options" >
          <row>
            <browser size="small" initial="~/rk.temp.data.RData" id="file" label="Name of the file" />
            <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="ascii" label="Ascii" />
            <checkbox value_unchecked="FALSE" checked="false" value="TRUE" id="compress" label="Compress" />
          </row>
        </frame>
      </tab>
    </tabbook>
  </dialog>
</document>

--- NEW FILE: code.php ---
<?
	function preprocess () {
	}
	
	function calculate () {
$vars = str_replace ("\n", ",", trim (getRK_val ("data"))) ;
?>

save ( <? echo ($vars) ; ?> , file =  "<? getRK("file") ; ?>" , ascii =  <? getRK("ascii") ; ?> , compress =  <? getRK("compress") ; ?> )

<?
	}
	
	function printout () {
	// produce the output
?>

<?
	}
	
	function cleanup () {
?>


<?
	}
?>