ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Π² R? ΠΠΎΡ ΡΡΡ Π½Π°ΠΌΠ΅ΡΠΎΡΠΊΠΈ, ΡΡΠΎΠ±Ρ ΠΏΠΎΡΠΎΠΌ Π½Π΅ Π·Π°Π±ΡΡΡ ΠΈ ΡΡΠΎΠ±Ρ ΠΏΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ.
= Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ ΠΡΡΡ ΠΊΠ°ΠΊΠ°Ρ-ΡΠΎ ΠΊΡΡΡΠ°Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° gWidgets. Π Π΅ΡΡ Π΅ΡΡΡ ΠΌΠ°Π»ΠΎΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΠ΅ ΠΏΠ΅ΡΠ΅ΠΏΠΈΡΡΠ²Π°Π½ΠΈΠ΅ gWidgets2. ΠΡΠ΄Π΅ΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΌ.
=> https://github.com/jverzani/gWidgets2
Π£ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ (ΠΎΠ΄ΠΈΠ½ ΡΠ°Π·):
install.packages("gWidgets2")
install.packages("gWidgets2tcltk")
ΠΠΎΠ΄ΠΊΠ»ΡΡΠΈΡΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ:
library("gWidgets2")
library("gWidgets2tcltk")
Π ΠΈΠ· README.md ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΠ΅ΡΡΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠΎΡΠΊΠΎ:
w <- gwindow("Hello...", visible=FALSE) ## a parent container
g <- ggroup (cont = w) ## A box container
b <- gbutton("Click me for a message", cont=g, expand=TRUE) ## some control
addHandlerClicked(b, function(...) { ## adding a callback to an event
gmessage("Hello world!", parent=w) ## a dialog
})
visible(w) <- TRUE ## a method call
ΠΠΎΠ»ΠΆΠ½ΠΎ Π²ΡΡΠΊΠΎΡΠΈΡΡ ΡΡΠΎ-ΡΠΎ Π½Π΅ΠΊΡΠ°ΡΠΈΠ²ΠΎΠ΅.
Π ΠΏΡΠΈΠΌΠ΅ΡΡ Π²ΡΡΠΊΠΈΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π² ΠΊΡΠ°ΡΠΈΠ²ΠΎΠΉ ΠΠΠ€ΠΊΠ΅: => https://cran.r-hub.io/web/packages/gWidgets/vignettes/gWidgets.pdf
Π Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΡ ΠΏΠΎ ΠΏΠ°ΠΊΠ΅ΡΡ: => https://stat.ethz.ch/CRAN/web/packages/gWidgets2/gWidgets2.pdf
Π Π²ΠΎΡ ΡΡΠ° ΠΊΠ½ΠΈΠ³Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΠΈΠ½ΡΠ΅ΡΠ΅Ρ: => http://nzdr.ru/data/media/biblio/kolxoz/Cs/CsPl/Lawrence%20M.,%20Verzani%20J.%20Programming%20Graphical%20User%20Interfaces%20in%20R%20(CRC,%202012)(ISBN%201439856826)(O)(467s)_CsPl_.pdf
- public document at doc.anagora.org/r_gui
- video call at meet.jit.si/r_gui