Minimal example for iplot axis and title overplotting

iplot_bug_example.R

library(shiny)
library(qtlcharts)

server <- function(input, output) {
  output$interactivePlot <- iplot_render({
    x <- rnorm(26) * ifelse(input$graphType == "higher values", 10, 1)
    y <- rnorm(26) * ifelse(input$graphType == "higher values", 10, 1)
    p1 <- iplot(x=x, y=y, indID = LETTERS, 
                chartOpts = list(title = input$graphType))
    return(p1)
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      radioButtons("graphType", "Select numbers:", 
                   c("lower values", "higher values"), "lower values")
    ),
    mainPanel(iplot_output("interactivePlot", height=450))
  )
)

shinyApp(ui = ui, server = server)