add extra . to ./shinytest and ran tidy_code() to try and sort our pu…

…ll request errors

renv/settings.json

@@ -0,0 +1,19 @@
+{
+  "bioconductor.version": null,
+  "external.libraries": [],
+  "ignored.packages": [],
+  "package.dependency.fields": [
+    "Imports",
+    "Depends",
+    "LinkingTo"
+  ],
+  "ppm.enabled": null,
+  "ppm.ignored.urls": [],
+  "r.version": null,
+  "snapshot.type": "packrat",
+  "use.cache": true,
+  "vcs.ignore.cellar": true,
+  "vcs.ignore.library": true,
+  "vcs.ignore.local": true,
+  "vcs.manage.ignores": true
+}

server.R

@@ -174,12 +174,13 @@ server <- function(input, output, session) {
   prior_band_chart <- reactive({
     req(input$qual_select)
     stud_percentages %>%
-      left_join(lookup_characters, by = c("ReportYr",
+      left_join(lookup_characters, by = c(
+        "ReportYr",
         "Qual_Description", "SUBLEVNO", "Subject", "SUBJ",
         "ASIZE", "GSIZE", "SIZE", "gradeStructure"
       )) %>%
       subset(ReportYr == input$ReportYr_select &
-             Qual_Description == input$qual_select &
+        Qual_Description == input$qual_select &
         Subject == input$subj_select &
         SIZE == input$size_select &
         gradeStructure == input$grade_structure_select) %>%

tests/shinytest.R

@@ -1,2 +1,2 @@
 library(shinytest)
-shinytest::testApp("./")
+shinytest::testApp("../")