Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

adjust tests for statsExpressions changes; more args cleanup #405

Merged
merged 7 commits into from Apr 15, 2020

Conversation

IndrajeetPatil
Copy link
Owner

No description provided.

@lintr-bot
Copy link

R/ggbarstats.R:51:1: style: functions should have cyclomatic complexity of less than 15, this has 17.

ggbarstats <- function(data,
^

R/ggbetweenstats.R:191:1: style: functions should have cyclomatic complexity of less than 15, this has 26.

ggbetweenstats <- function(data,
^

R/ggcoefstats.R:273:1: style: functions should have cyclomatic complexity of less than 15, this has 54.

ggcoefstats <- function(x,
^

R/gghistostats.R:70:1: style: functions should have cyclomatic complexity of less than 15, this has 19.

gghistostats <- function(data,
^

R/ggpiestats.R:88:1: style: functions should have cyclomatic complexity of less than 15, this has 20.

ggpiestats <- function(data,
^

R/ggscatterstats.R:94:1: style: functions should have cyclomatic complexity of less than 15, this has 29.

ggscatterstats <- function(data,
^

R/ggwithinstats.R:68:1: style: functions should have cyclomatic complexity of less than 15, this has 24.

ggwithinstats <- function(data,
^

tests/testthat/test-ggcoefstats.R:339:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(1*\",\"*28)==118.89, ~italic(p)<= 0.001, ~widehat(italic(eta)[p]^2)==0.81)",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcoefstats.R:411:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(3*\",\"*35)==7.388, ~italic(p)== 0.001, ~widehat(italic(omega)[p]^2)==0.308)",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcoefstats.R:412:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(1*\",\"*35)==2.034, ~italic(p)== 0.163, ~widehat(italic(omega)[p]^2)==0.023)",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcoefstats.R:413:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(3*\",\"*35)==4.012, ~italic(p)== 0.015, ~widehat(italic(omega)[p]^2)==0.174)"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcorrmat.R:243:7: style: Commented code should be removed.

# testthat::expect_equal(dim(pb$data[[3]]), c(1L, 10L))
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1 similar comment
@lintr-bot
Copy link

R/ggbarstats.R:51:1: style: functions should have cyclomatic complexity of less than 15, this has 17.

ggbarstats <- function(data,
^

R/ggbetweenstats.R:191:1: style: functions should have cyclomatic complexity of less than 15, this has 26.

ggbetweenstats <- function(data,
^

R/ggcoefstats.R:273:1: style: functions should have cyclomatic complexity of less than 15, this has 54.

ggcoefstats <- function(x,
^

R/gghistostats.R:70:1: style: functions should have cyclomatic complexity of less than 15, this has 19.

gghistostats <- function(data,
^

R/ggpiestats.R:88:1: style: functions should have cyclomatic complexity of less than 15, this has 20.

ggpiestats <- function(data,
^

R/ggscatterstats.R:94:1: style: functions should have cyclomatic complexity of less than 15, this has 29.

ggscatterstats <- function(data,
^

R/ggwithinstats.R:68:1: style: functions should have cyclomatic complexity of less than 15, this has 24.

ggwithinstats <- function(data,
^

tests/testthat/test-ggcoefstats.R:339:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(1*\",\"*28)==118.89, ~italic(p)<= 0.001, ~widehat(italic(eta)[p]^2)==0.81)",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcoefstats.R:411:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(3*\",\"*35)==7.388, ~italic(p)== 0.001, ~widehat(italic(omega)[p]^2)==0.308)",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcoefstats.R:412:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(1*\",\"*35)==2.034, ~italic(p)== 0.163, ~widehat(italic(omega)[p]^2)==0.023)",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcoefstats.R:413:1: style: Lines should not be more than 100 characters.

"list(~italic(F)(3*\",\"*35)==4.012, ~italic(p)== 0.015, ~widehat(italic(omega)[p]^2)==0.174)"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test-ggcorrmat.R:243:7: style: Commented code should be removed.

# testthat::expect_equal(dim(pb$data[[3]]), c(1L, 10L))
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

@codecov
Copy link

codecov bot commented Apr 4, 2020

Codecov Report

Merging #405 into master will decrease coverage by 0.002%.
The diff coverage is 100%.

@@              Coverage Diff              @@
##            master      #405       +/-   ##
=============================================
- Coverage   99.957%   99.955%   -0.002%     
=============================================
  Files           27        27               
  Lines         2332      2234       -98     
=============================================
- Hits          2331      2233       -98     
  Misses           1         1
Impacted Files Coverage Δ
R/grouped_ggcorrmat.R 100% <ø> (ø) ⬆️
R/grouped_ggbetweenstats.R 100% <ø> (ø) ⬆️
R/grouped_ggpiestats.R 100% <ø> (ø) ⬆️
R/grouped_ggwithinstats.R 100% <ø> (ø) ⬆️
R/grouped_ggscatterstats.R 100% <ø> (ø) ⬆️
R/grouped_gghistostats.R 100% <ø> (ø) ⬆️
R/ggpiestats.R 100% <ø> (ø) ⬆️
R/grouped_ggdotplotstats.R 100% <ø> (ø) ⬆️
R/grouped_ggbarstats.R 100% <ø> (ø) ⬆️
R/helpers_grouped_functions.R 100% <100%> (ø) ⬆️
... and 9 more

@lintr-bot
Copy link

R/ggbarstats.R:51:1: style: functions should have cyclomatic complexity of less than 15, this has 17.

ggbarstats <- function(data,
^

R/ggbetweenstats.R:191:1: style: functions should have cyclomatic complexity of less than 15, this has 26.

ggbetweenstats <- function(data,
^

R/ggcoefstats.R:273:1: style: functions should have cyclomatic complexity of less than 15, this has 54.

ggcoefstats <- function(x,
^

R/gghistostats.R:70:1: style: functions should have cyclomatic complexity of less than 15, this has 19.

gghistostats <- function(data,
^

R/ggpiestats.R:88:1: style: functions should have cyclomatic complexity of less than 15, this has 20.

ggpiestats <- function(data,
^

R/ggscatterstats.R:94:1: style: functions should have cyclomatic complexity of less than 15, this has 29.

ggscatterstats <- function(data,
^

R/ggwithinstats.R:68:1: style: functions should have cyclomatic complexity of less than 15, this has 24.

ggwithinstats <- function(data,
^

1 similar comment
@lintr-bot
Copy link

R/ggbarstats.R:51:1: style: functions should have cyclomatic complexity of less than 15, this has 17.

ggbarstats <- function(data,
^

R/ggbetweenstats.R:191:1: style: functions should have cyclomatic complexity of less than 15, this has 26.

ggbetweenstats <- function(data,
^

R/ggcoefstats.R:273:1: style: functions should have cyclomatic complexity of less than 15, this has 54.

ggcoefstats <- function(x,
^

R/gghistostats.R:70:1: style: functions should have cyclomatic complexity of less than 15, this has 19.

gghistostats <- function(data,
^

R/ggpiestats.R:88:1: style: functions should have cyclomatic complexity of less than 15, this has 20.

ggpiestats <- function(data,
^

R/ggscatterstats.R:94:1: style: functions should have cyclomatic complexity of less than 15, this has 29.

ggscatterstats <- function(data,
^

R/ggwithinstats.R:68:1: style: functions should have cyclomatic complexity of less than 15, this has 24.

ggwithinstats <- function(data,
^

@lintr-bot
Copy link

R/ggbarstats.R:51:1: style: functions should have cyclomatic complexity of less than 15, this has 17.

ggbarstats <- function(data,
^

R/ggbetweenstats.R:191:1: style: functions should have cyclomatic complexity of less than 15, this has 26.

ggbetweenstats <- function(data,
^

R/ggcoefstats.R:273:1: style: functions should have cyclomatic complexity of less than 15, this has 54.

ggcoefstats <- function(x,
^

R/gghistostats.R:70:1: style: functions should have cyclomatic complexity of less than 15, this has 19.

gghistostats <- function(data,
^

R/ggpiestats.R:88:1: style: functions should have cyclomatic complexity of less than 15, this has 20.

ggpiestats <- function(data,
^

R/ggscatterstats.R:94:1: style: functions should have cyclomatic complexity of less than 15, this has 29.

ggscatterstats <- function(data,
^

R/ggwithinstats.R:68:1: style: functions should have cyclomatic complexity of less than 15, this has 24.

ggwithinstats <- function(data,
^

1 similar comment
@lintr-bot
Copy link

R/ggbarstats.R:51:1: style: functions should have cyclomatic complexity of less than 15, this has 17.

ggbarstats <- function(data,
^

R/ggbetweenstats.R:191:1: style: functions should have cyclomatic complexity of less than 15, this has 26.

ggbetweenstats <- function(data,
^

R/ggcoefstats.R:273:1: style: functions should have cyclomatic complexity of less than 15, this has 54.

ggcoefstats <- function(x,
^

R/gghistostats.R:70:1: style: functions should have cyclomatic complexity of less than 15, this has 19.

gghistostats <- function(data,
^

R/ggpiestats.R:88:1: style: functions should have cyclomatic complexity of less than 15, this has 20.

ggpiestats <- function(data,
^

R/ggscatterstats.R:94:1: style: functions should have cyclomatic complexity of less than 15, this has 29.

ggscatterstats <- function(data,
^

R/ggwithinstats.R:68:1: style: functions should have cyclomatic complexity of less than 15, this has 24.

ggwithinstats <- function(data,
^

@IndrajeetPatil IndrajeetPatil merged commit 0702036 into master Apr 15, 2020
@IndrajeetPatil IndrajeetPatil deleted the devel_4.0.0 branch April 15, 2020 13:27
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

None yet

2 participants