From 4c41414de75b68577be58cfdc9300e21ae11f5c6 Mon Sep 17 00:00:00 2001 From: "Carlo R. M. A. Santagiustina" Date: Tue, 21 Nov 2023 01:59:34 +0100 Subject: [PATCH] updated case study --- .DS_Store | Bin 10244 -> 10244 bytes R/app_server.R | 82 +++++++++++++++++- R/app_ui.R | 58 ++++++++++--- inst/.DS_Store | Bin 6148 -> 6148 bytes inst/app/.DS_Store | Bin 8196 -> 8196 bytes inst/app/www/COVID_genderinequality.html | 19 ++++ .../www => extdata}/gender_inequality.html | 0 7 files changed, 143 insertions(+), 16 deletions(-) create mode 100644 inst/app/www/COVID_genderinequality.html rename inst/{app/www => extdata}/gender_inequality.html (100%) diff --git a/.DS_Store b/.DS_Store index 02f6972e3b4df476164d6e9aa9c8e177b8c0483d..2d9da6492b667363373528289acdfa97c9c293f9 100644 GIT binary patch delta 50 zcmZn(XbIS`SD1186(YUdo7ok9v26Y?!psZ+1;h-^ diff --git a/R/app_server.R b/R/app_server.R index 88f5500..7819120 100644 --- a/R/app_server.R +++ b/R/app_server.R @@ -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 #### @@ -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: ##### diff --git a/R/app_ui.R b/R/app_ui.R index b48ff1e..0806bc4 100644 --- a/R/app_ui.R +++ b/R/app_ui.R @@ -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", @@ -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.
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.
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.
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( + "

Gender Inequality during the COVID pandemic

"), + HTML( + "
The COVID-19 pandemic has had a significant impact on gender inequality, disproportionately affecting women, both in terms of health and economic well-being.

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.
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.

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.

" + ), + + ), + 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("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"), + 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:

+ -Gender equality and the socio-economic impact of the COVID-19 pandemic"), + 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, diff --git a/inst/.DS_Store b/inst/.DS_Store index dcaba924ddfaba6c24007326debf4e40ef0c3d1a..f7661f5b20adc90d54ea5988348de3afc4fc888a 100644 GIT binary patch delta 88 zcmZoMXfc?O$hmKrOk#}NCo3@(a*9`1n;YpUm>Eo-$0WnpIe9meJY(17 T+e~iwmKrOk#{XCo3=)a!XcMTbP>ZC>R=;OrFCe!`MA}CzCv5 p&*Ym-Zj3uXD!3%7s|^h-brj4D!3w&-3c5F6XVzue%+B$b9{>gb8>RpN diff --git a/inst/app/.DS_Store b/inst/app/.DS_Store index c73abadb21e6cb30ea3eb91ee0dd6bec7270fe3d..ee3dfcbfeabedd22bf860468bbf66cc9b7686de9 100644 GIT binary patch delta 65 zcmV-H0KWf(K!iY$VFR~faItZg2a$jcvj+$o2m!Z~A`o#27khg*GAtlAFq57T907@w XyAU4%inH4gEC;g%82ALU{}cxU(3}-Q delta 67 zcmV-J0KET%K!iY$VFS5haItZg2a$jcvj+$o2m!g1A`o#48GCy;H8w0DF)%cfoDduV Zi<7w!9|4TB*$^xTvj-UV1he}T2Ltti6|DdO diff --git a/inst/app/www/COVID_genderinequality.html b/inst/app/www/COVID_genderinequality.html new file mode 100644 index 0000000..913e194 --- /dev/null +++ b/inst/app/www/COVID_genderinequality.html @@ -0,0 +1,19 @@ + + + + + + + + + + + + +
+
+
+ + + + diff --git a/inst/app/www/gender_inequality.html b/inst/extdata/gender_inequality.html similarity index 100% rename from inst/app/www/gender_inequality.html rename to inst/extdata/gender_inequality.html