From 6d758d4a8fff185ef187484ee6e6099b1272c05e Mon Sep 17 00:00:00 2001
From: "github-actions[bot]" <github-actions[bot]@users.noreply.github.com>
Date: Wed, 18 Oct 2023 07:53:23 +0000
Subject: [PATCH] Apply automatic stylistic changes

---
 R/roc.R | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/R/roc.R b/R/roc.R
index 6be7efc2..7cc894d3 100644
--- a/R/roc.R
+++ b/R/roc.R
@@ -582,8 +582,10 @@ rocModule <- function(input, output, session, data, data_label, data_varStruct =
             mm <- glm(as.formula(forms), data = data.roc, family = binomial, x = T)
             return(pROC::roc(mm$y, mm$x[, 2]))
           })
-          res.cut <- pROC::coords(res.roc1[[1]], x = "best", input = "threshold", best.method = "youden",
-                                  ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv"))
+          res.cut <- pROC::coords(res.roc1[[1]],
+            x = "best", input = "threshold", best.method = "youden",
+            ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv")
+          )
         } else {
           res.cut <- NULL
         }
@@ -638,8 +640,10 @@ rocModule <- function(input, output, session, data, data_label, data_varStruct =
           mm <- survey::svyglm(as.formula(forms), design = data.design, family = quasibinomial(), x = T)
           return(pROC::roc(mm$y, mm$x[, 2]))
         })
-        res.cut <- pROC::coords(res.roc1[[1]], x = "best", input = "threshold", best.method = "youden",
-                                ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv"))
+        res.cut <- pROC::coords(res.roc1[[1]],
+          x = "best", input = "threshold", best.method = "youden",
+          ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv")
+        )
       } else {
         res.cut <- NULL
       }
@@ -1049,8 +1053,10 @@ rocModule2 <- function(input, output, session, data, data_label, data_varStruct
             mm <- glm(as.formula(forms), data = data.roc, family = binomial, x = T)
             return(pROC::roc(mm$y, mm$x[, 2]))
           })
-          res.cut <- pROC::coords(res.roc1[[1]], x = "best", input = "threshold", best.method = "youden",
-                                  ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv"))
+          res.cut <- pROC::coords(res.roc1[[1]],
+            x = "best", input = "threshold", best.method = "youden",
+            ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv")
+          )
         } else {
           res.cut <- NULL
         }
@@ -1105,8 +1111,10 @@ rocModule2 <- function(input, output, session, data, data_label, data_varStruct
           mm <- survey::svyglm(as.formula(forms), design = data.design, family = quasibinomial(), x = T)
           return(pROC::roc(mm$y, mm$x[, 2]))
         })
-        res.cut <- pROC::coords(res.roc1[[1]], x = "best", input = "threshold", best.method = "youden",
-                                ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv"))
+        res.cut <- pROC::coords(res.roc1[[1]],
+          x = "best", input = "threshold", best.method = "youden",
+          ret = c("threshold", "sensitivity", "specificity", "accuracy", "ppv", "npv")
+        )
       } else {
         res.cut <- NULL
       }