The R Project SVN R-packages

Rev

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

Rev 6936 Rev 7337
Line 206... Line 206...
206 
 
 206 
 
207 
.e[[".__RGUI__..First"]] <- .GlobalEnv$.First
 207 
.e[[".__RGUI__..First"]] <- .GlobalEnv$.First
208 
 
 208 
 
209 
 
 209 
 
210 
add.fn("aqua.browser", function(x, ...) {
 210 
add.fn("aqua.browser", function(x, ...) {
- 
 
 211 
    ## El Capitan has a bug in ATS that makes it impossible to white-list 127.0.0.1 so we have to use localhost
- 
 
 212 
    x <- gsub("http://127.0.0.1", "http://localhost", x, fixed=TRUE)
211 
    .Call("aqua.custom.print", "help-files", x)
 213 
    .Call("aqua.custom.print", "help-files", x)
212 
    invisible(x)})
 214 
    invisible(x)})
213 
 
 215 
 
214 
add.fn("main.help.url",
 - 
 
215 
       function() help.start(browser = function(x, ...) {
 216 
add.fn("main.help.url", function() help.start(browser = aqua.browser))
216 
           .Call("aqua.custom.print", "help-files", x)
 - 
 
217 
           invisible(x)
 - 
 
218 
       })
 - 
 
219 
)
 - 
 
220 
 
 217 
 
221 
add.fn("wsbrowser", function(IDS, IsRoot, Container, ItemsPerContainer,
 218 
add.fn("wsbrowser", function(IDS, IsRoot, Container, ItemsPerContainer,
222 
                            ParentID, NAMES, TYPES, DIMS)
 219 
                            ParentID, NAMES, TYPES, DIMS)
223 
{
 220 
{
224 
    .Call("wsbrowser", as.integer(IDS), IsRoot, Container,
 221 
    .Call("wsbrowser", as.integer(IDS), IsRoot, Container,