library(RGCCTranslationUnit)
autoGenerateDir = "."
tu = parseTU(paste(autoGenerateDir, "wx.cpp.tu", sep = .Platform$file.sep))
wxClasses = getClassNodes(tu, "button")
ms = getClassMethods(tu [[ wxClasses[["wxButton"]] ]])
cc = resolveType(ms[[2]], tu)
createMethodBinding(cc, "wxButton")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.