R Shiny: Store the generated PDF report output from Shiny app to Dropbox -


i know how directly store pdf output (using knitr , rmarkdown) shiny app dropbox.

here code:

server.r:

shinyserver(function(input, output) {  regformula <- reactive({ as.formula(paste('mpg ~', input$x)) })  output$regplot <- renderplot({ par(mar = c(4, 4, .1, .1)) plot(regformula(), data = mtcars, pch = 19) })  #### change code here. in app, use iris.csv  #### example test if possible save file in dropbox. works #### fine. need replace iris.csv my-report.pdf  #### generated app.   observeevent(input$dropbox, { write.csv(iris,"iris.csv") drop_upload('iris.csv') })  ### end of save process ###  output$downloadreport <- downloadhandler( filename = function() {   paste('my-report', sep = '.', 'pdf') },  content = function(file) {   src <- normalizepath('report.rmd')    # temporarily switch temp dir, in case not have write   # permission current working directory   owd <- setwd(tempdir())   on.exit(setwd(owd))   file.copy(src, 'report.rmd', overwrite = true)    library(rmarkdown)   out <- render('report.rmd', pdf_document())   file.rename(out, file)  }  )  } )

ui.r:

shinyui( fluidpage( title = 'download pdf report', sidebarlayout(   sidebarpanel(     helptext(),     selectinput('x', 'build regression model of mpg against:',                 choices = names(mtcars)[-1]),     actionbutton("dropbox", "save in dropbox"),     downloadbutton('downloadreport')   ),   mainpanel(     plotoutput('regplot')   )   )   )    )

in app, used iris.csv example test if possible save file in dropbox , works fine. now, have figure out how replace iris.csv my-report.pdf generated shiny app drop box.

so ideally, user can download report in pdf clicking "download" button. if report want, can save in dropbox clicking "save" button.

does have ideas it?


-

Comments

Post a Comment

Popular posts from this blog

python - How to insert QWidgets in the middle of a Layout? -

Image
i'm using qt framework build graphical user interface. use qgridlayout position qwidgets neatly. gui looks this: my application regularly adds new widgets gui @ runtime. these new widgets not added @ end of qlayout, somewhere in middle. the procedure bit cumbersome. applied on figure above, need take out widg_c , widg_d , ... qgridlayout. next, add widg_x and widg_y , , put other widgets again. how remove widgets qgridlayout: for in reversed(range(mygridlayout.count())): self.itemat(i).widget().setparent(none) ### as long you're dealing small amount of widgets, procedure not disaster. in application display lot of small widgets - perhaps 50 or more! application freezes second while procedure ongoing, annoying user. there way insert widgets somewhere in qlayout, without need take out other widgets? edit: apparently solution qvboxlayout simple. use function insertwidget(..) instead of addwidget(..) . docs can found link: http://doc.qt.io/qt-5/qboxlayou
Read more

python - serve multiple gunicorn django instances under nginx ubuntu -

i need serve 2 webs apps (django) on gunicorn under different domain names using nginx on ubuntu. started using tutorial: https://www.digitalocean.com/community/tutorials/how-to-set-up-django-with-postgres-nginx-and-gunicorn-on-ubuntu-16-04 it worked fine 1 using that. tried same thing second gives me 502 gateway second domain. tried following tutorial: http://michal.karzynski.pl/blog/2013/10/29/serving-multiple-django-applications-with-nginx-gunicorn-supervisor/ i'm @ part run gunicorn start script: sudo bin/gunicorn_start i response: starting webuildblack root traceback (most recent call last): file "/home/devin/webuildblack/bin/gunicorn", line 7, in <module> gunicorn.app.wsgiapp import run importerror: no module named 'gunicorn.app'; 'gunicorn' not package you have named program gunicorn.py gunicorn -package. rename file , remove gunicorn.pyc file.
Read more

module - Prestashop displayPaymentReturn hook url -

i new prestashop developer , trying create paymentmodule. have got show payment method can not proceed purchase because not know hot works. does know should redirect run hooddisplaypaymentreturn method? i happy if explain me complete navigation map make purchase. anyway, can find relation between hooks , pages? when have new module payment rely on simplest provided prestashop: bankwire. inside can find 3 hooks. hookpayment: public function hookpayment($params) { if (!$this->active) return; if (!$this->checkcurrency($params['cart'])) return; $this->smarty->assign(array( 'this_path' => $this->_path, 'this_path_bw' => $this->_path, 'this_path_ssl' => tools::getshopdomainssl(true, true).__ps_base_uri__.'modules/'.$this->name.'/' )); return $this->display(__file__, 'payment.tpl'); } hookdisplaypaymenteu: public fun
Read more