tool positioning lost with rbokehOutput when height is set at %

[knmackay]

When the height parameter uses %, the toolbar_location defaults to "left," even when specified.

`ui <- fluidPage( rbokehOutput("rbokeh", height = "500%") )

server <- function(input, output, session) { output$rbokeh <- renderRbokeh({ figure(toolbar_location = "above") })

}

shinyApp(ui, server)`