Styjun

Will 700 more planes a day fly because of the Heathrow expansion?

Should I replace my bicycle tires if they have not been inflated in multiple years

How should I tell my manager I'm not paying for an optional after work event I'm not going to?

What are the differences between credential stuffing and password spraying?

Can hackers enable the camera after the user disabled it?

Why wasn't the Night King naked in S08E03?

What is the most remote airport from the center of the city it supposedly serves?

How important is people skills in academic career and applications?

I drew a randomly colored grid of points with tikz, how do I force it to remember the first grid from then on?

What does this colon mean? It is not labeling, it is not ternary operator

Independent, post-Brexit Scotland - would there be a hard border with England?

Would Hubble Space Telescope improve black hole image observed by EHT if it joined array of telesopes?

Why doesn't WotC use established keywords on all new cards?

Why is B♯ higher than C♭ in 31-ET?

Why was the battle set up *outside* Winterfell?

If your medical expenses exceed your income does the IRS pay you?

How do LIGO and VIRGO know that a gravitational wave has its origin in a neutron star or a black hole?

Which module had more 'comfort' in terms of living space, the Lunar Module or the Command module?

Fitch Proof Question

Why did the Apollo 13 crew extend the LM landing gear?

Make some Prime Squares!

What is a smasher?

Is latino sine flexione dead?

Does a card have a keyword if it has the same effect as said keyword?

R: expss package: possible to automate table generation?

Add table row in jQueryCSS3's border-radius property and border-collapse:collapse don't mix. How can I use border-radius to create a collapsed table with rounded corners?Word-wrap in an HTML tableCan we have multiple <tbody> in same <table>?Alternate table row color using CSS?Complex sql query: grab multiple IDs from tableOne based on field from tableTwo, update into tableTwoCSS and Label Input alignment vs. tablesAutomating a .php command in Delphi via oleobjectReorder columns of expss tableR expss package: format numbers by statistic / apply different format to alternate rows

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty height:90px;width:728px;box-sizing:border-box;

1

I'm looking for a way to automate table generation using the expss package in an attempt to move from spss to R.
I think this should be simple but I seem to miss something...

I only define a few different tables based on the question type.
Eg. the table for single respons looks like below

banner <- d %>% tab_cols(total(),Q2.banner,Q3.banner)
banner %>% 
tab_cells (Q1) %>%
tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
tab_pivot (stat_position = "inside_rows") %>% 
drop_c () %>%
custom_format()

I'm looking for a function in which I only have to specify the variable
Eg .

Table1 = function (Q, banner) 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()

Ideally I would like to add a table title as well.
I'm running the table books in R Notebook.

Any other tips to automate table generation are all welcome.

Thanks for all help,
michaëla

html-table automation rnotebook expss

share|improve this question

asked Mar 22 at 16:43

michaela stubbersmichaela stubbers

163

add a comment | 

1

I'm looking for a way to automate table generation using the expss package in an attempt to move from spss to R.
I think this should be simple but I seem to miss something...

I only define a few different tables based on the question type.
Eg. the table for single respons looks like below

banner <- d %>% tab_cols(total(),Q2.banner,Q3.banner)
banner %>% 
tab_cells (Q1) %>%
tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
tab_pivot (stat_position = "inside_rows") %>% 
drop_c () %>%
custom_format()

I'm looking for a function in which I only have to specify the variable
Eg .

Table1 = function (Q, banner) 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()

Ideally I would like to add a table title as well.
I'm running the table books in R Notebook.

Any other tips to automate table generation are all welcome.

Thanks for all help,
michaëla

html-table automation rnotebook expss

share|improve this question

asked Mar 22 at 16:43

michaela stubbersmichaela stubbers

163

add a comment | 

I'm looking for a way to automate table generation using the expss package in an attempt to move from spss to R.
I think this should be simple but I seem to miss something...

I only define a few different tables based on the question type.
Eg. the table for single respons looks like below

banner <- d %>% tab_cols(total(),Q2.banner,Q3.banner)
banner %>% 
tab_cells (Q1) %>%
tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
tab_pivot (stat_position = "inside_rows") %>% 
drop_c () %>%
custom_format()

I'm looking for a function in which I only have to specify the variable
Eg .

Table1 = function (Q, banner) 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()

Ideally I would like to add a table title as well.
I'm running the table books in R Notebook.

Any other tips to automate table generation are all welcome.

Thanks for all help,
michaëla

html-table automation rnotebook expss

share|improve this question

asked Mar 22 at 16:43

michaela stubbersmichaela stubbers

163

banner <- d %>% tab_cols(total(),Q2.banner,Q3.banner)
banner %>% 
tab_cells (Q1) %>%
tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
tab_pivot (stat_position = "inside_rows") %>% 
drop_c () %>%
custom_format()

Table1 = function (Q, banner) 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()

share|improve this question

asked Mar 22 at 16:43

michaela stubbersmichaela stubbers

163

share|improve this question

asked Mar 22 at 16:43

michaela stubbersmichaela stubbers

163

asked Mar 22 at 16:43

michaela stubbersmichaela stubbers

163

asked Mar 22 at 16:43

michaela stubbersmichaela stubbers

163

1 Answer
1

active

oldest

votes

0

There is a rather universal solution for working with non-standard evaluation - eval.parent(substitute(...)). In your case it looks like this:

Table1 = function (Q, banner) 
 eval.parent(substitute(
 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()
 
 ))

share|improve this answer

answered Mar 22 at 22:15

Gregory DeminGregory Demin

2,14721217

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot again Gregory, works again perfectly!
  
  – michaela stubbers
  Mar 25 at 10:56
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55304235%2fr-expss-package-possible-to-automate-table-generation%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

There is a rather universal solution for working with non-standard evaluation - eval.parent(substitute(...)). In your case it looks like this:

Table1 = function (Q, banner) 
 eval.parent(substitute(
 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()
 
 ))

share|improve this answer

answered Mar 22 at 22:15

Gregory DeminGregory Demin

2,14721217

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot again Gregory, works again perfectly!
  
  – michaela stubbers
  Mar 25 at 10:56
  

  
  
  
  

add a comment | 

0

There is a rather universal solution for working with non-standard evaluation - eval.parent(substitute(...)). In your case it looks like this:

Table1 = function (Q, banner) 
 eval.parent(substitute(
 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()
 
 ))

share|improve this answer

answered Mar 22 at 22:15

Gregory DeminGregory Demin

2,14721217

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Thanks a lot again Gregory, works again perfectly!
  
  – michaela stubbers
  Mar 25 at 10:56
  

  
  
  
  

add a comment | 

There is a rather universal solution for working with non-standard evaluation - eval.parent(substitute(...)). In your case it looks like this:

Table1 = function (Q, banner) 
 eval.parent(substitute(
 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()
 
 ))

share|improve this answer

answered Mar 22 at 22:15

Gregory DeminGregory Demin

2,14721217

Table1 = function (Q, banner) 
 eval.parent(substitute(
 
 banner %>%
 tab_cells (Q) %>%
 tab_stat_cases(total_row_position = c("above"),label = 'N') %>%
 tab_stat_cpct(total_row_position = c("none"), label = '%') %>%
 tab_pivot (stat_position = "inside_rows") %>% 
 drop_c () %>%
 custom_format()
 
 ))

share|improve this answer

answered Mar 22 at 22:15

Gregory DeminGregory Demin

2,14721217

answered Mar 22 at 22:15

Gregory DeminGregory Demin

2,14721217

answered Mar 22 at 22:15

Gregory DeminGregory Demin

2,14721217