The R Project SVN R-packages

Rev

Rev 1443 | Rev 3159 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1443 Rev 1490
Line 125... Line 125...
125 
/* This method is implemented to allow image data file to be loaded into R using open
 125 
/* This method is implemented to allow image data file to be loaded into R using open
126 
or drag and drop. In case of a successfull loading of image file, we don't want to
 126 
or drag and drop. In case of a successfull loading of image file, we don't want to
127 
create the UI for the document.
 127 
create the UI for the document.
128 
*/
 128 
*/
129 
- (BOOL)readFromFile:(NSString *)fileName ofType:(NSString *)docType{
 129 
- (BOOL)readFromFile:(NSString *)fileName ofType:(NSString *)docType{
130 
	if( [[RController getRController] isImageData:fileName] == 0){
 130 
	if( [[RController sharedController] isImageData:fileName] == 0){
131 
		[[RController getRController] sendInput: [NSString stringWithFormat:@"load(\"%@\")",fileName]];
 131 
		[[RController sharedController] sendInput: [NSString stringWithFormat:@"load(\"%@\")",fileName]];
132 
		[[NSDocumentController sharedDocumentController]  setShouldCreateUI:NO];
 132 
		[[NSDocumentController sharedDocumentController]  setShouldCreateUI:NO];
133 
		return(YES);
 133 
		return(YES);
134 
	} else {
 134 
	} else {
135 
		[[NSDocumentController sharedDocumentController]  setShouldCreateUI:YES];
 135 
		[[NSDocumentController sharedDocumentController]  setShouldCreateUI:YES];
136 
		return( [super readFromFile: fileName ofType: docType] );
 136 
		return( [super readFromFile: fileName ofType: docType] );