[inst/tests/test-brew.R:6:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L6) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(capture.output(Pandoc.brew(text='## foo')), '## foo ')
                                               ~^~
```
[inst/tests/test-brew.R:7:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L7) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(capture.output(Pandoc.brew(text='## <%=1%>')), '## _1_ ')
                                               ~^~
```
[inst/tests/test-brew.R:7:52:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L7) *style:* **Commented code should be removed.**
```r
    expect_equal(capture.output(Pandoc.brew(text='## <%=1%>')), '## _1_ ')
                                                   ^~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:8:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L8) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(capture.output(Pandoc.brew(text='<%=1%>')), '_1_ ')
                                               ~^~
```
[inst/tests/test-brew.R:9:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L9) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(capture.output(Pandoc.brew(text='<%for (i in 1:3)%><%=i%>')), '_1__2__3_ ')
                                               ~^~
```
[inst/tests/test-brew.R:15:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L15) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='## foo', output = output)), 1)
                                       ~^~
```
[inst/tests/test-brew.R:15:44:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L15) *style:* **Commented code should be removed.**
```r
    expect_equal(length(Pandoc.brew(text='## foo', output = output)), 1)
                                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:16:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L16) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='## foo <%=mtcars[1:2,]%>', output = output)), 3)
                                       ~^~
```
[inst/tests/test-brew.R:16:44:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L16) *style:* **Commented code should be removed.**
```r
    expect_equal(length(Pandoc.brew(text='## foo <%=mtcars[1:2,]%>', output = output)), 3)
                                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:17:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L17) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='## foo <%=mtcars[1:2,]%> bar <%=plot(1:10)%>', output = output)), 5)
                                       ~^~
```
[inst/tests/test-brew.R:17:44:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L17) *style:* **Commented code should be removed.**
```r
    expect_equal(length(Pandoc.brew(text='## foo <%=mtcars[1:2,]%> bar <%=plot(1:10)%>', output = output)), 5)
                                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:18:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L18) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='## foo <%=1%> bar <%=pi%>', output = output)), 1)
                                       ~^~
```
[inst/tests/test-brew.R:18:44:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L18) *style:* **Commented code should be removed.**
```r
    expect_equal(length(Pandoc.brew(text='## foo <%=1%> bar <%=pi%>', output = output)), 1)
                                           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:19:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L19) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='<%for (i in 1:5){%>## foo<%}%>', output = output)), 5)
                                       ~^~
```
[inst/tests/test-brew.R:19:63:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L19) *style:* **Commented code should be removed.**
```r
    expect_equal(length(Pandoc.brew(text='<%for (i in 1:5){%>## foo<%}%>', output = output)), 5)
                                                              ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:20:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L20) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='# FOO <%=pi%> bar \n# sad', output = output)), 2)
                                       ~^~
```
[inst/tests/test-brew.R:21:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L21) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='# FOO\n## bar<%=pi%> bar \n# sad', output = output)), 3)
                                       ~^~
```
[inst/tests/test-brew.R:22:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L22) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(length(Pandoc.brew(text='# FOO ## bar<%=pi%> barn# sad', output = output)), 1)
                                       ~^~
```
[inst/tests/test-brew.R:22:45:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L22) *style:* **Commented code should be removed.**
```r
    expect_equal(length(Pandoc.brew(text='# FOO ## bar<%=pi%> barn# sad', output = output)), 1)
                                            ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:29:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L29) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='foo <%=1:10%>', output = output)), 'text')
                                              ~^~
```
[inst/tests/test-brew.R:30:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L30) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## foo <%=1:10%>', output = output)), 'heading')
                                              ~^~
```
[inst/tests/test-brew.R:30:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L30) *style:* **Commented code should be removed.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## foo <%=1:10%>', output = output)), 'heading')
                                                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:31:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L31) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='foo\n<%=1:10%>', output = output)), c('text', 'block', 'text'))
                                              ~^~
```
[inst/tests/test-brew.R:32:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L32) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## foo\n<%=1:10%>', output = output)), c('heading', 'block', 'text'))
                                              ~^~
```
[inst/tests/test-brew.R:32:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L32) *style:* **Commented code should be removed.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## foo\n<%=1:10%>', output = output)), c('heading', 'block', 'text'))
                                                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:33:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L33) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='foo <%=list(1:10)%>', output = output)), c('text', 'block', 'text'))
                                              ~^~
```
[inst/tests/test-brew.R:34:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L34) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## foo <%=mtcars%>', output = output)), c('heading', 'block', 'text'))
                                              ~^~
```
[inst/tests/test-brew.R:34:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L34) *style:* **Commented code should be removed.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## foo <%=mtcars%>', output = output)), c('heading', 'block', 'text'))
                                                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:35:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L35) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='foo has <%=1%> apple and <%=3%> pears', output = output)), 'text')
                                              ~^~
```
[inst/tests/test-brew.R:36:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L36) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='foo has \nsome neat apples. Exactly <%=5%>', output = output)),
                                              ~^~
```
[inst/tests/test-brew.R:38:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L38) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='<%=5%> apple', output = output)), 'text')
                                              ~^~
```
[inst/tests/test-brew.R:39:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L39) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## header\n<%=5%> apple', output = output)), c('heading', 'text'))
                                              ~^~
```
[inst/tests/test-brew.R:39:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L39) *style:* **Commented code should be removed.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='## header\n<%=5%> apple', output = output)), c('heading', 'text'))
                                                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-brew.R:40:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-brew.R#L40) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(getChunkTypes(Pandoc.brew(text='<%=plot(1:10)%> ', output = output)), c('block', 'text'))
                                              ~^~
```
[inst/tests/test-convert.R:6:40:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-convert.R#L6) *style:* **Put spaces around all infix operators.**
```r
    tf <- paste(tempfile(), '.txt', sep='')
                                      ~^~
```
[inst/tests/test-convert.R:10:6:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-convert.R#L10) *style:* **Commented code should be removed.**
```r
#    expect_equal(openFileInOS(tf), 0)
     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-evals.R:60:36:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-evals.R#L60) *style:* **Put spaces around all infix operators.**
```r
    expect_error(evals('1:5', hooks=1:10))
                                  ~^~
```
[inst/tests/test-evals.R:96:25:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-evals.R#L96) *style:* **Commented code should be removed.**
```r
    expect_null(evals('## comment')[[1]]$result)
                        ^~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-evals.R:100:32:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-evals.R#L100) *style:* **Commented code should be removed.**
```r
    expect_null(evals(list(c('## comment', 'y <- rnorm(10)')), parse = F)[[1]]$result)
                               ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-evals.R:150:13:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-evals.R#L150) *style:* **Commented code should be removed.**
```r
test_that('## comment', {
            ^~~~~~~~~~~~~
```
[inst/tests/test-evals.R:151:34:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-evals.R#L151) *style:* **Commented code should be removed.**
```r
    expect_is(evals('rnorm(100);## comment')[[1]]$result, 'numeric')
                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-evals.R:152:34:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-evals.R#L152) *style:* **Commented code should be removed.**
```r
    expect_is(evals('rnorm(100);## comment', parse = FALSE)[[1]]$result, 'numeric')
                                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-evals.R:276:17:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-evals.R#L276) *style:* **Put spaces around all infix operators.**
```r
    png(filename=file.path(dir, 'recorded.png'))
               ~^~
```
[inst/tests/test-helpers.R:24:78:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-helpers.R#L24) *style:* **Commas should always have a space after.**
```r
test_that('splitLine leaves non-string arguments and empty string unchanged',{
                                                                             ^
```
[inst/tests/test-helpers.R:35:59:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-helpers.R#L35) *style:* **Commas should always have a space after.**
```r
test_that('splitLine without hyphening behaves correctly',{
                                                          ^
```
[inst/tests/test-helpers.R:50:62:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-helpers.R#L50) *style:* **Put spaces around all infix operators.**
```r
  expect_equal(splitLine(x, 0), paste(strwrap(x, 0), collapse='\n')) # zero width replaces whitespaces by line breaks
                                                            ~^~
```
[inst/tests/test-helpers.R:61:56:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-helpers.R#L61) *style:* **Commas should always have a space after.**
```r
test_that('splitLine with hyphening behaves correctly',{
                                                       ^
```
[inst/tests/test-missing.R:13:50:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-missing.R#L13) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(paste(pander_return(data.frame(a=1:2, b=c(1, NA), c=c(NA, 'z'))), collapse = '\n'),
                                                ~^~
```
[inst/tests/test-missing.R:13:57:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-missing.R#L13) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(paste(pander_return(data.frame(a=1:2, b=c(1, NA), c=c(NA, 'z'))), collapse = '\n'),
                                                       ~^~
```
[inst/tests/test-missing.R:13:69:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-missing.R#L13) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(paste(pander_return(data.frame(a=1:2, b=c(1, NA), c=c(NA, 'z'))), collapse = '\n'),
                                                                   ~^~
```
[inst/tests/test-missing.R:22:50:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-missing.R#L22) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(paste(pander_return(data.frame(a=1:2, b=c(1, NA), c=c(NA, 'z'))), collapse = '\n'),
                                                ~^~
```
[inst/tests/test-missing.R:22:57:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-missing.R#L22) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(paste(pander_return(data.frame(a=1:2, b=c(1, NA), c=c(NA, 'z'))), collapse = '\n'),
                                                       ~^~
```
[inst/tests/test-missing.R:22:69:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-missing.R#L22) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(paste(pander_return(data.frame(a=1:2, b=c(1, NA), c=c(NA, 'z'))), collapse = '\n'),
                                                                   ~^~
```
[inst/tests/test-S3.R:58:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L58) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(nchar('Δ Δ Δ Δ Δ', type='width'), 9)
                                       ~^~
```
[inst/tests/test-S3.R:59:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L59) *style:* **Put spaces around all infix operators.**
```r
    res_grid <- pander_return(t, style='grid', split.tables = 23)
                                     ~^~
```
[inst/tests/test-S3.R:62:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L62) *style:* **Put spaces around all infix operators.**
```r
    res_grid <- pander_return(t, style='grid', split.tables = 22)
                                     ~^~
```
[inst/tests/test-S3.R:65:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L65) *style:* **Put spaces around all infix operators.**
```r
    res_simple <- pander_return(t, style='simple', split.tables = 21)
                                       ~^~
```
[inst/tests/test-S3.R:68:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L68) *style:* **Put spaces around all infix operators.**
```r
    res_simple <- pander_return(t, style='simple', split.tables = 20)
                                       ~^~
```
[inst/tests/test-S3.R:75:34:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L75) *style:* **Put spaces around all infix operators.**
```r
    res <- pander_return(d, style='rmarkdown')
                                ~^~
```
[inst/tests/test-S3.R:80:34:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L80) *style:* **Put spaces around all infix operators.**
```r
    res <- pander_return(d, style='rmarkdown')
                                ~^~
```
[inst/tests/test-S3.R:89:42:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L89) *style:* **Commas should always have a space after.**
```r
    expect_warning(pander_return(mtcars[,1:2], split.tables = Inf, split.cells = c('50%', '50%')))
                                         ^
```
[inst/tests/test-S3.R:100:42:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L100) *style:* **Put spaces around all infix operators.**
```r
    expect_error(pander_return(t, justify='laft'))
                                        ~^~
```
[inst/tests/test-S3.R:155:58:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L155) *style:* **Commas should always have a space after.**
```r
    expect_that(pandoc.table(data.frame(x = 1:2, y = c(1,NA)), emphasize.italics.cols = 2), not(gives_warning()))
                                                         ^
```
[inst/tests/test-S3.R:160:23:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L160) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(a=1:3, b=1:3, c=1:3)
                     ~^~
```
[inst/tests/test-S3.R:160:30:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L160) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(a=1:3, b=1:3, c=1:3)
                            ~^~
```
[inst/tests/test-S3.R:160:37:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L160) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(a=1:3, b=1:3, c=1:3)
                                   ~^~
```
[inst/tests/test-S3.R:161:67:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L161) *style:* **Commas should always have a space after.**
```r
    res <- capture.output(pander(df, emphasize.italics.rows = c(1,2), style = 'simple'))
                                                                  ^
```
[inst/tests/test-S3.R:164:66:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L164) *style:* **Commas should always have a space after.**
```r
    res <- capture.output(pander(df, emphasize.strong.rows = c(1,2), style = 'simple'))
                                                                 ^
```
[inst/tests/test-S3.R:170:23:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L170) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(a=1:3, b=4:6, c=7:9)
                     ~^~
```
[inst/tests/test-S3.R:170:30:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L170) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(a=1:3, b=4:6, c=7:9)
                            ~^~
```
[inst/tests/test-S3.R:170:37:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L170) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(a=1:3, b=4:6, c=7:9)
                                   ~^~
```
[inst/tests/test-S3.R:171:60:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L171) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(df, emphasize.verbatim.rows = c(1,2), style = 'simple')
                                                           ^
```
[inst/tests/test-S3.R:174:60:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L174) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(df, emphasize.verbatim.cols = c(1,2), style = 'simple')
                                                           ^
```
[inst/tests/test-S3.R:181:54:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L181) *style:* **Commas should always have a space after.**
```r
                         emphasize.strong.rows = c(1,2), style = 'simple')
                                                     ^
```
[inst/tests/test-S3.R:268:42:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L268) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(m, digits = c(2,4,1))
                                         ^
```
[inst/tests/test-S3.R:268:44:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L268) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(m, digits = c(2,4,1))
                                           ^
```
[inst/tests/test-S3.R:270:43:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L270) *style:* **Put spaces around all infix operators.**
```r
    expect_warning(pander_return(m, digits=c(1,2)))
                                         ~^~
```
[inst/tests/test-S3.R:270:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L270) *style:* **Commas should always have a space after.**
```r
    expect_warning(pander_return(m, digits=c(1,2)))
                                               ^
```
[inst/tests/test-S3.R:272:25:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L272) *style:* **Commas should always have a space after.**
```r
    expect_equal(res[3],' 0.11   0.11   0.11 ')
                        ^
```
[inst/tests/test-S3.R:274:43:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L274) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(mt, digits = c(1,4,3,4), keep.trailing.zeros = TRUE)
                                          ^
```
[inst/tests/test-S3.R:274:45:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L274) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(mt, digits = c(1,4,3,4), keep.trailing.zeros = TRUE)
                                            ^
```
[inst/tests/test-S3.R:274:47:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L274) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(mt, digits = c(1,4,3,4), keep.trailing.zeros = TRUE)
                                              ^
```
[inst/tests/test-S3.R:280:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L280) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(m, round = c(2,4,1))
                                        ^
```
[inst/tests/test-S3.R:280:43:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L280) *style:* **Commas should always have a space after.**
```r
    res <- pander_return(m, round = c(2,4,1))
                                          ^
```
[inst/tests/test-S3.R:282:42:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L282) *style:* **Put spaces around all infix operators.**
```r
    expect_warning(pander_return(m, round=c(1,2)))
                                        ~^~
```
[inst/tests/test-S3.R:282:47:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L282) *style:* **Commas should always have a space after.**
```r
    expect_warning(pander_return(m, round=c(1,2)))
                                              ^
```
[inst/tests/test-S3.R:284:25:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L284) *style:* **Commas should always have a space after.**
```r
    expect_equal(res[3],' 0.11   0.11   0.11 ')
                        ^
```
[inst/tests/test-S3.R:290:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L290) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a='Pander\nPackage')
                  ~^~
```
[inst/tests/test-S3.R:296:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L296) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a=c('Pander\nPackage','Pander\nPackage'))
                  ~^~
```
[inst/tests/test-S3.R:296:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L296) *style:* **Commas should always have a space after.**
```r
  x <- data.frame(a=c('Pander\nPackage','Pander\nPackage'))
                                        ^
```
[inst/tests/test-S3.R:302:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L302) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a=c('Pander Package','Pander Package'))
                  ~^~
```
[inst/tests/test-S3.R:302:40:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L302) *style:* **Commas should always have a space after.**
```r
  x <- data.frame(a=c('Pander Package','Pander Package'))
                                       ^
```
[inst/tests/test-S3.R:309:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L309) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a=rep('Pander\nPackage', rows))
                  ~^~
```
[inst/tests/test-S3.R:316:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L316) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a=paste(rep('pander', n), collapse='\n'))
                  ~^~
```
[inst/tests/test-S3.R:316:53:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L316) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a=paste(rep('pander', n), collapse='\n'))
                                                   ~^~
```
[inst/tests/test-S3.R:323:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L323) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a=paste(rep('pander', n[1]), collapse='\n'),
                  ~^~
```
[inst/tests/test-S3.R:323:56:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L323) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a=paste(rep('pander', n[1]), collapse='\n'),
                                                      ~^~
```
[inst/tests/test-S3.R:324:58:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L324) *style:* **Put spaces around all infix operators.**
```r
                  b = paste(rep('pander', n[2]), collapse='\n'),
                                                        ~^~
```
[inst/tests/test-S3.R:325:58:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L325) *style:* **Put spaces around all infix operators.**
```r
                  c = paste(rep('pander', n[3]), collapse='\n'))
                                                        ~^~
```
[inst/tests/test-S3.R:331:16:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L331) *style:* **Commas should always have a space after.**
```r
  x <- rbind(x,x)
               ^
```
[inst/tests/test-S3.R:338:41:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L338) *style:* **Commas should always have a space after.**
```r
test_that('split.cells works correctly',{
                                        ^
```
[inst/tests/test-S3.R:349:1:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L349) *style:* **lines should not be more than 120 characters.**
```r
               '\n---------------\n  a       b    \n----- ---------\n foo   foo bar \n bar           \n---------------\n\n')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-S3.R:351:1:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L351) *style:* **lines should not be more than 120 characters.**
```r
               '\n---------------\n    a       b  \n--------- -----\n foo bar   foo \n           bar \n---------------\n\n')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-S3.R:353:1:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L353) *style:* **lines should not be more than 120 characters.**
```r
               '\n-------------------\n    a         b    \n--------- ---------\n foo bar   foo bar \n-------------------\n\n')
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-S3.R:355:57:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L355) *style:* **Commas should never have a space before.**
```r
  expect_equal(pandoc.table.return(x, split.cells = c(6 ,6)), pandoc.table.return(x, split.cells = 6))
                                                       ~^
```
[inst/tests/test-S3.R:355:58:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L355) *style:* **Commas should always have a space after.**
```r
  expect_equal(pandoc.table.return(x, split.cells = c(6 ,6)), pandoc.table.return(x, split.cells = 6))
                                                         ^
```
[inst/tests/test-S3.R:356:57:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L356) *style:* **Commas should never have a space before.**
```r
  expect_equal(pandoc.table.return(x, split.cells = c(7 ,7)), pandoc.table.return(x, split.cells = 7))
                                                       ~^
```
[inst/tests/test-S3.R:356:58:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L356) *style:* **Commas should always have a space after.**
```r
  expect_equal(pandoc.table.return(x, split.cells = c(7 ,7)), pandoc.table.return(x, split.cells = 7))
                                                         ^
```
[inst/tests/test-S3.R:357:57:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L357) *style:* **Commas should never have a space before.**
```r
  expect_equal(pandoc.table.return(x, split.cells = c(7 ,7)), pandoc.table.return(x, split.cells = 7))
                                                       ~^
```
[inst/tests/test-S3.R:357:58:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L357) *style:* **Commas should always have a space after.**
```r
  expect_equal(pandoc.table.return(x, split.cells = c(7 ,7)), pandoc.table.return(x, split.cells = 7))
                                                         ^
```
[inst/tests/test-S3.R:367:58:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L367) *style:* **Commas should always have a space after.**
```r
test_that('split.cells param produces expected warnings',{
                                                         ^
```
[inst/tests/test-S3.R:369:47:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L369) *style:* **Commas should always have a space after.**
```r
  expect_warning(pander(mt, split.cells = c(1,2)))
                                              ^
```
[inst/tests/test-S3.R:370:47:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L370) *style:* **Commas should always have a space after.**
```r
  expect_warning(pander(mt, split.cells = c(1,2,3)))
                                              ^
```
[inst/tests/test-S3.R:370:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L370) *style:* **Commas should always have a space after.**
```r
  expect_warning(pander(mt, split.cells = c(1,2,3)))
                                                ^
```
[inst/tests/test-S3.R:371:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L371) *style:* **Commas should always have a space after.**
```r
  expect_warning(pander(mt, split.cells = c('10%','10%','10%')))
                                                  ^
```
[inst/tests/test-S3.R:371:57:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L371) *style:* **Commas should always have a space after.**
```r
  expect_warning(pander(mt, split.cells = c('10%','10%','10%')))
                                                        ^
```
[inst/tests/test-S3.R:372:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L372) *style:* **Commas should always have a space after.**
```r
  expect_warning(pander(mt, split.cells = c('30%','30%','40%')))
                                                  ^
```
[inst/tests/test-S3.R:372:57:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L372) *style:* **Commas should always have a space after.**
```r
  expect_warning(pander(mt, split.cells = c('30%','30%','40%')))
                                                        ^
```
[inst/tests/test-S3.R:377:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L377) *style:* **Commas should always have a space after.**
```r
test_that('produces.errors',{
                            ^
```
[inst/tests/test-S3.R:378:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L378) *style:* **Put spaces around all infix operators.**
```r
  x <- data.frame(a='Pander\nPackage')
                  ~^~
```
[inst/tests/test-S3.R:379:31:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L379) *style:* **Put spaces around all infix operators.**
```r
  expect_error(pander(x, style='simple', keep.line.breaks = TRUE))
                             ~^~
```
[inst/tests/test-S3.R:380:31:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L380) *style:* **Put spaces around all infix operators.**
```r
  expect_error(pander(x, style='rmarkdown', keep.line.breaks = TRUE))
                             ~^~
```
[inst/tests/test-S3.R:387:44:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L387) *style:* **Commas should always have a space after.**
```r
test_that('table.expand behaves correctly',{
                                           ^
```
[inst/tests/test-S3.R:392:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L392) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:392:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L392) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:392:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L392) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:394:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L394) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)),
                                                      ^
```
[inst/tests/test-S3.R:397:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L397) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                  ^
```
[inst/tests/test-S3.R:397:114:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L397) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                                                ^
```
[inst/tests/test-S3.R:403:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L403) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:403:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L403) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:403:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L403) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:405:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L405) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)), length(strsplit(res, '\n')[[1]]))
                                                      ^
```
[inst/tests/test-S3.R:413:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L413) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:413:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L413) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:413:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L413) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:415:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L415) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)), length(strsplit(res, '\n')[[1]]))
                                                      ^
```
[inst/tests/test-S3.R:417:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L417) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                  ^
```
[inst/tests/test-S3.R:417:114:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L417) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                                                ^
```
[inst/tests/test-S3.R:424:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L424) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:424:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L424) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:424:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L424) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:426:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L426) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)), length(strsplit(res, '\n')[[1]]))
                                                      ^
```
[inst/tests/test-S3.R:428:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L428) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                  ^
```
[inst/tests/test-S3.R:428:114:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L428) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                                                ^
```
[inst/tests/test-S3.R:435:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L435) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:435:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L435) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:435:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L435) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:437:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L437) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)), length(strsplit(res, '\n')[[1]]))
                                                      ^
```
[inst/tests/test-S3.R:439:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L439) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                  ^
```
[inst/tests/test-S3.R:439:114:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L439) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                                                ^
```
[inst/tests/test-S3.R:446:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L446) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:446:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L446) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:446:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L446) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:448:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L448) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)), length(strsplit(res, '\n')[[1]]))
                                                      ^
```
[inst/tests/test-S3.R:450:51:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L450) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                  ^
```
[inst/tests/test-S3.R:450:114:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L450) *style:* **Commas should always have a space after.**
```r
               nchar(sep.cols)[1] + (length(argv[,2]) - 1) * nchar(sep.cols)[2] + nchar(sep.cols)[3] + sum(argv[,2]))
                                                                                ^
```
[inst/tests/test-S3.R:457:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L457) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:457:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L457) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:457:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L457) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:459:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L459) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)),
                                                      ^
```
[inst/tests/test-S3.R:468:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L468) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:468:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L468) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:468:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L468) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:470:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L470) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)),
                                                      ^
```
[inst/tests/test-S3.R:477:29:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L477) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                            ^
```
[inst/tests/test-S3.R:477:39:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L477) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                      ^
```
[inst/tests/test-S3.R:477:49:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L477) *style:* **Commas should always have a space after.**
```r
  res <- table.expand(argv[,1], argv[,2], argv[,3], sep.cols, style)
                                                ^
```
[inst/tests/test-S3.R:479:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L479) *style:* **Commas should always have a space after.**
```r
  expect_equal(max(sapply(strsplit(as.character(argv[,1]), '\n'), length)), length(strsplit(res, '\n')[[1]]))
                                                      ^
```
[inst/tests/test-S3.R:483:17:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L483) *style:* **Commas should always have a space after.**
```r
  cells <- c('','','')
                ^
```
[inst/tests/test-S3.R:483:20:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L483) *style:* **Commas should always have a space after.**
```r
  cells <- c('','','')
                   ^
```
[inst/tests/test-S3.R:495:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L495) *style:* **Put spaces around all infix operators.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1 \\ 32',b='23')),
                                              ~^~
```
[inst/tests/test-S3.R:495:61:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L495) *style:* **Commas should always have a space after.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1 \\ 32',b='23')),
                                                            ^
```
[inst/tests/test-S3.R:495:62:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L495) *style:* **Put spaces around all infix operators.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1 \\ 32',b='23')),
                                                            ~^~
```
[inst/tests/test-S3.R:497:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L497) *style:* **Put spaces around all infix operators.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1 \\ 32',b='23'), justify = 'right'),
                                              ~^~
```
[inst/tests/test-S3.R:497:61:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L497) *style:* **Commas should always have a space after.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1 \\ 32',b='23'), justify = 'right'),
                                                            ^
```
[inst/tests/test-S3.R:497:62:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L497) *style:* **Put spaces around all infix operators.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1 \\ 32',b='23'), justify = 'right'),
                                                            ~^~
```
[inst/tests/test-S3.R:499:48:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L499) *style:* **Put spaces around all infix operators.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1',b='23')),
                                              ~^~
```
[inst/tests/test-S3.R:499:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L499) *style:* **Commas should always have a space after.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1',b='23')),
                                                      ^
```
[inst/tests/test-S3.R:499:56:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L499) *style:* **Put spaces around all infix operators.**
```r
  expect_equal(pandoc.table.return(data.frame(a='\\1',b='23')),
                                                      ~^~
```
[inst/tests/test-S3.R:535:50:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L535) *style:* **Put spaces around all infix operators.**
```r
    res <- pandoc.table.return(x, emphasize.cells=c(3,4), plain.ascii = TRUE)
                                                ~^~
```
[inst/tests/test-S3.R:535:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L535) *style:* **Commas should always have a space after.**
```r
    res <- pandoc.table.return(x, emphasize.cells=c(3,4), plain.ascii = TRUE)
                                                      ^
```
[inst/tests/test-S3.R:539:7:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L539) *style:* **Commented code should be removed.**
```r
    # length(dim) == 1
      ^~~~~~~~~~~~~~~~
```
[inst/tests/test-S3.R:541:50:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L541) *style:* **Put spaces around all infix operators.**
```r
    res <- pandoc.table.return(x, emphasize.cells=c(3,4), plain.ascii = TRUE)
                                                ~^~
```
[inst/tests/test-S3.R:541:55:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L541) *style:* **Commas should always have a space after.**
```r
    res <- pandoc.table.return(x, emphasize.cells=c(3,4), plain.ascii = TRUE)
                                                      ^
```
[inst/tests/test-S3.R:545:7:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L545) *style:* **Commented code should be removed.**
```r
    # length(dim) > 1
      ^~~~~~~~~~~~~~~
```
[inst/tests/test-S3.R:574:1:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L574) *style:* **lines should not be more than 120 characters.**
```r
    x <- suppressWarnings(CrossTable(mtcars$cyl, mtcars$gear, expected = TRUE, resid = TRUE, sresid = TRUE, asresid = TRUE))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/tests/test-S3.R:599:26:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L599) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(type=c(1, 1, 2, 2, 3, 3), variable='n', value=c(71, 72, 68, 80, 21, 20))
                        ~^~
```
[inst/tests/test-S3.R:599:56:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L599) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(type=c(1, 1, 2, 2, 3, 3), variable='n', value=c(71, 72, 68, 80, 21, 20))
                                                      ~^~
```
[inst/tests/test-S3.R:599:67:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L599) *style:* **Put spaces around all infix operators.**
```r
    df <- data.frame(type=c(1, 1, 2, 2, 3, 3), variable='n', value=c(71, 72, 68, 80, 21, 20))
                                                                 ~^~
```
[inst/tests/test-S3.R:601:46:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L601) *style:* **Put spaces around all infix operators.**
```r
    expect_equal(pander_return(df.cast, style='simple'),
                                            ~^~
```
[inst/tests/test-S3.R:602:23:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L602) *style:* **Commas should always have a space after.**
```r
                 c('','',' type   (all) ','------ -------','  1      143  ','  2      148  ','  3      41   ',''))
                      ^
```
[inst/tests/test-S3.R:602:26:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L602) *style:* **Commas should always have a space after.**
```r
                 c('','',' type   (all) ','------ -------','  1      143  ','  2      148  ','  3      41   ',''))
                         ^
```
[inst/tests/test-S3.R:602:43:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L602) *style:* **Commas should always have a space after.**
```r
                 c('','',' type   (all) ','------ -------','  1      143  ','  2      148  ','  3      41   ',''))
                                          ^
```
[inst/tests/test-S3.R:602:60:](https://github.com/Rapporter/pander/blob/638332944455afb88fc29547140caa6f6dd0a051/inst/tests/test-S3.R#L602) *style:* **Commas should always have a space after.**
```r
                 c('','',' type   (all) ','------ -------','  1      143  ','  2      148  ','  3      41   ',''))
                                                           ^
```


На слайдах с лекции есть про WindowAdapter (и на http://math.sgu.ru/sites/chairs/prinf/materials/java/lesson10.htm есть про классы-адаптеры). Воспользуйтесь им.


zxcf


You can refactor if else later.