r - Capture output in console (nice & tidy) and write it to word file -


i trying export r output table word file. using reporters package this. capture output , pass paragraph. in approach, tidy output gets distorted , doesn't nice in console or when saved text file. how pass output word file? thank in advance. 

    data("cars2")     mydoc = docx(title = "summary")     library(gmodels)     aal<-capture.output(crosstable(cars2$country, cars2$type, digits=2, chisq=t))     #capture.output(crosstable(cars2$country, cars2$type, digits=2, chisq=t, format="spss"), file="tests.txt")     mydoc<-addparagraph( mydoc, aal)     writedoc( mydoc, file = "summary.docx")

you have use monospace font (as r console output using monospace font)

library(gmodels) data(infert, package = "datasets") xx=capture.output(crosstable(infert$education, infert$induced, expected = true, format="spss"))

solution 1: use existing style (from template) using monospaced font, i.e rrawoutput in default template

library( reporters ) mydoc <- docx(title = "summary") mydoc <- addparagraph( mydoc, xx, stylename = "rrawoutput" ) writedoc( mydoc, file = "summary.docx")

solution 2: use pot function create piece of text specified monospace font

library( reporters )     mydoc <- docx(title = "summary") mypot <- pot( paste(xx, collapse = "\n"),        format = textproperties(font.family = "courier new", font.size = 9) ) mydoc <- addparagraph( mydoc, mypot,  par.properties = parleft() ) writedoc( mydoc, file = "summary.docx")

solution 3: 1 not answer question not use gmodels output:

library( reporters ) library( rtable ) library( broom )  data(infert, package = "datasets") myft = freqtable(table(infert$education, infert$induced)) ct = chisq.test(infert$education, infert$induced)  mydoc = docx(title = "summary") mydoc = addtitle(mydoc, "table", level = 2) mydoc = addflextable( mydoc, myft ) mydoc = addtitle(mydoc, "chi-squared test", level = 2) mydoc = addflextable( mydoc, vanilla.table( tidy(ct) ) ) writedoc( mydoc, file = "summary.docx")

Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

php - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more