The R Project SVN R-packages

Rev

Rev 6060 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6060 Rev 6089
Line 184... Line 184...
184 
}
 184 
}
185 
 
 185 
 
186 
- (BOOL)writeToURL:(NSURL *)absoluteURL ofType:(NSString *)docType error:(NSError **)outError
 186 
- (BOOL)writeToURL:(NSURL *)absoluteURL ofType:(NSString *)docType error:(NSError **)outError
187 
{
 187 
{
188 
 
 188 
 
189 
	SLog(@"RDocument.writeToFile: %@ ofType: %@ ", fileName, docType);
 189 
	SLog(@"RDocument.writeToFile: %@ ofType: %@ ", absoluteURL, docType);
190 
 
 190 
 
191 
	NSString *oldFileType = (initialContentsType)?:ftRSource;
191 
	NSString *oldFileType = (initialContentsType)?:ftRSource;
192 
 
 192 
 
193 
	if([[[absoluteURL absoluteString] lowercaseString] hasSuffix:@".rtf"]) {
 193 
	if([[[absoluteURL absoluteString] lowercaseString] hasSuffix:@".rtf"]) {
194 
		SLog(@" - docType was changed to rtf due to file extension");
 194 
		SLog(@" - docType was changed to rtf due to file extension");