R/fct_infotexts.R

In AnneOkk/Feedback_reports_golem: Feedback Reports

#' infotexts 
#'
#' @description A fct function
#'
#' @return The return value, if any, from executing the function.
#'
#' @noRd


age_text <- tags$div("Research published in the",
                     tags$a(href = "https://hbr.org/2018/07/research-the-average-age-of-a-successful-startup-founder-is-45#",
                            "Harvard Business Review (2018)"),
                     "shows that the average age at which a successful founder started their company is 45.")


gender_text <- tags$div("According to data of the",
                        tags$a(href = "https://blogs.worldbank.org/opendata/women-entrepreneurs-needed-stat",
                               "Gender Data Portal of the World Bank Group,"),
                        "1 in 3 businesses are owned by a woman.")