r - Shiny Slider Styling Ignored after refresh -


i working on shiny app, reads data file, , display data on app, , allows user refresh data. app works fine, except when 'refresh' data action button, styling gone.

below simplified version of app.r

library(shiny) file_name <- "sample.csv" bkg_color <- "red"  # define ui application ui <- fluidpage(   actionbutton("refresh", "", icon("refresh") ),   tableoutput("table"),   uioutput("slider") )  # define server logic required server <- function(input, output, session) {   observeevent(input$refresh,{     source("updatedata.r")     showmodal(modaldialog(       title = "",        "data refreshed",        easyclose = true,       footer = null     ))   })   # observe raw file, , refresh if there change every 5 seconds   raw <- reactivepoll(5000, session,                            checkfunc = function(){                             if (file.exists(file_name))                               file.info(file_name)$mtime[1]                             else                               ""                           },                            valuefunc = function(){                            read.csv(file_name)                           }) output$table <- rendertable(raw())       output$slider <- renderui({     req(raw())     taglist(       # styling slider bar       tags$style(html(paste0(".js-irs-0 .irs-single, .js-irs-0 .irs-bar-edge, .js-irs-0 .irs-bar {background: ",                             bkg_color,";border-top: ",bkg_color,";border-bottom: ",bkg_color,"; border: ",bkg_color,"}"))),       sliderinput("date","",                    min = min(raw()$v1),                    max = max(raw()$v1),                    value = max(raw()$v1))     )    })  }  # run application  shinyapp(ui = ui, server = server)

in above, used renderui slider, values depends on raw values read local file. , specify color slider explicitly (currently set red).

and in same directory, have updatedata.r similar below:

file_name <- "sample.csv" temp <- data.frame(v1 =runif(10, min = 0, max = 100), v2 = sys.time() ) write.csv(x =temp, file = file_name,row.names = false )

to run sample app without error, please run above code first initialize csv files.

when app first launches, slider bar red color. however, after refresh underlying data clicking on refresh button @ top of app [not browser refresh], slider bar changed default shiny app color.

i've searched answer quite time, cannot figure out root cause this. has experienced similar issue before, or have idea how can fix it, color of slider bar unchanged after refresh?

thank you!

shiny increments slider class each time new slider rendered. therefore initial class becomes .js-irs-1 on refresh, .js-irs-2 etc.

change css selector .irs child follows:

tags$style(html(paste0(".irs .irs-single, .irs .irs-bar-edge, .irs .irs-bar {background: ",                          bkg_color,";border-top: ",bkg_color,";border-bottom: ",bkg_color,"; border: ",bkg_color,"}")))

however recommend using server side logic update input. it's better practice since html element rendered on website , values updated not whole element. check updatesliderinput() function update slider


Comments

Post a Comment

Popular posts from this blog

python - Operations inside variables -

this question has answer here: evaluating mathematical expression in string 12 answers i want make python script finds maximum possible output using 2 operations. problem says there syntax error @ 2nd last line, in b in there. how can fix it? x = 0 = int(input("1st number:")) c = int(input("2nd number:" )) e = int(input("3rd number:" )) in range(4): if == 0: b = "+" elif == 1: b = "-" elif == 2: b = "/" else: b = "*" j in range(4): if j == 0: d = "+" elif j == 1: d = "-" elif j == 2: d = "/" else: d = "*" k = b c d e print(k) if you're after variables e on single line, couldn...
Read more

Generic Map Parameter java -

i having lot of methods of type: public static list<eduusers> getdetails(class c, map<string, integer> params) { list<eduusers> details = null; session session = hibernateutil.getsessionfactory().opensession(); transaction tx = null; try { tx = session.begintransaction(); criteria cr = session.createcriteria(c); (map.entry<string, integer> entry : params.entryset()) { cr.add(restrictions.eq(entry.getkey(), entry.getvalue())); } details = cr.list(); tx.commit(); } catch (exception asd) { log.debug(asd.getmessage()); if (tx != null) { tx.commit(); } } { session.close(); } return details; } i trying have generic method them , have written far: public static <t> list<t> getdetails(class<t> c, class<t> b) { l...
Read more

arrays - What causes a java.lang.ArrayIndexOutOfBoundsException and how do I prevent it? -

what arrayindexoutofboundsexception mean , how rid of it? here code sample triggers exception: string[] name = {"tom", "dick", "harry"}; for(int = 0; i<=name.length; i++) { system.out.print(name[i] +'\n'); } your first port of call should documentation explains reasonably clearly: thrown indicate array has been accessed illegal index. index either negative or greater or equal size of array. so example: int[] array = new int[5]; int boom = array[10]; // throws exception as how avoid it... um, don't that. careful array indexes. one problem people run thinking arrays 1-indexed, e.g. int[] array = new int[5]; // ... populate array here ... (int index = 1; index <= array.length; index++) { system.out.println(array[index]); } that miss out first element (index 0) , throw exception when index 5. valid indexes here 0-4 inclusive. correct, idiomatic for statement here be: for (int index = 0; index <...
Read more