conditional expression to determine visibility of tabPanel

Note that this PR is branched off of another PR (https://github.com/rstudio/shiny/pull/315) so requires that it be taken first.