r - Setting xlim for rbokeh plot inside shiny application -
i'm using rbokeh package r. i've been having results integrating shiny app. want integrate feature daterangeinput select date range chart(it time series data).
##necessary packages install.packages("shiny") install.packages("devtools") install.packages("dplyr") library(devtools) devtools::install_github("ramnathv/htmlwidgets") devtools::install_github("bokeh/rbokeh") library(rbokeh) library(dplyr) library(shiny) #example data set james<-mtcars[c("mpg")] james$date<-seq(from=as.date("2013-05-16"),to=as.date("2013-06-16"),by="days") james$index<-1:4 #shiny app shiny_example <- function(chart_data = james){ date_minmax <- range(chart_data$date) shinyapp( ui=fluidpage( titlepanel("a plot"), sidebarlayout( sidebarpanel( textinput("index","enter index 1 16",value=1), uioutput("date_range") ), mainpanel( rbokeh::rbokehoutput("plot_cars") ) ) ), server=function(input,output,session) { current_data <- reactive({ current_df <- subset(james,index==input$index) return(current_df) }) output$date_range <- renderui({ plot_data <- current_data() current_id_range <- range(plot_data$date) return( daterangeinput("date_range", "date range(x axis", min=date_minmax[1], max=date_minmax[2], start=current_id_range[1], end=current_id_range[2]) ) }) output$plot_cars <- rbokeh::renderrbokeh({ plot_data <- current_data() g<-rbokeh::figure(title="cars", width=800, heigh=400, xlab="date", ylab="mpg", xlim=input$date_range) %>% rbokeh::ly_points(date, mpg, data=plot_data) %>% rbokeh::ly_lines(date, mpg, data=plot_data, alpha=0.3) return(g) }) } ) } ##run app shiny_example()
the above example data works without xlim argument in rbokeh::figure, in typing in number 1 4 in input subsets data accordingly , produces plot reactively. xlim argument seems produce errors in plot. perhaps point me in right direction in trying fix xlim issue?
let me know if need more details.
it seems date formatting issue in rbokeh: https://github.com/bokeh/rbokeh/issues/100 should fixed soon.
Comments
Post a Comment