r - Change style and position of the message box generated by withProgress() -


the withprogress() function can generate message box indicating shiny app running. message @ top-right conner of browser small text size, makes message not eye-catching.

so wonder there way change style , position of box, message can more expressive.

here part of code:

output$plot <- renderplot({   if (input$button){   withprogress(               distributionpolygon(data(),unit="years",colors=c("black","gray30","gray50","gray70","blue3","dodgerblue3","steelblue1","lightskyblue1","red4","indianred3","orange","seagreen4"),main=title(),tpsmax=input$months),               message = 'loading...',               detail = ''               )       }    })

update

this updated version can refer example, example taken here

server <- function(input, output) {   output$plot <- renderplot({     input$goplot # re-run when button clicked      # create 0-row data frame used store data     dat <- data.frame(x = numeric(0), y = numeric(0))      withprogress(message = 'making plot', value = 0, {       # number of times we'll go through loop       n <- 10        (i in 1:n) {         # each time through loop, add row of data.         # stand-in long-running computation.         dat <- rbind(dat, data.frame(x = rnorm(1), y = rnorm(1)))          # increment progress bar, , update detail text.         incprogress(1/n, detail = paste("doing part", i))          # pause 0.1 seconds simulate long computation.         sys.sleep(0.1)       }     })      plot(dat$x, dat$y)   }) }  ui <- shinyui(basicpage(   plotoutput('plot', width = "300px", height = "300px"),   actionbutton('goplot', 'go plot') ))  shinyapp(ui = ui, server = server)

original post

this related previous question too. want change cssstyle of progress bar. feel free play around , more research if want fancier css progress bar.

note: during calculations have disabled button users not click button multiple times forcing computation repeat itself. can further shinyjs more information. can see in image below during computation button disabled. once finished 

rm(list = ls()) library(shiny) library(shinyincubator) library(shinyjs)  server <- function(input, output, session) {   observe({     if(input$abutton==0) return(null)     withprogress(session, min=1, max=15, expr={       disable("abutton")       for(i in 1:20) {         setprogress(message = 'finished...',detail = paste0('number ',i, ':20'))         sys.sleep(0.1)       }       sys.sleep(1.5)     })     enable("abutton")   }) }  ui <- fluidpage(   tags$head(tags$style(".shiny-progress {top: 50% !important;left: 50% !important;margin-top: -100px !important;margin-left: -250px !important; color: blue;font-size: 20px;font-style: italic;}")),   sidebarpanel(actionbutton("abutton", "let's go!"), width=2),   useshinyjs(),   mainpanel(progressinit()) )  shinyapp(ui = ui, server = server)

enter image description here


Comments

Post a Comment

Popular posts from this blog

php - Wordpress website dashboard page or post editor content is not showing but front end data is showing properly -

Image
recently have uploaded wordpress site onto server. have uploaded wordpress site in sub-folder under root folder ../root(domain root folder)/wordpress (where host wordpress folder). now problem content data in page or post in dashboard of wordpress admin panel not showing - see image. but data showing in front view - see image. if not browser cache issue , not issue happened tinymce editor during upgrade; try add config file: define('concatenate_scripts', false);
Read more

How to get the ip address of VM and use it to configure SSH connection dynamically in Ansible -

i trying ip address of vm , trying use establish ssh vm. following script: --- - hosts: localhost become: yes connection: local gather_facts: false serial: 1 vars_files: - createvmvars.yml tasks: - name: gathering vm info. vsphere_guest: vcenter_hostname: "{{vcenter_hostname}}" username: "{{vcenter_username}}" password: "{{vcenter_password}}" guest: "{{guest_name}}" vmware_guest_facts: yes register: var - debug: msg="{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" - name: establishing ssh connection. script: /home/shasha/devops/scripts/ssh_configure.sh "{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" following content of ssh_configure.sh : #!/bin/sh ssh-keygen -t rsa ssh-copy-id $1 but when running playbook, getting following error while executing third task: error! 'var' undefined but debug module(second task) printin
Read more

javascript - Get parameter of GET request -

i make request: createxhrrequest( "get", fileurl, function( err, response ) { if( err ) { alert( "error get!" ); } alert(response); }); and full response: { "status" : "ok", "message" : "jvberi0xljqkjdduxdgkmy how can jvberi0xlj ? i try response.message , response["message"]. nothing works. just simple access this: var json = json.parse(response); json.message
Read more