Don't show broken image when plot is empty

Repro case:

shiny::runApp(list(
  ui=basicPage(plotOutput('foo')),
  server=function(input, output, session) {
    output$foo <- renderPlot({})
  }
))
Merge pull request #383 from jcheng5/bugfix/broken-image

Don't show broken image when plot is empty