project.search = function( h="project.help", ... ) {
#// project.search ( "keyword", ... ) -- '...' are grep options
#// project.search ( "^eco.*" ) -- keyword can be REGEX .. start a line with "eco"
if ( h=="project.help" ) {
project.help( "project.search" )
return("Pass keyword or a regular expression (?regex)")
}
fn.code = file.path( work_root, "project.help.sourcecode.rdata" )
if ( !file.exists( fn.code) ) project.help( "refresh" )
load( fn.code )
extractData = function(X, h, ... ) {
ee = grep( h, X, ignore.case=TRUE, ... )
out = NULL
if (length(ee) >0 ) {
out= paste( paste( names(X), "[", ee, "]", sep=""), X[ee] )
}
return(out)
}
res = sapply( code, extractData, h=h, ... )
rr = which( lapply( res, length ) > 0)
if (length( rr) > 0 ) {
fname = paste(tempfile(), "hmtl", sep=".")
fn = file(fname, "w")
cat( "\nFile names and [line number] where matches were found: \n", file=fn )
cat( "\n", file=fn )
for ( r in rr ) {
output = res[r]
cat( paste( names( output), ":" ), file=fn )
cat("\n\n", file=fn )
cat( paste(" ", unlist(output), sep="\n" ), file=fn )
cat("\n\n", file=fn )
}
close(fn)
browseURL( fname )
} else {
cat( "No matches were found \n")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.