Closed cseirup closed 2 months ago
I think this is related to the view column changes we caught after GETT? The names were updated in select() but not in column_spec(). I can push the changes, but didn't want push them to Main without checking if there was a better branch.
dist_tab <- kable(dist %>% select(Team, DisturbanceSummary, ThresholdLabel, DisturbanceCoverClassLabel), format = 'html', align = 'c', table.attr = "style='width:48%;'", col.names = c("Team", "Disturbance", "Threshold", "Cover Class")) %>% kable_styling(fixed_thead = TRUE, bootstrap_options = 'condensed', full_width = FALSE, position = 'left', font_size = 14) %>% row_spec(0, extra_css = 'border-bottom: 1px solid #000000;') %>% row_spec(1:2, extra_css = 'border-bottom: 1px solid #CACACA;') %>% column_spec(2, background = check_dif_strict(dist, "DisturbanceSummary")) %>% column_spec(3, background = check_dif_strict(dist, "ThresholdLabel")) %>% column_spec(4, background = check_dif(dist, "DisturbanceCoverClassLabel")) %>% row_spec(nrow(dist), extra_css = "border-bottom: 1px solid #000000;") %>% column_spec(c(1, 2), border_left = TRUE) %>% column_spec(4, border_right = TRUE) %>% column_spec(2:3, border_right = TRUE, extra_css = "border-right: 1px solid #CACACA")
Fixed in both MIDN and NETN QAQC reports
I think this is related to the view column changes we caught after GETT? The names were updated in select() but not in column_spec(). I can push the changes, but didn't want push them to Main without checking if there was a better branch.
dist_tab <- kable(dist %>% select(Team, DisturbanceSummary, ThresholdLabel, DisturbanceCoverClassLabel), format = 'html', align = 'c', table.attr = "style='width:48%;'", col.names = c("Team", "Disturbance", "Threshold", "Cover Class")) %>% kable_styling(fixed_thead = TRUE, bootstrap_options = 'condensed', full_width = FALSE, position = 'left', font_size = 14) %>% row_spec(0, extra_css = 'border-bottom: 1px solid #000000;') %>% row_spec(1:2, extra_css = 'border-bottom: 1px solid #CACACA;') %>% column_spec(2, background = check_dif_strict(dist, "DisturbanceSummary")) %>% column_spec(3, background = check_dif_strict(dist, "ThresholdLabel")) %>% column_spec(4, background = check_dif(dist, "DisturbanceCoverClassLabel")) %>% row_spec(nrow(dist), extra_css = "border-bottom: 1px solid #000000;") %>% column_spec(c(1, 2), border_left = TRUE) %>% column_spec(4, border_right = TRUE) %>% column_spec(2:3, border_right = TRUE, extra_css = "border-right: 1px solid #CACACA")