r - How do I change the color of an infobox in shinydashboard based on the value displayed -


i trying creating simple weather display, change infobox color based on temperature. color value correct displays correctly, color parameter not recognize color.

it reports

error in validatecolor(color) : invalid color: . valid colors are: red, yellow, aqua, blue, light-blue, green, navy, teal, olive, lime, orange, fuchsia, purple, maroon, black. in addition: warning message: in if (color %in% validcolors) { : condition has length > 1 , first element used

the code shown below critical lines preceded comment

    library(shiny)     library(shinydashboard)     library(rweather)      getcolor <-  function(station) {       t <-  as.numeric(getweatherfromnoaa(station_id = station, message = false)$temp_c)       if(t  > 30)       {return('red')}       else if (t < 5)        {return('blue')}       else return('yellow')     }      header <- dashboardheader(title =  'current weather')     sidebar <- dashboardsidebar()     boxcity <-  box(selectinput('station', 'city:', choices = c('atlanta' = 'katl',  'chicago' = 'kord', 'fairbanks' = 'pafa', 'new york' = 'kjfk', 'phoenix' ='kphx'), selected = 'katl'))     boxcondition <-  box(title = 'current conditions: ', textoutput('condition'), background = 'blue') # line produces error. color variable passed correctly displayed textoutput('color')     valueboxc <-  valuebox(textoutput('color'), width=3, subtitle = 'c', color= textoutput('color')) #      valueboxf <-  valuebox(textoutput('f'), width=3, subtitle = "f")      boxtime <-  box(textoutput('time'))     row1 <-  fluidrow(boxcity)     row2 <-  fluidrow(boxcondition, boxtime)     row3 <-  fluidrow(valueboxc, valueboxf)     body <- dashboardbody(row1,row2,row3)     ui <- dashboardpage(header,sidebar,body)      server <- function(input, output) {     output$text <- rendertext({paste(input$station, ' weather watch')})     output$condition <-  rendertext({getweatherfromnoaa(station_id = input$station, message = false)$condition})     output$time <-  rendertext({getweatherfromnoaa(station_id = input$station, message = false)$observation_time})     output$f <-  rendertext({getweatherfromnoaa(station_id = input$station, message = false)$temp_f})     output$c <-  rendertext({getweatherfromnoaa(station_id = input$station, message = false)$temp_c}) # code sets color     output$color <-  rendertext({getcolor(input$station)}) #      }      shinyapp(ui, server)

i solved it.

library(shiny) library(shinydashboard) library(rweather)  header <- dashboardheader(title =  'current weather') sidebar <- dashboardsidebar() boxcity <-   box(selectinput(     'station', 'city:', choices = c(       'atlanta' = 'katl',  'chicago' = 'kord', 'fairbanks' = 'pafa', 'new york' = 'kjfk', 'phoenix' =         'kphx'     ), selected = 'katl'   )) boxcondition <-   box(title = 'current conditions: ', textoutput('condition'), background = 'blue') boxtime <-  box(textoutput('time')) row1 <-  fluidrow(boxcity) row2 <-  fluidrow(boxcondition, boxtime) row3 <-  fluidrow(valueboxoutput("vboxc"), valueboxoutput("vboxf")) body <- dashboardbody(row1,row2,row3)  ui <- dashboardpage(header,sidebar,body)  server <- function(input, output) {   output$condition <-     rendertext({       getweatherfromnoaa(station_id = input$station, message = false)$condition     })   output$time <-     rendertext({       getweatherfromnoaa(station_id = input$station, message = false)$observation_time     })   output$vboxc <- rendervaluebox({     t <-       as.numeric(getweatherfromnoaa(station_id = input$station, message = false)$temp_c)     if (t  > 30)     {       valuebox(t, width = 3, subtitle = 'c', color = 'red')     }     else if (t < 10)     {       valuebox(t, width = 3, subtitle = 'c', color = 'blue')     }     else {       valuebox(t, width = 3, subtitle = 'c', color = 'yellow')     }   })   output$vboxf <- rendervaluebox({     t <-       as.numeric(getweatherfromnoaa(station_id = input$station, message = false)$temp_f)     if (t  > 86)     {       valuebox(t, width = 3, subtitle = 'f', color = 'red')     }     else if (t < 50)     {       valuebox(t, width = 3, subtitle = 'f', color = 'blue')     }     else {       valuebox(t, width = 3, subtitle = 'f', color = 'yellow')     }   }) }  shinyapp(ui, server)

-

Comments

Post a Comment

Popular posts from this blog

c# - Binding a comma separated list to a List<int> in asp.net web api -

the default binder in web api expecst http://url.com/webapi/report/?pageids=3243&pageids=2365 to bind public ihttpactionresult report(list<int> pageids){ // exciting webapi code} i wish bind http://url.com/webapi/report/?pageids=3243,2365 as running out of space in url get . i have created class public class commaseparatedmodelbinder : system.web.http.modelbinding.imodelbinder { public bool bindmodel(httpactioncontext actioncontext, modelbindingcontext bindingcontext) { //binding in here } } and registered in webapiconfig.cs var provider = new simplemodelbinderprovider( typeof(list<int>), new commaseparatedmodelbinder()); config.services.insert(typeof(modelbinderprovider), 0, provider); i have altered method signature use model binder so public ihttpactionresult report( [modelbinder] list<int> pageids){ // exciting webapi code} however break point in binder not being
Read more

Delphi 7 and decode UTF-8 base64 -

in delphi 7, have widestring encoded base64(that received web service widestring result) : pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg== when decoded it, result not utf-8: <?xml version="1.0"?> <string>طھط³طھ</string> but when decoded base64decode.org, result true : <?xml version="1.0"?> <string>تست</string> i have use encddecd unit decodestring function. the problem have using decodestring . function, in delphi 7, treats decoded binary data being ansi encoded. , problem text utf-8 encoded. to continue encddecd unit have couple of options. can switch decodestream . instance, code produce utf-8 encoded text file data: {$apptype console} uses classes, encddecd; const data = 'pd94bwwgdmvyc2lvbj0ims4wij8+dqo8c3ryaw5nptiq2lpyqjwvc3ryaw5npg=='; var input: tstringstream; output: tfilestream; begin input := tstringstream.create(data); try output := tfilestream.
Read more

html - Is there any way to exclude a single element from the style? (Bootstrap) -

so, have img logo, overlaid on div styled background-image: url("...") , , both elements inside 2 div classes .to-color , .to-overlay respectively, black transparent overlay. is there way exclude logo style given these 2 classes? here's jsfiddle example: link html , css example: - html - <div class="to-color"> <div class="to-overlay"> <div class="respo"> <div class="row"> <div class="col-xs-4 col-xs-offset-4 text-center"> <img src="http://ansonalex.com/wp-content/uploads/2011/06/google-logo-768x260.png" alt="..." class="img-responsive"> </div> </div> </div> </div> </div> - css - .to-color { background-color: #000; } .to-overlay { opacity : 0.5; } .respo { background-image: url("https://source.unsplash.com/category/objects/1600x900"); background-position: center center;
Read more