[Rd] patch to add a menu item in Rgui for RSiteSearch

[Adaikalavan Ramasamy]

While on the subject, may I also suggest that a menu item to search the
BioConductor archives be added.

 Archives             : https://stat.ethz.ch/pipermail/bioconductor/
 Search-able archives : http://files.protsuggest.org/cgi-bin/biocond.cgi

I hope this is not an unreasonable request considering that there is
menu item to select repositories to include BioConductor in R-2.1.0beta.

Thank you.

Regards, Adai



On Tue, 2005-04-12 at 12:57 -0400, Liaw, Andy wrote:
> Please consider adding the following to the next R release (I understand
> that it's too late for R-2.1.0).  It adds the menu item `Search R Site' in
> the `Help' menu in Rgui (which calls RSiteSearch() on the input string).
> 
> Best,
> Andy
> 
> --- R-beta/src/gnuwin32/rui.c	2005-03-06 09:41:40.000000000 -0500
> +++ R-beta-new/src/gnuwin32/rui.c	2005-04-12 08:21:55.001824500 -0400
> @@ -65,7 +65,8 @@
>  static menuitem msource, mdisplay, mload, msave, mloadhistory,
>      msavehistory, mpaste, mpastecmds, mcopy, mcopypaste, mlazy, mconfig,
>      mls, mrm, msearch, mhelp, mmanintro, mmanref, mmandata,
> -    mmanext, mmanlang, mmanadmin, mman0, mapropos, mhelpstart, mhelpsearch,
> 
> +    mmanext, mmanlang, mmanadmin, mman0, mapropos, mhelpstart, mhelpsearch,
> +    msearchRsite,
>      mFAQ, mrwFAQ, mpkgl, mpkgm, mpkgi, mpkgil, mpkgu, /*mpkgb, mpkgbu,*/
>      mde, mCRAN, mrepos;
>  static int lmanintro, lmanref, lmandata, lmanlang, lmanext, lmanadmin;
> @@ -485,6 +486,21 @@
>      }
>  }
>  
> +static void menusearchRsite(control m)
> +{
> +    char *s;
> +    static char olds[256] = "";
> +
> +    if (!ConsoleAcceptCmd) return;
> +    s = askstring(G_("Search R Site"), olds);
> +    if (s && strlen(s)) {
> +	snprintf(cmd, 1024, "RSiteSearch(\"%s\")", s);
> +	if (strlen(s) > 255) s[255] = '\0';
> +	strcpy(olds, s);
> +	consolecmd(RConsole, cmd);
> +    }
> +}
> +
>  static void menuapropos(control m)
>  {
>      char *s;
> @@ -560,6 +576,7 @@
>  	enable(msearch);
>  	enable(mhelp);
>  	enable(mhelpsearch);
> +	enable(msearchRsite);
>  	enable(mapropos);
>  	enable(mpkgl);
>  	enable(mpkgm);
> @@ -579,6 +596,7 @@
>  	disable(msearch);
>  	disable(mhelp);
>  	disable(mhelpsearch);
> +	disable(msearchRsite);
>  	disable(mapropos);
>  	disable(mpkgl);
>  	disable(mpkgm);
> @@ -985,6 +1003,7 @@
>      MCHECK(mhelpstart = newmenuitem(G_("Html help"), 0, menuhelpstart));
>      if (!check_doc_file("doc\\html\\rwin.html")) disable(mhelpstart);
>      MCHECK(mhelpsearch = newmenuitem(G_("Search help..."), 0,
> menuhelpsearch));
> +    MCHECK(msearchRsite = newmenuitem(G_("Search R Site..."), 0,
> menusearchRsite));
>      MCHECK(newmenuitem("-", 0, NULL));
>      MCHECK(mapropos = newmenuitem(G_("Apropos..."), 0, menuapropos));
>      MCHECK(newmenuitem("-", 0, NULL));
> 
> ______________________________________________
> R-devel at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-devel
>