Skip to content

Commit

Permalink
Code styling and adding datafiles.log
Browse files Browse the repository at this point in the history
  • Loading branch information
rmbielby committed May 17, 2024
1 parent 4404abe commit cd0d3db
Show file tree
Hide file tree
Showing 2 changed files with 20 additions and 4 deletions.
12 changes: 12 additions & 0 deletions datafiles_log.csv
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
filename,status
data/regional_data_FD_PG.csv,published
data/regional_movement_FD_PG.csv,published
data/sankey data 1-3YAG_FD_PG.csv,published
data/sankey data 1-5YAG_FD_PG.csv,published
data/sankey data 3-5YAG_FD_PG.csv,published
data/tables_data_3digit_FD_PG.csv,published
data/boundaries/Regions__December_2019__Boundaries_EN_BFE.cpg,published
data/boundaries/Regions__December_2019__Boundaries_EN_BFE.dbf,published
data/boundaries/Regions__December_2019__Boundaries_EN_BFE.prj,published
data/boundaries/Regions__December_2019__Boundaries_EN_BFE.shp,published
data/boundaries/Regions__December_2019__Boundaries_EN_BFE.shx,published
12 changes: 8 additions & 4 deletions tests/testthat/test-testUI.R
Original file line number Diff line number Diff line change
Expand Up @@ -67,8 +67,10 @@ test_that("Migrated shinytest test: testUI.R", {
app$set_inputs(earningsbutton = "Proportions", wait_ = FALSE)
app$expect_values(input = subjectByIndustry_input, output = subjectByIndustry_output)

app$set_inputs(crosstabs.subjectinput = "Physics and astronomy",
wait_ = FALSE)
app$set_inputs(
crosstabs.subjectinput = "Physics and astronomy",
wait_ = FALSE
)
app$expect_values(input = subjectByIndustry_input, output = subjectByIndustry_output)


Expand All @@ -84,8 +86,10 @@ test_that("Migrated shinytest test: testUI.R", {

app$set_inputs(navbar = "regional", timeout_ = 10000)
app$expect_values(input = regional_input, output = regional_output)
app$set_inputs(regioninput = c("London", "North East", "West Midlands"),
timeout_ = 20000)
app$set_inputs(
regioninput = c("London", "North East", "West Midlands"),
timeout_ = 20000
)
app$expect_values(input = regional_input, output = regional_output)
app$set_inputs(qualinput2 = "Level 7 (research)")
app$expect_values(input = regional_input, output = regional_output)
Expand Down

0 comments on commit cd0d3db

Please sign in to comment.