Fixed lintr & complexity issues

R/a11yCheckboxGroupInput.R

@@ -60,5 +60,5 @@ a11yCheckboxGroupInput <- function(
     selectAll
   )
 
-	htmltools::attachDependencies(fieldset, accessibleShinyInputsDependency())
+  htmltools::attachDependencies(fieldset, a11yShinyInputsDependency())
 }

R/a11yFileInput.R

@@ -26,7 +26,8 @@ a11yFileInput <- function(
     class = "shiny-input-file",
     name = inputId,
     type = "file",
-        style = "position: absolute !important; top: -99999px !important; left: -99999px !important;",
+    style = "position: absolute !important; top: -99999px !important; \
+      left: -99999px !important;",
     `data-restore` = restoredValue
   )
   if (multiple) {
@@ -54,7 +55,8 @@ a11yFileInput <- function(
         class = "input-group-btn input-group-prepend",
         htmltools::tags$span(
           class = "btn btn-default btn-file", buttonLabel, inputTag
-                )),
+        )
+      ),
       htmltools::tags$input(
         type = "text",
         class = "form-control",

R/a11yRadioButtons.R

@@ -40,5 +40,5 @@ a11yRadioButtons <- function(
     options
   )
 
-	htmltools::attachDependencies(fieldset, accessibleShinyInputsDependency())
+  htmltools::attachDependencies(fieldset, a11yShinyInputsDependency())
 }

R/deps.R

@@ -1,4 +1,4 @@
-accessibleShinyInputsDependency <- function() {
+a11yShinyInputsDependency <- function() {
   if (getOption("shiny.minified", TRUE)) {
     js <- c("js/a11yShinyInputs.min.js", "js/a11yCheckboxGroupInput.min.js")
     css <- "css/a11yShinyInputs.min.css"