%>%
mar_mp_aa_pphd left_join(direct, by = "direct") %>%
group_by(direct, Direct) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
print_table_conditional()
direct | Direct | Nobs |
---|---|---|
IN | Inwards | 924 |
OUT | Outwards | 924 |
TOTAL | Total | 924 |
%>%
mar_mp_aa_pphd left_join(unit, by = "unit") %>%
group_by(unit, Unit) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
if (is_html_output()) print_table(.) else .} {
unit | Unit | Nobs |
---|---|---|
THS_PAS | Thousand passengers | 1431 |
RT_PRE | Growth rate on previous period (t/t-1) | 1341 |
%>%
mar_mp_aa_pphd left_join(rep_mar, by = "rep_mar") %>%
group_by(rep_mar, Rep_mar) %>%
summarise(Nobs = n()) %>%
arrange(-Nobs) %>%
mutate(Flag = gsub(" ", "-", str_to_lower(gsub(" ", "-", Rep_mar))),
Flag = paste0('<img src="../../icon/flag/vsmall/', Flag, '.png" alt="Flag">')) %>%
select(Flag, everything()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {
%>%
mar_mp_aa_pphd group_by(time) %>%
summarise(Nobs = n()) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
mar_mp_aa_pphd filter(unit == "THS_PAS",
== "2019") %>%
time select( -unit, -time) %>%
left_join(rep_mar, by = "rep_mar") %>%
left_join(direct, by = "direct") %>%
select(-direct) %>%
spread(Direct, values) %>%
arrange(-Total) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F, escape = F) else .} {