User Input using tcl/tk

[This article was first published on Jason Bryer » R, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

I was inspired by Kay Cichini  recent post on creating a a tcl/tk dialog box for users to enter variable values. I am going to have a use for this very soon so took some time to make it a bit more generic. What I wanted is a function that takes a vector (of variable names) of arbitrary length, create a dialog box for an input for each, and return the values in a list. While I was at it I also provided an optional separate vector for the labels (defaults to the variable names) that the user will see and a vector of functions used to convert the text input into another data format (e.g. convert characters to numeric values). Obviously using built in functions works great but one could also easily exploit this feature to write custom data validation functions. The function is hosted on Gist and embedded bellow. Here are some very basic examples:

Dialog box with two variables.

> vals <- varEntryDialog(vars=c('Variable1', 'Variable2'))

> str(vals)
List of 2
$ Variable1: chr "value 1"
$ Variable2: chr "value 2"

Dialog box with two variables, custom labels, and converts one to an integer.

> vals <- varEntryDialog(vars=c('Var1', 'Var2'), labels=c('Enter an integer:', 'Enter a string:'), fun=c(as.integer, as.character))

> str(vals)
List of 2
$ Var1: int 5
$ Var2: chr "abc"

Dialog box with validation.

> vals <- varEntryDialog(vars=c('Var1'), labels=c('Enter an integer between 0 and 10:'), fun=c(
function(x) {
     x <- as.integer(x)
     if(x >= 0 & x <= 10) {
     } else {
         stop("Why didn't you follow instruction!\nPlease enter a number between 0 and 10.")
 } ))

> str(vals)
List of 1
$ Var1: int 2

User inputs a comma separated list that is split into a character vector.

> vals <- varEntryDialog(vars=c('Var1'),
     labels=c('Enter a comma separated list of something:'),
     fun=c(function(x) {
         return(strsplit(x, split=','))

> vals$Var1
[1] "a" "b" "c"
> str(vals)
List of 1
$ Var1:List of 1
..$ : chr [1:3] "a" "b" "c"



To leave a comment for the author, please follow the link and comment on their blog: Jason Bryer » R. offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)