html - Use actionButton to send email in RShiny -


i'm working on web app in shiny. i'm pretty familiar r knowledge of html, css, jquery, etc lacking makes formatting things nicely challenging.

i want include actionbutton user can click on send email administrator in case of questions or concerns. here's have far, kind of works pretty heinous:

library(shiny) ui <- shinyui(fluidpage(   # set layout/format app   sidebarlayout(     sidebarpanel(       downloadbutton("download_data", "download data"),       br(),       actionbutton(inputid = "email1",                     icon = icon("envelope", lib = "font-awesome"),                     a("contact admin",                         href="mailto:my_awesome_email_address.com"))     ),     mainpanel(),     position = "left"   ) ) )  server <- shinyserver(function(input, output) {}) shinyapp(ui, server)

if possible, i'd keep using actionbutton or similar in order keep same button format across both buttons.

thanks in advance!

okay, annoying. hate 1 of people answers own question, here goes:

i toyed around ordering of different tags in code , realized current code wrong because stating wanted text of button link email address , not button itself. fix this, flipped nesting of actionbutton , a() tag following:

a(actionbutton(inputid = "email1", label = "contact admin",                   icon = icon("envelope", lib = "font-awesome")),     href="mailto:my_awesome_email_address.com")

clicking anywhere on button automatically opens email addressed given email address after mailto argument. no html or css coding required. hope helps else can spend time doing more valuable scouring internet hours on end.


Comments

Post a Comment

Popular posts from this blog

javascript - Create a stacked percentage column -

i have collection of data : var data = [ {"p301a":"10","p301b":"7","p301c":"7","p301d":"3","p301e":"8","p301f":"8","p301g":"8","p301h":"8","p301i":"8","p301j":"8","p301k":"8","p301l":"8","p301m":"8","p301n":"8","p301o":"8","age":"31-40 years","profesion":"2","position":"2"}, {"p301a":"5","p301b":"4","p301c":"4","p301d":"4","p301e":"4","p301f":"4","p301g":"4","p301h":"4","p301i":"4","p301j":"4","p301k":"4...
Read more

Optimising Firebase database by automatically overwriting data -

in firebase app have following structure: posts latest all users can write posts > latest . want limit entries 20 posts save space in database. , posts beyond 20 unnecessary never shown on homepage. how can limit posts 20, when user writes posts > latest posts @ end drop off (be deleted) automatically? this sample should you. you need : const max_log_count = 20; exports.removeold = functions.database.ref('/posts/latest/{postid}').oncreate(event => { const parentref = event.data.ref.parent; return parentref.once('value').then(snapshot => { if (snapshot.numchildren() >= max_log_count) { let childcount = 0; const updates = {}; snapshot.foreach(function(child) { if (++childcount <= snapshot.numchildren() - max_log_count) { updates[child.key] = null; } }); // update parent. removes children. ...
Read more

javascript - Angular UI-Grid customTemplate directive causing rows to load slowly/? -

Image
each grid cell can have more 1 customtemplate loaded. have directive holds watcher on model_col_field listen cell updates on scroll when dom rows updated , recompile celltemplate . without watcher , $compile rows repeat on scroll, showing same set of rows. is there more angular way of approaching or way improve performance? relevant controller code: create gridoptions.data & gridoptions.columndefs : var customtemp = '<div ng-repeat="opt in grid.appscope.colvalueoptionsmodel" ng-init="tempstring=model_col_field.clazz+opt.key;"><comparison-directive dbo="model_col_field" attobj="opt" fff="grid.appscope.getattributetemplate(tempstring)" /></div>'; $scope.gridoptions.columndefs = [ { name:'yindex',pinnedleft:true,celltemplate: customtemp, displayname:'index'}, { name:'col1',celltemplate: customtemp}, { name:'col2',celltemplate: c...
Read more