r - Downloading data via ftp to use in shinyapp causes readRDS unknown input format error -


i having trouble downloading data external ftp-source use in shinyapp. http://shinyapps.io not allow writing file on server, must avoid , try saving externally ftp , later read directly memory there.

see wes sauder @ https://stackoverflow.com/a/32631356/3493503 got started. 

library(rcurl) <- "test" saverds(a, file="data.rdata")  data_path <- my_data_path url <- my_ftp_url ftpupload(data_path, to=url, connecttimeout=120) #upload  bin = getbinaryurl(url, verbose = true,                ftp.use.epsv = true) readrds(rawconnection(bin))

uploading works fine, can download file filezilla afterwards , read readrds. however, trying download in r above code not work:

 > library(rcurl)     > <- "test"     > saverds(a, file="data.rdata")     > data_path <- "**************"     > url <-"ftp://******************/results.rdata"     > ftpupload(data_path, to=url, connecttimeout=120) #upload     ok      0      > bin = getbinaryurl(url, verbose = true,     + ftp.use.epsv = true)     *   trying ***.***.***.***...     * connected ******************** port 21 (#0)     < 220---------- welcome pure-ftpd [privsep] [tls] ----------     < 220-you user number 9 of 50 allowed.     < 220-local time 10:43. server port: 21.     < 220-this private system - no anonymous login     < 220-ipv6 connections welcome on server.     < 220 disconnected after 15 minutes of inactivity.     > user ********     < 331 user ******** ok. password required     > pass ********     < 230 ok. current restricted directory /     > pwd     < 257 "/" current location     * entry path '/'     > epsv     * connect data stream passively     * ftp_perform ends secondary: 0     < 229 extended passive mode ok (|||31331|)     *   trying ********...     * connecting ******** port 31331     * connected ******** port 21 (#0)     > type     < 200 type 8-bit binary     > size results.rdata     < 213 50     > retr results.rdata     < 150 accepted data connection     * maxdownload = -1     * getting file size: 50     * remembering in dir ""     < 226-file transferred     < 226 0.000 seconds (measured here), 0.66 mbytes per second     * connection #0 host ******** left intact     > readrds(rawconnection(bin))     error in readrds(rawconnection(bin)) : unknown input format

for matter of completeness, tried

load(rawconnection(bin)) error in load(rawconnection(bin)) :  input not start magic number compatible loading     connection  source(rawconnection(bin)) error in source(rawconnection(bin)) :  rawconnection(bin):1:1: unexpected input 1:     ^

any solution/explanation/input appreciated.

i uploaded file via filezilla containing rds-object http://webkartet.no/data.rdata try. causes same error.

note: tried follow in comment-section of wes sauders answer, not able so, apparently due lack of se-points. tried find solutions on without success.

other information

platform x86_64-w64-mingw32
arch x86_64
os mingw32
system x86_64, mingw32
status
major 3
minor 3.1
year 2016
month 06
day 21
svn rev 70800
language r
version.string r version 3.3.1 (2016-06-21) nickname bug in hair

using windows 7


-

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