myUI <- fluidPage( list(tags$head(HTML('<link rel="icon", href="iho.png", type="image/png" />'))), div(style="padding: 1px 0px; width: '100%'", titlePanel( title="", windowTitle="mytitle" ) ), navbarPage(title = div(img(src="int.png", height = 22, width = 100),"mytitle"), tabPanel( #... )
))
myServer <- function(input, output, session) {## }
shinyApp(myUI, myServer)
--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/3b19251f-42e5-47cf-979d-550da132d406%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.