Update to 2024U data #29
Conversation
…nd add warning box about VTQs
Data update 2024u
![github-advanced-security[bot]](https://avatars.githubusercontent.com/in/57789?s=60&v=4){kind=small}
| @@ -1,6 +1,12 @@ | |||
| homepage_panel <- function() { | |||
| tabPanel( | |||
| "Homepage", | |||
| modalDialog( | |||
Check warning
Code scanning / lintr
no visible global function definition for 'modalDialog' Warning
| @@ -1,6 +1,12 @@ | |||
| homepage_panel <- function() { | |||
| tabPanel( | |||
| "Homepage", | |||
| modalDialog( | |||
| title = "Missing data", | |||
| "The 16 to 18 transition matrices does not include vocational and technical qualifications for 2024 provisional data due to a data collection issue. This will be resolved in the revised publication.", | |||
Check notice
Code scanning / lintr
Lines should not be more than 80 characters. This line is 206 characters. Note
| ) | ||
| ), | ||
| column( | ||
| width = 6, | ||
| selectizeInput( | ||
| inputId = "grade_structure_select", | ||
| label = "5. Select a grade structure", | ||
| choices = list(GradeStructures = sort(qual_lookup$gradeStructure)) | ||
| choices = list(GradeStructures = sort(unique(qual_lookup$gradeStructure))) |
Check notice
Code scanning / lintr
Lines should not be more than 80 characters. This line is 92 characters. Note
| @@ -23,8 +23,8 @@ | |||
| # ---- Things to change between runs ---- | |||
| # ----------------------------------------------------------------------------------------------------------------------------- | |||
|
|
|||
| ancillary_save_path <- "//lonnetapp01/DSGA2/!!Secure Data/SFR/2023/KS5/4 Dev/07_development/06_ancillary/" | |||
| current_year <- "2023A" | |||
| ancillary_save_path <- "//lonnetapp01/DSGA2/!!Secure Data/SFR/2024/KS5/01_november_2024/06_ancillary/" | |||
Check notice
Code scanning / lintr
Lines should not be more than 80 characters. This line is 102 characters. Note
| @@ -35,7 +35,7 @@ | |||
|
|
|||
|
|
|||
| # Select data from SQL tables - need to add the current year for unamended run and change from U to A for the amended run | |||
|
|
|||
| tm_data_raw_2024 <- tbl(con, sql("select * from [KS5_STATISTICS_RESTRICTED].[TM_2024].[TM_data_2024U]")) %>% collect() | |||
Check notice
Code scanning / lintr
Lines should not be more than 80 characters. This line is 118 characters. Note
| label = NULL, | ||
| choices <- qual_lookup %>% | ||
| filter(ReportYr == input$ReportYr_select) %>% | ||
| pull(Qual_Description) %>% |
Check warning
Code scanning / lintr
no visible binding for global variable 'Qual_Description' Warning
| choices <- qual_lookup %>% | ||
| filter(ReportYr == input$ReportYr_select) %>% | ||
| pull(Qual_Description) %>% | ||
| unique(.) %>% |
Check warning
Code scanning / lintr
no visible binding for global variable '.' Warning
| choices <- qual_lookup %>% | ||
| filter(ReportYr == input$ReportYr_select) %>% | ||
| pull(Qual_Description) %>% | ||
| unique(.) %>% |
Check warning
Code scanning / lintr
no visible binding for global variable '.' Warning
|
|
||
| observe({ | ||
| updateSelectInput(session, | ||
| inputId = "subj_select", | ||
| label = NULL, | ||
| choices <- qual_lookup %>% | ||
| filter(ReportYr == input$ReportYr_select & Qual_Description == input$qual_select) %>% | ||
| filter( | ||
| ReportYr == input$ReportYr_select, |
Check warning
Code scanning / lintr
no visible binding for global variable 'ReportYr' Warning
| filter(ReportYr == input$ReportYr_select & Qual_Description == input$qual_select) %>% | ||
| filter( | ||
| ReportYr == input$ReportYr_select, | ||
| Qual_Description == input$qual_select |
Check warning
Code scanning / lintr
no visible binding for global variable 'Qual_Description' Warning
Update to 2024U data and warning box about the missing VTQs