![\"plot](\"..\/..\/lise.vaudor\/Rfigures\/Interface_TclTk\/Lise_Vaudor_headband.png\")
<\/p>\n<\/p>\n
EDIT: Ce billet date d’une \u00e9poque o\u00f9 je n’avais pas encore d\u00e9couvert la magie de Shiny<\/a>… D\u00e9sormais, je conseillerais \u00e0 quiconque souhaite faire une petite interface interactive sous R d’aller voir de ce c\u00f4t\u00e9 l\u00e0… Il y a d\u00e9j\u00e0 des tutoriels tr\u00e8s bien faits ici<\/a>.<\/em><\/p>\n Ce billet vise \u00e0 vous montrer comment construire une interface \u00ab\u00a0clique-boutons\u00a0\u00bb<\/strong> pour R.<\/p>\n Pour un utilisateur r\u00e9gulier de R, le recours \u00e0 une telle interface est plut\u00f4t \u00ab\u00a0gadget\u00a0\u00bb (ou en tout cas d’un rapport utilit\u00e9\/temps d’\u00e9criture tr\u00e8s peu int\u00e9ressant). MAIS il peut se r\u00e9v\u00e9ler utile de fournir une telle interface \u00e0 un utilisateur novice<\/strong> de R, auquel on souhaite permettre d’utiliser des scripts R sans qu’il ait \u00e0 mettre le nez dedans…<\/p>\n Pour ce billet, je vais montrer, \u00e0 travers un exemple, comment construire une petite interface \u00e0 l’aide du package Il s’agira de faire un mini-jeu consistant \u00e0 deviner un chiffre (tir\u00e9 au hasard par l’ordinateur) en faisant le moins d’essais possibles. Le joueur sera guid\u00e9 par des indications de type \u00ab\u00a0Le nombre est plus grand\u00a0\u00bb\/\u00a0\u00bbLe nombre est plus petit\u00a0\u00bb.<\/p>\n Soyons clairs, on a d\u00e9j\u00e0 vu des jeux plus amusants (par exemple – message subliminal – Zelda : A Link between Worlds sous Nintendo 3DS). Mais bon, commen\u00e7ons notre carri\u00e8re de d\u00e9veloppeur informatique doucement.<\/sup><\/sub><\/p>\n L’interface, in fine<\/em>, aura l’apparence suivante:<\/p>\n Elle est compos\u00e9e de divers composants d’interface graphiques (les widgets<\/strong>). Ici, elle est compos\u00e9e en particulier:<\/p>\n Voici comment construire l’interface de base:<\/p>\n A ce stade, l’interface est totalement vide.<\/p>\n On va pouvoir afficher les widgets dans un cadre (frame<\/strong>). On cr\u00e9e donc un premier frame<\/strong>, fr1.<\/p>\n On le remplit simplement avec un court texte (un label<\/strong>).<\/p>\n La fonction A ce stade, l’interface ressemble simplement \u00e0 ceci:<\/p>\n On cr\u00e9e un deuxi\u00e8me frame, fr2. On va le remplir avec un court text (label<\/strong>) et avec une bo\u00eete de saisie (entry<\/strong>).<\/p>\n A ce stade, l’interface ressemble \u00e0 ceci<\/p>\n Le widget de type entry<\/strong> est associ\u00e9 \u00e0 une variable tcl<\/strong> (il s’agit de la variable correspondant \u00e0 la valeur \u00e9crite par l’utilisateur dans le widget).<\/p>\n Pour cr\u00e9er le widget, il faut donc commencer par cr\u00e9er cette variable (qu’on a appel\u00e9 ici On peut r\u00e9cup\u00e9rer la valeur de cette variable Vous pouvez faire le test consistant \u00e0:<\/p>\n Enfin, cr\u00e9ons le troisi\u00e8me et dernier frame, qui contient le bouton poussoir (button<\/strong>). L’activation du bouton poussoir lance un certain nombre de processus, qui sont regroup\u00e9s dans une fonction R<\/strong>. Ici, le bouton \u00ab\u00a0OK\u00a0\u00bb va \u00eatre li\u00e9 \u00e0 une fonction que j’ai appel\u00e9 Il faut donc \u00e9crire la fonction Notez l’usage du symbole Sous R, un environnement est en quelque sorte l'\u00a0\u00bbendroit\u00a0\u00bb comprenant les objets. Par d\u00e9faut, la plupart des objets cr\u00e9\u00e9s sont stock\u00e9s sous l’environnement \u00ab\u00a0de base\u00a0\u00bb. Les objets cr\u00e9\u00e9s lors de l’ex\u00e9cution d’une fonction font exception (un nouvel environnement local et temporaire est cr\u00e9\u00e9 \u00e0 chaque ex\u00e9cution de la fonction). Le symbole Il existe beaucoup d’autres types de widgets<\/strong> que je n’ai pas abord\u00e9s ici: radiobuttons, checkbuttons, menus, listboxes, etc. Il existe \u00e9galement une infinit\u00e9 de mani\u00e8re de modifier l’arrangement g\u00e9om\u00e9trique<\/strong> et les propri\u00e9t\u00e9s graphiques<\/strong> (taille, couleur, polices, etc.) de votre interface.<\/p>\n Ici, par souci de simplicit\u00e9, je n’ai pas abord\u00e9 ces aspects, mais vous pouvez trouver tout un tas d’exemples compl\u00e9mentaires sur le net…<\/p>\n EDIT: Ce billet date d’une \u00e9poque o\u00f9 je n’avais pas encore d\u00e9couvert la magie de Shiny… D\u00e9sormais, je conseillerais \u00e0 quiconque souhaite faire une petite interface interactive sous R d’aller voir de ce c\u00f4t\u00e9 l\u00e0… Il y a d\u00e9j\u00e0 des tutoriels tr\u00e8s bien faits ici. Ce billet vise \u00e0 vous montrer comment construire une interface \u00ab\u00a0clique-boutons\u00a0\u00bb pour R. Pour un utilisateur r\u00e9gulier de R, le recours \u00e0 une telle interface.. Read More<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-277","post","type-post","status-publish","format-standard","hentry","category-tous-les-posts"],"_links":{"self":[{"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/posts\/277","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/comments?post=277"}],"version-history":[{"count":20,"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/posts\/277\/revisions"}],"predecessor-version":[{"id":565,"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/posts\/277\/revisions\/565"}],"wp:attachment":[{"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/media?parent=277"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/categories?post=277"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/perso.ens-lyon.fr\/lise.vaudor\/wp-json\/wp\/v2\/tags?post=277"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}Exemple: construction d’une interface simple<\/h1>\n
tcltk<\/code>.<\/p>\n![\"Interface](\"..\/..\/lise.vaudor\/Rfigures\/Interface_TclTk\/int_comp.PNG\")
<\/p>\n\n
#d\u00e9commenter la ligne ci-dessous pour installer le package\n#install.packages(\"tcltk\")\nrequire(tcltk)\nbase=tktoplevel()\ntkwm.title(base, \"supergameR\")\n<\/code><\/pre>\n# creation et affichage du frame\nfr1=tkframe(base)\ntkpack(fr1)\n\n# creation et affichage du label\nt1=tklabel(fr1, text=\"SupergameR, a super game on R!\")\ntkpack(t1)\n<\/code><\/pre>\ntklabel<\/code> permet de cr\u00e9er le widget, mais ne l’affiche pas directement dans l’interface. C’est l’appel de la fonction tkpack<\/code> qui permet de l’afficher dans l’interface.<\/p>\n![\"Interface](\"..\/..\/lise.vaudor\/Rfigures\/Interface_TclTk\/int_2.PNG\")
<\/p>\n# creation et affichage du deuxieme frame\nfr2=tkframe(base)\ntkpack(fr2)\n\n# creation et affichage du deuxieme label \nt2=tklabel(fr2,text=\"Find mystery number (between 0 & 100)\")\ntkpack(t2, side=\"left\")\n\n# creation et affichage de l'entry\nv_prop_n=tclVar(\"\")\ne1=tkentry(fr2, textvariable=v_prop_n)\ntkpack(e1,side=\"right\") \n<\/code><\/pre>\n![\"Interface](\"..\/..\/lise.vaudor\/Rfigures\/Interface_TclTk\/int_3.PNG\")
<\/p>\nv_prop_n<\/code> pour \u00ab\u00a0variable correspondant \u00e0 la proposition de nombre\u00a0\u00bb). Ici, on a initialis\u00e9 cette valeur pour qu’elle soit non renseign\u00e9e a priori. Si l’on avait indiqu\u00e9 v_prop_n=tclVar(\"50\")<\/code>, alors la valeur par d\u00e9faut propos\u00e9e dans l’interface serait 50:<\/p>\n![\"Interface](\"..\/..\/lise.vaudor\/Rfigures\/Interface_TclTk\/int_5.PNG\")
<\/p>\nv_prop_n<\/code> \u00e0 travers la commande:<\/p>\ntclvalue(v_prop_n)\n<\/code><\/pre>\n\n
ok<\/code>.<\/p>\nok<\/code> avant de cr\u00e9er le bouton poussoir… C’est l’\u00e9tape la plus d\u00e9licate!<\/p>\n# creation et affichage du troisieme frame\nfr3=tkframe(base)\ntkpack(fr3)\n\n# tirage au hasard d'un nombre entier entre 0 et 100\nn=sample(0:100,1)\n\n# nombre d'essais\nk=0\n\n# fonction \u00e0 executer lorsque l'utilisateur appuie sur le bouton \"OK\"\nok=function(){\n ## R\u00e9cup\u00e8re la valeur de la variable v_prop_n\n prop_n<<-as.numeric(tclvalue(v_prop_n))\n ## Compare cette valeur \u00e0 la valeur de n\n if(prop_n<n){ans=\"No! it's more!\"}\n if(prop_n>n){ans=\"No! it's less!\"}\n if(prop_n==n){ans=\"Yes! exactly!\"}\n ## Augmente le nombre d'essais de 1\n k<<-k+1\n ## Cr\u00e9e un texte comprenant \n ## d'une part l'indication \"plus grand ou plus petit\"\n ## d'autre part le nombre d'essais.\n\n ans=paste(ans,\"(number of trials:\", k, \")\", sep=\"\")\n ## Si une telle \u00e9tiquette a d\u00e9j\u00e0 \u00e9t\u00e9 cr\u00e9\u00e9e lors d'un essai pr\u00e9c\u00e9dent, \n ## elle est d\u00e9truite \n if(exists(\"lab\", env=globalenv())){tkdestroy(lab)}\n ## L'etiquette est cr\u00e9\u00e9e et affich\u00e9e\n lab<<-tklabel(fr3,text=ans)\n tkpack(lab)\n}\nokbutton=tkbutton(fr3, text=\"OK\", command=ok)\ntkpack(okbutton) \n<\/code><\/pre>\n<<-<\/code> \u00e0 la place de =<\/code> ou <-<\/code>. Il est li\u00e9 \u00e0 la notion d’environnement<\/strong> (c’est une notion un petit peu compliqu\u00e9e \u00e0 expliquer comme \u00e7a entre la poire et le fromage, mais je vais quand-m\u00eame en dire quelques mots en attendant de faire un billet sur le sujet). <\/sup><\/sub><\/p>\n<<-<\/code> permet de passer outre cette propri\u00e9t\u00e9 et de cr\u00e9er les objets dans l’environnement de base. <\/sup><\/sub><\/p>\nPour aller plus loin<\/h1>\n
\n