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)`