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

java - is not an enclosing class / new Intent Cannot Resolve Constructor -

thanks checking out question! i have relativly ismple loop add onclicklistener each imageview add layout, when trying add new intent it, gives me 1 of following errors: string[] imageurls = imageurlsstring.split("/"); (int = 0; < imageurls.length; i++){ imageview image = new imageview(this); image.setlayoutparams(new android.view.viewgroup.layoutparams(getpx(182),getpx(256))); image.setpadding(getpx(3),getpx(3),getpx(3),getpx(3)); final string imageurl = ".../images/" + imageurls[i]; picasso.with(this).load(imageurl).into(image); image.setonclicklistener(new view.onclicklistener() { @override public void onclick(view view) { intent intent; intent = new intent(this, imageactivity.class); intent.putextra("url", imageurl); startactivity(intent); } }); linearlayout.addview(image)...
Read more

python - Error importing VideoFileClip from moviepy : AttributeError: 'PermissionError' object has no attribute 'message' -

i'm using jupyter notebook. have tried anaconda console well. tried importing both ways shown below from moviepy.editor import videofileclip moviepy.video.io.videofileclip import videofileclip both of them gave me same error. full trace below attributeerror traceback (most recent call last) <ipython-input-10-9afa9d6e87c4> in <module>() 6 import glob 7 import math ----> 8 moviepy.editor import videofileclip 9 moviepy.video.io.videofileclip import videofileclip c:\program files\anaconda3\lib\site-packages\moviepy\editor.py in <module>() 20 # clips 21 ---> 22 .video.io.videofileclip import videofileclip 23 .video.io.imagesequenceclip import imagesequenceclip 24 .video.io.downloader import download_webfile c:\program files\anaconda3\lib\site-packages\moviepy\video\io\videofileclip.py in <module>() 1 import os 2 ----> 3 moviepy.video.videoclip import videoclip ...
Read more

qt - QML MouseArea onWheel event not working properly when inside QML Scrollview -

i have mousearea inside scrollview inside rectangle . implemented zoom feature zooms in/out when pressing ctrl , scrolling mouse wheel. however, zooms in when scrollview way @ top, , zooms out when scrollview way @ bottom. there additional logic handle external drag , drop of files. issue should able replicated long text inside textedit big enough scrollview . apparently bug before, can't work properly. tried solution in following link: qtquick2: handle onwheel event inside of scrollview rectangle { id: palgenrectangle layout.minimumwidth: 50 property string display //width:800 color: "white" scrollview { id: palgentextscrollview anchors.fill: parent mousearea { id: mousearea anchors.fill: parent onwheel: { if (wheel.modifiers & qt.controlmodifier){ if (wheel.angledelta.y > 0) { mainte...
Read more