Skip to content

Commit

Permalink
updated case study
Browse files Browse the repository at this point in the history
  • Loading branch information
@carlosantagiustina
carlosantagiustina committed Nov 21, 2023
1 parent 9d1f5f1 commit 4c41414
Show file tree
Hide file tree
Showing 7 changed files with 143 additions and 16 deletions.
Binary file modified .DS_Store
View file
Binary file not shown.
82 changes: 80 additions & 2 deletions R/app_server.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1071,7 +1071,24 @@ app_server <- function(input, output, session) {
# }
# )

output$html_2 <- renderUI(includeHTML(system.file("extdata","COVID_genderinequality.html",package = "Hermione")))
output$html_2 <- renderUI({
div(includeHTML(system.file("extdata","gender_inequality.html",package = "Hermione")), style = "
margin-right:0%;
display: inline-block;
height:650px;
width:100%;
")
}
)
output$html_3 <- renderUI({
div(includeHTML(system.file("extdata","COVID_genderinequality.html",package = "Hermione")), style = "
margin-right:0%;
display: inline-block;
height:1080px;
width:100%;
")
}
)

##### HERMIONE ####

Expand Down Expand Up @@ -1826,7 +1843,68 @@ Finally, case studies can help to highlight the diversity of experiences of mult
##### COMPONENT 3: SUMMARY STATS #####

##### COMPONENT 4: CASE STUDIES #####
###### CASE STUDY 1: #####
###### CASE STUDY 1: GENDER INEQUALITY COVID PANDEMIC #####
output$render_tweet1_CS1<- renderUI(
{column(width = 8,
tagList(
tags$blockquote(class = "twitter-tweet",
tags$a(href = paste0("https://twitter.com/twitter/status/","1277897902111756288")))
,tags$script('twttr.widgets.load(document.getElementById("tweet"));')
)
)
}
)
output$render_tweet2_CS1<- renderUI(
{column(width = 8,
tagList(
tags$blockquote(class = "twitter-tweet",
tags$a(href = paste0("https://twitter.com/twitter/status/","1277836059657728001")))
,tags$script('twttr.widgets.load(document.getElementById("tweet"));')
)
)
}
)
output$render_tweet3_CS1<- renderUI(
{column(width = 8,
tagList(
tags$blockquote(class = "twitter-tweet",
tags$a(href = paste0("https://twitter.com/twitter/status/","1268163038760316930")))
,tags$script('twttr.widgets.load(document.getElementById("tweet"));')
)
)
}
)
output$render_tweet4_CS1<- renderUI(
{column(width = 8,
tagList(
tags$blockquote(class = "twitter-tweet",
tags$a(href = paste0("https://twitter.com/twitter/status/","1288195203581513728")))
,tags$script('twttr.widgets.load(document.getElementById("tweet"));')
)
)
}
)
output$render_tweet5_CS1<- renderUI(
{column(width = 8,
tagList(
tags$blockquote(class = "twitter-tweet",
tags$a(href = paste0("https://twitter.com/twitter/status/","1280150779882606593")))
,tags$script('twttr.widgets.load(document.getElementById("tweet"));')
)
)
}
)
output$render_tweet6_CS1<- renderUI(
{column(width = 8,
tagList(
tags$blockquote(class = "twitter-tweet",
tags$a(href = paste0("https://twitter.com/twitter/status/","1276467918855901184")))
,tags$script('twttr.widgets.load(document.getElementById("tweet"));')
)
)
}
)

###### CASE STUDY 2: #####
###### CASE STUDY 3: #####
###### CASE STUDY 4: #####
Expand Down
58 changes: 44 additions & 14 deletions R/app_ui.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -572,8 +572,8 @@ Additionally, web observatories can be used by researchers, citizens, businesses
fluidRow(column(
width = 12,
tabBox(
ribbon(text = "2022",
color = "pink"),
# ribbon(text = "2022",
# color = "pink"),
title = "Case studies",
elevation = 2,
id = "tabcard1",
Expand All @@ -584,24 +584,54 @@ Additionally, web observatories can be used by researchers, citizens, businesses
type = "tabs",
status = "primary",
selected = "Gender Inequality during the COVID pandemic",
##### Gender Inequality #####
tabPanel(
"Gender Inequality during the COVID pandemic",
HTML(
"The COVID-19 pandemic has had a significant impact on gender inequality. The pandemic has disproportionately affected women, both in terms of their health and their economic well-being.<br>One of the main ways in which the pandemic has affected gender inequality is through their income and work: Women have been disproportionately affected by job losses and reduced working hours, as they are more likely to work in service sectors that have been hit hard by the pandemic, such as retail and hospitality. Additionally, in many countries women are also more likely to work in insecure, and informal work, which makes them more vulnerable to the economic impacts of the crisis.<br>Another way in which the pandemic has affected gender inequality is through the increased burden of care work. The closure of schools and other care facilities has meant that many women have had to take on additional responsibilities for the care of children and other dependents. This has made it harder for women and has also led to increased stress and fatigue.<br>The pandemic has also highlighted existing inequalities in healthcare. Women, especially those belonging to marginalized communities, have been disproportionately affected by the pandemic, both in terms of their health and access to healthcare..."
fluidRow(
column(width = 3,
HTML(
"<h3>Gender Inequality during the COVID pandemic</h3>"),
HTML(
"<br>The COVID-19 pandemic has had a significant impact on gender inequality, disproportionately affecting women, both in terms of health and economic well-being.<br><br>One of the main ways in which the pandemic has affected gender inequality is through their income and work: Women have been disproportionately affected by job losses and reduced working hours, as they are more likely to work in service sectors that have been hit hard by the pandemic, such as retail and hospitality. Additionally, in many countries women are also more likely to work in insecure, and informal work, which makes them more vulnerable to the economic impacts of the crisis.<br>Another way in which the pandemic has affected gender inequality is through the increased burden of care work. The closure of schools and other care facilities has meant that many women have had to take on additional responsibilities for the care of children and other dependents. This has made it harder for women and has also led to increased stress and fatigue.<br><br>The pandemic has also highlighted existing inequalities in healthcare. Women, especially those belonging to marginalized communities, have been disproportionately affected by the pandemic, both in terms of their health and access to healthcare.<br><br>"
),

),
column(width = 9
,htmlOutput("html_2")

)
,
htmlOutput("html_2")
),
tabPanel("Climate change & inequality",
HTML("....")),
tabPanel(
"Racial Inequality after the murder of George Floyd",
HTML("....")
bs4Dash::box(
title = "Sample of Tweets about Gender inequality during the pandemic",
width = 12,collapsed = F,
HTML("<i>Gray square: posts from accounts that don't exist any more or posts that are hidden for privacy and GDPR compliance; Not found: posts that have been deleted by their author</i>"),
div(
fluidRow(
uiOutput("render_tweet1_CS1"),
uiOutput("render_tweet2_CS1"),
uiOutput("render_tweet3_CS1"),
# uiOutput("render_tweet4_CS1"),
uiOutput("render_tweet5_CS1"),
uiOutput("render_tweet6_CS1")
)
)),
fluidRow(HTML("
Report by the European Institute for Gender Equality:<br><br>
<i>-Gender equality and the socio-economic impact of the COVID-19 pandemic</i>"),
tags$iframe(style="height:600px; width:100%", src="www/report-ineq.pdf")

),
tabPanel("Education Inequality in the digital age",
HTML("...."))
htmlOutput("html_3")
# ,tabPanel("Climate change & inequality",
# HTML("....")),
# tabPanel(
# "Racial Inequality after the murder of George Floyd",
# HTML("....")
# ),
# tabPanel("Education Inequality in the digital age",
# HTML("...."))
)
))),
)))),
###### Body item 5: methods & refs. ####
tabItem(tabName = "methods",
fluidRow(sortable(width = 12,
Expand Down
Binary file modified inst/.DS_Store
View file
Binary file not shown.
Binary file modified inst/app/.DS_Store
View file
Binary file not shown.
19 changes: 19 additions & 0 deletions inst/app/www/COVID_genderinequality.html
View file

Large diffs are not rendered by default.

0 inst/app/www/gender_inequality.html → inst/extdata/gender_inequality.html
View file
File renamed without changes.

0 comments on commit 4c41414

Please sign in to comment.