The R Project SVN R-packages

Rev

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

Rev 6408 Rev 7337
Line 89... Line 89...
89 
			return;
 89 
			return;
90 
		}
 90 
		}
91 
		if (!home) home = [[RController sharedController] home];
 91 
		if (!home) home = [[RController sharedController] home];
92 
		if ([file hasPrefix:home])
 92 
		if ([file hasPrefix:home])
93 
			file = [file substringFromIndex:[home length]];
 93 
			file = [file substringFromIndex:[home length]];
94 
		url = [NSString stringWithFormat:@"http://127.0.0.1:%d%@", port, file];
 94 
		url = [NSString stringWithFormat:@"http://localhost:%d%@", port, file];
95 
	}
 95 
	}
96 
	SLog(@"HelpManager.showHelpUsingFile:\"%@\", topic=%@, URL=%@", file, topic, url);
 96 
	SLog(@"HelpManager.showHelpUsingFile:\"%@\", topic=%@, URL=%@", file, topic, url);
97 
	if(url != nil) {
 97 
	if(url != nil) {
98 
		if ([Preferences flagForKey:kExternalHelp withDefault:NO])
 98 
		if ([Preferences flagForKey:kExternalHelp withDefault:NO])
99 
			[[REngine mainEngine] executeString:[NSString stringWithFormat:@"browseURL(\"%@\")", url]];
 99 
			[[REngine mainEngine] executeString:[NSString stringWithFormat:@"browseURL(\"%@\")", url]];