select.material <-
function(){#Ask user for select the material of tool used for cut
print("Select material of tool = ")
switch(menu(c("Metal", "Flint", "Quartzite", "Basalt", "Unknow")), "M", "F","Q","B", "U")->>material}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.