Skip to content

Commit 084ed2e

Browse files
etiennebacherstrengejackerempsyc
authored
Fix a couple of lints (#469)
* init * document, styler --------- Co-authored-by: Daniel <mail@danielluedecke.de> Co-authored-by: Rémi Thériault <13123390+rempsyc@users.noreply.github.com>
1 parent 278d9f6 commit 084ed2e

29 files changed

+10
-86
lines changed

‎R/report.BFBayesFactor.R

-1
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,6 @@ report.BFBayesFactor <- function(x, h0 = "H0", h1 = "H1", ...) {
6363
}
6464

6565

66-
6766
#' @rdname report.BFBayesFactor
6867
#' @export
6968
report_statistics.BFBayesFactor <- function(x, table = NULL, ...) {

‎R/report.R

-1
Original file line numberDiff line numberDiff line change
@@ -141,7 +141,6 @@ as.report <- function(text, table = NULL, plot = NULL, ...) {
141141
}
142142

143143

144-
145144
#' @rdname as.report
146145
#' @export
147146
is.report <- function(x) inherits(x, "report")

‎R/report.aov.R

-5
Original file line numberDiff line numberDiff line change
@@ -83,7 +83,6 @@ report_effectsize.aov <- function(x, ...) {
8383
parameters <- paste0(interpretation, " (", statistics, ")")
8484

8585

86-
8786
as.report_effectsize(parameters,
8887
summary = parameters,
8988
table = table,
@@ -211,9 +210,6 @@ report_statistics.anova <- report_statistics.aov
211210
report_statistics.aovlist <- report_statistics.aov
212211

213212

214-
215-
216-
217213
# report_parameters ------------------------------------------------------------
218214

219215

@@ -319,7 +315,6 @@ report_info.anova <- report_info.aov
319315
report_info.aovlist <- report_info.aov
320316

321317

322-
323318
# report_text ------------------------------------------------------------
324319

325320
#' @rdname report.aov

‎R/report.bayesfactor_models.R

-2
Original file line numberDiff line numberDiff line change
@@ -99,7 +99,6 @@ report_text.bayesfactor_models <- function(x,
9999
}
100100

101101

102-
103102
#' @keywords internal
104103
.report.bayesfactor_models <- function(model,
105104
interpretation = "jeffreys1961",
@@ -211,7 +210,6 @@ report_text.bayesfactor_models <- function(x,
211210
}
212211

213212

214-
215213
# bayesfactor_inclusion ---------------------------------------------------
216214

217215
#' @rdname report.bayesfactor_models

‎R/report.brmsfit.R

-1
Original file line numberDiff line numberDiff line change
@@ -53,7 +53,6 @@ report_text.brmsfit <- report_text.lm
5353
# ==================== Specific to Bayes ===================================
5454

5555

56-
5756
# report_priors -----------------------------------------------------------
5857

5958
#' @export

‎R/report.character.R

-7
Original file line numberDiff line numberDiff line change
@@ -25,13 +25,9 @@ report.character <- function(x,
2525
}
2626

2727

28-
29-
30-
3128
# report_table ------------------------------------------------------------
3229

3330

34-
3531
#' @export
3632
report_table.character <- function(x,
3733
n_entries = 3,
@@ -68,7 +64,6 @@ report_table.character <- function(x,
6864
}
6965

7066

71-
7267
# report_parameters -------------------------------------------------------
7368

7469
#' @export
@@ -102,7 +97,6 @@ report_parameters.character <- function(x,
10297
}
10398

10499

105-
106100
# report_text -------------------------------------------------------------
107101

108102
#' @export
@@ -175,7 +169,6 @@ report_text.character <- function(x,
175169
}
176170

177171

178-
179172
# report_statistics -------------------------------------------------------
180173

181174

‎R/report.data.frame.R

-15
Original file line numberDiff line numberDiff line change
@@ -100,7 +100,6 @@ report.data.frame <- function(x,
100100
# report_table ------------------------------------------------------------
101101

102102

103-
104103
#' @export
105104
report_table.data.frame <- function(x,
106105
n = FALSE,
@@ -178,12 +177,9 @@ report_table.data.frame <- function(x,
178177
}
179178

180179

181-
182-
183180
# report_parameters -------------------------------------------------------
184181

185182

186-
187183
#' @export
188184
report_parameters.data.frame <- function(x,
189185
table = NULL,
@@ -224,7 +220,6 @@ report_parameters.data.frame <- function(x,
224220
}
225221

226222

227-
228223
# report_text -------------------------------------------------------------
229224

230225
#' @export
@@ -272,7 +267,6 @@ report_text.data.frame <- function(x,
272267
}
273268

274269

275-
276270
# report_statistics -------------------------------------------------------
277271

278272

@@ -401,8 +395,6 @@ report_table.grouped_df <- function(x,
401395
}
402396

403397

404-
405-
406398
#' @export
407399
report_parameters.grouped_df <- function(x,
408400
table = NULL,
@@ -494,7 +486,6 @@ report_text.grouped_df <- function(x,
494486
report.grouped_df <- report.data.frame
495487

496488

497-
498489
#' @export
499490
report_statistics.grouped_df <- function(x,
500491
table = NULL,
@@ -538,12 +529,6 @@ report_statistics.grouped_df <- function(x,
538529
}
539530

540531

541-
542-
543-
544-
545-
546-
547532
# Utils -------------------------------------------------------------------
548533

549534
#' @keywords internal

‎R/report.factor.R

-3
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,6 @@ report.Date <- report.factor
2020
# report_table ------------------------------------------------------------
2121

2222

23-
2423
#' @export
2524
report_table.factor <- function(x, levels_percentage = "auto", ...) {
2625
if (!is.factor(x)) {
@@ -56,7 +55,6 @@ report_table.Date <- report_table.factor
5655
# report_parameters -------------------------------------------------------
5756

5857

59-
6058
#' @export
6159
report_parameters.factor <- function(x, table = NULL, levels_percentage = "auto", ...) {
6260
if (!is.factor(x)) {
@@ -140,7 +138,6 @@ report_text.logical <- report_text.factor
140138
report_text.Date <- report_text.factor
141139

142140

143-
144141
# report_statistics -------------------------------------------------------
145142

146143

‎R/report.lavaan.R

-2
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,6 @@ report.lavaan <- function(x, ...) {
3434
}
3535

3636

37-
3837
#' @export
3938
report_table.lavaan <- function(x, ...) {
4039
parameters <- parameters::model_parameters(x, ci_random = FALSE, ...)
@@ -80,7 +79,6 @@ report_table.lavaan <- function(x, ...) {
8079
}
8180

8281

83-
8482
#' @rdname report.lavaan
8583
#' @export
8684
report_performance.lavaan <- function(x, table = NULL, ...) {

‎R/report.lm.R

-5
Original file line numberDiff line numberDiff line change
@@ -65,7 +65,6 @@ report.lm <- function(x, include_effectsize = TRUE, effectsize_method = "refit",
6565
}
6666

6767

68-
6968
# report_effectsize -------------------------------------------------------
7069

7170
#' @rdname report.lm
@@ -124,7 +123,6 @@ report_effectsize.lm <- function(x, effectsize_method = "refit", ...) {
124123
}
125124

126125

127-
128126
# report_table ------------------------------------------------------------
129127

130128

@@ -278,7 +276,6 @@ report_statistics.lm <- function(x,
278276
}
279277

280278

281-
282279
# report_statistics ------------------------------------------------------------
283280

284281
#' @rdname report.lm
@@ -475,7 +472,6 @@ report_performance.lm <- function(x, table = NULL, ...) {
475472
}
476473

477474

478-
479475
# report_info ------------------------------------------------------------
480476

481477
#' @rdname report.lm
@@ -518,7 +514,6 @@ report_info.lm <- function(x,
518514
}
519515

520516

521-
522517
# report_text ------------------------------------------------------------
523518

524519
#' @rdname report.lm

‎R/report.numeric.R

-4
Original file line numberDiff line numberDiff line change
@@ -51,7 +51,6 @@ report.numeric <- function(x,
5151
}
5252

5353

54-
5554
# report_table ------------------------------------------------------------
5655

5756
#' @export
@@ -132,8 +131,6 @@ report_table.numeric <- function(x,
132131
}
133132

134133

135-
136-
137134
# report_parameters -------------------------------------------------------
138135

139136
#' @export
@@ -258,7 +255,6 @@ report_parameters.numeric <- function(x,
258255
}
259256

260257

261-
262258
# report_text -------------------------------------------------------------
263259

264260
#' @export

‎R/report.sessionInfo.R

-5
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,6 @@ report.sessionInfo <- function(x, ...) {
3737
}
3838

3939

40-
4140
# Aliases -----------------------------------------------------------------
4241

4342

@@ -67,7 +66,6 @@ cite_packages <- function(session = NULL, include_R = TRUE, ...) {
6766
}
6867

6968

70-
7169
# report_system --------------------------------------------------------------
7270

7371

@@ -104,7 +102,6 @@ report_system <- function(session = NULL) {
104102
}
105103

106104

107-
108105
# report_table ------------------------------------------------------------
109106

110107
#' @export
@@ -141,7 +138,6 @@ report_table.sessionInfo <- function(x, include_R = TRUE, ...) {
141138
}
142139

143140

144-
145141
# report_parameters -------------------------------------------------------
146142

147143
#' @export
@@ -179,7 +175,6 @@ report_parameters.sessionInfo <- function(x, table = NULL, include_R = TRUE, ...
179175
}
180176

181177

182-
183178
# report_text -------------------------------------------------------------
184179

185180
#' @export

‎R/report_effectsize.R

-2
Original file line numberDiff line numberDiff line change
@@ -83,11 +83,9 @@ print.report_effectsize <- function(x, ...) {
8383
}
8484

8585

86-
8786
# Utilities ---------------------------------------------------------------
8887

8988

90-
9189
#' @keywords internal
9290
.text_effectsize <- function(interpretation) {
9391
# Effect size

‎R/report_htest_cor.R

-1
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,6 @@
2424
}
2525

2626

27-
2827
# report_effectsize ---------------------
2928

3029
.report_effectsize_correlation <- function(x, table, dot_args) {

‎R/report_info.R

-2
Original file line numberDiff line numberDiff line change
@@ -46,7 +46,6 @@ report_info <- function(x, ...) {
4646
}
4747

4848

49-
5049
# METHODS -----------------------------------------------------------------
5150

5251

@@ -78,7 +77,6 @@ print.report_info <- function(x, ...) {
7877
}
7978

8079

81-
8280
# Utils -------------------------------------------------------------------
8381

8482
#' @keywords internal

‎R/report_intercept.R

-1
Original file line numberDiff line numberDiff line change
@@ -99,7 +99,6 @@ print.report_intercept <- function(x, ...) {
9999
}
100100

101101

102-
103102
.find_reference_level <- function(f) {
104103
tryCatch(
105104
{

‎R/report_misc.R

-1
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,6 @@ report_date <- function(...) {
2222
}
2323

2424

25-
2625
#' @rdname report_date
2726
#' @export
2827
report_story <- function(...) {

‎R/report_model.R

-1
Original file line numberDiff line numberDiff line change
@@ -46,7 +46,6 @@ report_model <- function(x, table = NULL, ...) {
4646
}
4747

4848

49-
5049
# METHODS -----------------------------------------------------------------
5150

5251

‎R/report_parameters.R

-2
Original file line numberDiff line numberDiff line change
@@ -104,7 +104,6 @@ print.report_parameters <- function(x, ...) {
104104
}
105105

106106

107-
108107
# Utils -------------------------------------------------------------------
109108

110109
#' @keywords internal
@@ -158,7 +157,6 @@ print.report_parameters <- function(x, ...) {
158157
}
159158

160159

161-
162160
#' @keywords internal
163161
.parameters_diagnostic_bayesian <- function(diagnostic, only_when_insufficient = FALSE, ...) {
164162
# Convergence

0 commit comments

Comments
 (0)