library("gWidgetsRGtk2")
## a GUI will show up on loading if one of the gWidgets toolkit is
## present (e.g. via library(gWidgetsRGtk2))
library(formatR)
g = tidy.gui()
## we have control over the text widget, e.g. set or get the text
svalue(g) = c("# a single line of comments is preserved", "1+1",
"if(TRUE){", paste("x=1 ", "# inline comments!"), "}else{",
"x=2;print('Oh no... ask the right bracket to go away!')}",
"1*3 # another inline comment")
## click 'Convert' now, and see
cat(svalue(g), sep = "\n") # get its value
## tcl/tk interface: need gWidgetstcltk package
tidy.gui("tcltk")
Run the code above in your browser using DataLab