ΠΠ°ΠΊ ΡΠ΄Π΅Π»Π°ΡΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Π² R? ΠΠΎΡ ΡΡΡ Π½Π°ΠΌΠ΅ΡΠΎΡΠΊΠΈ, ΡΡΠΎΠ±Ρ ΠΏΠΎΡΠΎΠΌ Π½Π΅ Π·Π°Π±ΡΡΡ ΠΈ ΡΡΠΎΠ±Ρ ΠΏΠΎΠ΄Π΅Π»ΠΈΡΡΡΡ.
Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ
ΠΡΡΡ ΠΊΠ°ΠΊΠ°Ρ-ΡΠΎ ΠΊΡΡΡΠ°Ρ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° gWidgets. Π Π΅ΡΡ Π΅ΡΡΡ ΠΌΠ°Π»ΠΎΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΠ΅ ΠΏΠ΅ΡΠ΅ΠΏΠΈΡΡΠ²Π°Π½ΠΈΠ΅ 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
ΠΠΎΠ»ΠΆΠ½ΠΎ Π²ΡΡΠΊΠΎΡΠΈΡΡ ΡΡΠΎ-ΡΠΎ Π½Π΅ΠΊΡΠ°ΡΠΈΠ²ΠΎΠ΅.
Π ΠΏΡΠΈΠΌΠ΅ΡΡ Π²ΡΡΠΊΠΈΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΠΌΠΎΡΡΠ΅ΡΡ Π² ΠΊΡΠ°ΡΠΈΠ²ΠΎΠΉ ΠΠΠ€ΠΊΠ΅:
Π Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΡ ΠΏΠΎ ΠΏΠ°ΠΊΠ΅ΡΡ:
Π Π²ΠΎΡ ΡΡΠ° ΠΊΠ½ΠΈΠ³Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΠΈΠ½ΡΠ΅ΡΠ΅Ρ: