snakecase/ 0000755 0001762 0000144 00000000000 13472343233 012213 5 ustar ligges users snakecase/inst/ 0000755 0001762 0000144 00000000000 13472330271 013166 5 ustar ligges users snakecase/inst/doc/ 0000755 0001762 0000144 00000000000 13472330271 013733 5 ustar ligges users snakecase/inst/doc/introducing-the-snakecase-package.R 0000644 0001762 0000144 00000002204 13472330271 022503 0 ustar ligges users ## ----setup, include=FALSE------------------------------------------------
knitr::opts_chunk$set(echo = TRUE,
comment = "#>",
collapse = TRUE
)
## ------------------------------------------------------------------------
string <- c("lowerCamelCase", "ALL_CAPS", "IDontKNOWWhat_thisCASE_is")
## ------------------------------------------------------------------------
library(snakecase)
to_snake_case(string)
## ------------------------------------------------------------------------
to_mixed_case(string, sep_out = " ")
## ------------------------------------------------------------------------
to_snake_case(string, sep_out = ".")
to_snake_case(string, sep_out = "-")
## ------------------------------------------------------------------------
to_screaming_snake_case(string, sep_out = "=")
## ------------------------------------------------------------------------
to_upper_camel_case(string)
## ------------------------------------------------------------------------
library(magrittr)
to_any_case(c("SomeBAdInput", "someGoodInput")) %>% dput()
snakecase/inst/doc/caseconverters.Rmd 0000644 0001762 0000144 00000003052 13420607650 017426 0 ustar ligges users ---
title: "Case converters"
author: "Malte Grosser"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{Caseconverters}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
## Basic examples
Default case is snake case
```{r, collapse = TRUE}
library(snakecase)
to_any_case("veryComplicatedString")
```
Of course other cases are supported (`case`) and separators can be adjusted (`sep_out`)
```{r, collapse = TRUE}
to_any_case(names(iris), sep_in = "\\.", case = "upper_camel", sep_out = " ")
```
And you might want to remove special characters along the way
```{r, collapse = TRUE}
to_any_case("Doppelgänger is originally german",
transliterations = "german", case = "upper_camel")
```
All of the cases like: snake, lower_camel, upper_camel, all_caps, lower_upper, upper_lower, mixed and sentence are based on parsed case
```{r, collapse = TRUE}
to_any_case("THISIsHOW IAmPARSED!", case = "parsed")
```
Shortcut wrappers like `to_snake_case`, `to_lower_camel_case` etc. are available.
Be aware that automatic case conversion depends on the input string and it is recommended to verify the results. So you might want to pipe these into `dput()` and hardcode name changes instead of blindly trusting `to_any_case()`'s output:
```{r, collapse = TRUE}
dput(to_any_case(c("SomeBAdInput", "someGoodInput")))
```
If you are interested in the design of this package, you can find more information on its [github page](https://github.com/Tazinho/snakecase). snakecase/inst/doc/introducing-the-snakecase-package.Rmd 0000644 0001762 0000144 00000006604 13471335326 023041 0 ustar ligges users ---
title: "Introducing the snakecase package"
author: "Malte Grosser"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{Introducing the snakecase package}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,
comment = "#>",
collapse = TRUE
)
```
There are many style guides out there which recommend specific naming conventions for programming languages. At 2017’s useR conference Rasmus Bååth showed quite impressively the variety of cases which even exist within base R in his talk ["The current state of naming conventions in R"](https://www.youtube.com/watch?v=Pv5dfsHBBKE).
However, consistent style is not only about naming new objects.
## Import
When you do a data analysis, most of the data already exists and you import it from disk, an API or a database. Here is the first moment in your data analysis when you have to decide if you want to rename your data or leave it as it is.
Let’s say you have some data named in any of the following conventions
```{r}
string <- c("lowerCamelCase", "ALL_CAPS", "IDontKNOWWhat_thisCASE_is")
```
You can now easily convert this string for example to snake case via
```{r}
library(snakecase)
to_snake_case(string)
```
## Graphics
Whenever you want to construct a graphic and you don’t like your conventions to come up in it, you can easily convert strings to a more humanly readable output like
```{r}
to_mixed_case(string, sep_out = " ")
```
You might have noticed the `sep_out` argument. This allows you to combine any case with any output separator to create other well known cases like
```{r}
to_snake_case(string, sep_out = ".")
to_snake_case(string, sep_out = "-")
```
or completely new ones like
```{r}
to_screaming_snake_case(string, sep_out = "=")
```
## Export
Finally, when you are done with your analysis and want to write data back into a .CSV file or your customers database, which has a camel case convention, you can just use
```{r}
to_upper_camel_case(string)
```
## Further information
The snakecase package goes quite deep into the little quirks which arise in automatic case conversion. However, it is well tweaked, to handle almost every edge case in an intuitive and elegant manner.
To get a complete overview of its functionality like other cases, handling of abbreviations, special input characters, different parsing options, transliterations and more, I recommend you to have a look into the quite extensive [readme on its github repository](https://github.com/Tazinho/snakecase).
As the package is relatively small and basically consists of its workhorse function `to_any_case()`, I can also react quite fast on new [issues](https://github.com/Tazinho/snakecase/issues).
And of course I [tweet](https://twitter.com/malte_grosser) occasionally about new functionality.
To round this up let me give you one advice about best practices: be aware that automatic case conversion depends on the input string and it is recommended to verify the results. Hence you might want to pipe them into `dput()` and hard-code name changes instead of blindly trusting the output
```{r}
library(magrittr)
to_any_case(c("SomeBAdInput", "someGoodInput")) %>% dput()
```
Happy snakecasing everyone ;) snakecase/inst/doc/caseconverters.R 0000644 0001762 0000144 00000001365 13472330270 017110 0 ustar ligges users ## ---- collapse = TRUE----------------------------------------------------
library(snakecase)
to_any_case("veryComplicatedString")
## ---- collapse = TRUE----------------------------------------------------
to_any_case(names(iris), sep_in = "\\.", case = "upper_camel", sep_out = " ")
## ---- collapse = TRUE----------------------------------------------------
to_any_case("Doppelgänger is originally german",
transliterations = "german", case = "upper_camel")
## ---- collapse = TRUE----------------------------------------------------
to_any_case("THISIsHOW IAmPARSED!", case = "parsed")
## ---- collapse = TRUE----------------------------------------------------
dput(to_any_case(c("SomeBAdInput", "someGoodInput")))
snakecase/inst/doc/caseconverters.html 0000644 0001762 0000144 00000027232 13472330270 017654 0 ustar ligges users
Case converters
Case converters
Malte Grosser
2019-05-25
Basic examples
Default case is snake case
Of course other cases are supported (case) and separators can be adjusted (sep_out)
And you might want to remove special characters along the way
All of the cases like: snake, lower_camel, upper_camel, all_caps, lower_upper, upper_lower, mixed and sentence are based on parsed case
Shortcut wrappers like to_snake_case, to_lower_camel_case etc. are available.
Be aware that automatic case conversion depends on the input string and it is recommended to verify the results. So you might want to pipe these into dput() and hardcode name changes instead of blindly trusting to_any_case()’s output:
If you are interested in the design of this package, you can find more information on its github page.
snakecase/inst/doc/introducing-the-snakecase-package.html 0000644 0001762 0000144 00000035743 13472330271 023264 0 ustar ligges users
Introducing the snakecase package
Introducing the snakecase package
Malte Grosser
2019-05-25
There are many style guides out there which recommend specific naming conventions for programming languages. At 2017’s useR conference Rasmus Bååth showed quite impressively the variety of cases which even exist within base R in his talk “The current state of naming conventions in R”.
However, consistent style is not only about naming new objects.
Import
When you do a data analysis, most of the data already exists and you import it from disk, an API or a database. Here is the first moment in your data analysis when you have to decide if you want to rename your data or leave it as it is.
Let’s say you have some data named in any of the following conventions
You can now easily convert this string for example to snake case via
Graphics
Whenever you want to construct a graphic and you don’t like your conventions to come up in it, you can easily convert strings to a more humanly readable output like
You might have noticed the sep_out argument. This allows you to combine any case with any output separator to create other well known cases like
or completely new ones like
Export
Finally, when you are done with your analysis and want to write data back into a .CSV file or your customers database, which has a camel case convention, you can just use
snakecase/tests/ 0000755 0001762 0000144 00000000000 13420607650 013354 5 ustar ligges users snakecase/tests/testthat.R 0000644 0001762 0000144 00000000131 13420607650 015332 0 ustar ligges users library("testthat")
library("tibble")
library("snakecase")
test_check("snakecase") snakecase/tests/testthat/ 0000755 0001762 0000144 00000000000 13472343233 015215 5 ustar ligges users snakecase/tests/testthat/test-to_title_case.R 0000644 0001762 0000144 00000000742 13467512544 021145 0 ustar ligges users context("to_title_case")
test_that("title case", {
expect_equal(
to_title_case(c("on_andOn", "AndON", " and on", "and so on", "seems like it works", "also abbreviations ETC"), abbreviations = "ETC"),
c("On and on", "And on", "And on", "And so on", "Seems Like it Works", "Also Abbreviations ETC")
)
})
test_that("title case and abbreviations", {
expect_equal(
to_title_case("so sieht es aus", abbreviations = "ES"),
"So Sieht ES Aus"
)
}) snakecase/tests/testthat/test-to_parsed_case_internal.R 0000644 0001762 0000144 00000001476 13472126201 023166 0 ustar ligges users context("to_parsed_case_internal")
test_that("condition 6", {
expect_error(to_parsed_case_internal("bla", parsing_option = 7),
"parsing_option must be between -4 and +4.", fixed = TRUE)}
)
test_that("parsing_option -1", {
expect_equal(to_parsed_case_internal("look_AfterThe-hyphen andThe.dot", parsing_option = -1, numerals = "asis", abbreviations = NULL, sep_in = NULL),
"look_After_The-hyphen and_The.dot")}
)
test_that("all", {
expect_equal(to_parsed_case_internal(string = "bla", numerals = "asis", parsing_option = 2, sep = "_", abbreviations = NULL),
"bla")
}
)
test_that("split", {
expect_equal(to_parsed_case_internal("bla_ lbla", abbreviations = NULL, sep_in =NULL, numerals = "middle")
,
"bla_ _lbla")
}
) snakecase/tests/testthat/test-to_lower_camel_case.R 0000644 0001762 0000144 00000002367 13472123712 022311 0 ustar ligges users context("to_lower_camel_case")
test_that("examples", {
expect_equal(to_lower_camel_case(cases[["examples"]]),
cases[["small_camel_case"]])}
)
test_that("rules",{
examples <- cases[["examples"]]
expect_equal(to_lower_camel_case(to_snake_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_lower_camel_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_upper_camel_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_screaming_snake_case(examples)),
to_lower_camel_case(examples)
)
expect_equal(to_lower_camel_case(to_parsed_case(examples)),
to_lower_camel_case(examples)
)
})
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_lower_camel_case(labs),
structure(c("abcDef", "bbccEe", "teEStIt"), .Names = c("a", "b",
"c"))
)
})
test_that("abbreviations", {
expect_equal(to_lower_camel_case("t2d_status", abbreviations = "t2d"),
"t2dStatus")
}) snakecase/tests/testthat/test-to_screaming_snake_case.R 0000644 0001762 0000144 00000002242 13420607650 023142 0 ustar ligges users context("to_screaming_snake_case")
test_that("examples", {
expect_equal(to_screaming_snake_case(cases[["examples"]]),
cases[["screaming_snake_case"]])}
)
test_that("rules",{
examples <- cases[["examples"]]
expect_equal(to_screaming_snake_case(to_snake_case(examples)),
to_screaming_snake_case(examples)
)
expect_equal(to_screaming_snake_case(to_lower_camel_case(examples)),
to_screaming_snake_case(examples)
)
expect_equal(to_screaming_snake_case(to_upper_camel_case(examples)),
to_screaming_snake_case(examples)
)
expect_equal(to_screaming_snake_case(to_screaming_snake_case(examples)),
to_screaming_snake_case(examples)
)
expect_equal(to_screaming_snake_case(to_parsed_case(examples)),
to_screaming_snake_case(examples)
)
})
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_screaming_snake_case(labs),
structure(c("ABC_DEF", "BBCC_EE", "TE_E_ST_IT"), .Names = c("a",
"b", "c"))
)
}) snakecase/tests/testthat/test-to_any_case.R 0000644 0001762 0000144 00000160534 13472265400 020611 0 ustar ligges users context("to_any_case")
test_that("examples", {
examples <- cases[["examples"]]
expect_equal(to_any_case(examples, case = "snake"),
cases[["snake_case"]])
expect_equal(to_any_case(examples, case = "small_camel"),
cases[["small_camel_case"]])
expect_equal(to_any_case(examples, case = "big_camel"),
cases[["big_camel_case"]])
expect_equal(to_any_case(examples, case = "screaming_snake"),
cases[["screaming_snake_case"]])
expect_equal(to_any_case(examples, case = "parsed"),
cases[["parsed_case"]])
expect_equal(to_any_case("R.Studio", case = "big_camel", sep_out = "-"),
"R-Studio")
expect_equal(to_any_case("HAMBURGcity", case = "parsed", parsing_option = 0),
"HAMBURGcity")
expect_equal(to_any_case(c("RSSfeedRSSfeed", "USPassport", "USpassport"), abbreviations = c("RSS", "US")),
c("rss_feed_rss_feed", "us_passport", "us_passport"))
expect_equal(to_any_case("NBAGame", abbreviations = "NBA", case = "parsed"),
"NBA_Game")
expect_equal(to_any_case("NBAGame", abbreviations = "NBA", case = "mixed"),
"NBA_Game")
expect_equal(to_any_case("NBAGame", abbreviations = "NBA", case = "snake"),
"nba_game")
expect_equal(to_any_case("NBAGame", abbreviations = "NBA", case = "screaming_snake"),
"NBA_GAME")
expect_equal(to_any_case("NBAGame", abbreviations = "NBA", case = "internal_parsing"),
"NBA_Game")
expect_equal(to_any_case("NBAGame", abbreviations = "NBA", case = "upper_camel"),
"NBAGame")
expect_equal(to_any_case("nba_game", abbreviations = "NBA", case = "lower_camel"),
"nbaGame")
expect_equal(to_any_case("NBA_game", abbreviations = "NBA", case = "upper_camel"),
"NBAGame")
expect_equal(to_any_case("nba_game", abbreviations = "NBA", case = "upper_camel"),
"NBAGame")
expect_equal(to_any_case("NBA_game_NBA", abbreviations = "NBA", case = "lower_camel"),
"nbaGameNBA")
expect_equal(to_any_case("NBA_game_NBA", abbreviations = "NBA", case = "lower_upper"),
"nbaGAMEnba")
expect_equal(to_any_case("NBA_game", abbreviations = "NBA", case = "mixed"),
"NBA_game")
expect_equal(to_any_case("NBA_game_NBA", abbreviations = "NBA", case = "mixed"),
"NBA_game_NBA")
expect_equal(to_snake_case(c("NBAGame", "NBAgame"), abbreviations = "NBA"),
c("nba_game", "nba_game"))
expect_equal(to_upper_camel_case(c("nba_game", "nba_game"), abbreviations = "NBA"),
c("NBAGame", "NBAGame"))
}
)
test_that("numerals_tight",
{
expect_equal(to_any_case("bla_la_123_123_1_bla", numerals = "tight"),
"bla_la123_123_1bla")
})
test_that("attributes", {
expect_equal(
{strings <- c("this Is a Strange_string", "AND THIS ANOTHER_One");
names(strings) <- c("String A", "String B");
attr(strings, "test.attr") <- "test";
strings},
structure(c(`String A` = "this Is a Strange_string", `String B` = "AND THIS ANOTHER_One"),
test.attr = "test"))
}
)
test_that("numerals", {
expect_equal(to_any_case("123bla123bla_434bla"),
"123_bla_123_bla_434_bla")
expect_equal(to_any_case("123bla123bla_434bla",
numerals = "asis"),
"123bla123bla_434bla")
expect_equal(to_any_case("123bla123bla_434bla",
numerals = "left"),
"123_bla123_bla434_bla")
expect_equal(to_any_case("123bla123bla_434bla",
numerals = "right"),
"123bla_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla", numerals = "middle"),
"123_bla_123_123_bla_434_bla")
expect_equal(to_any_case("123bla123_123bla_434bla", numerals = "asis"),
"123bla123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla", numerals = "left"),
"123_bla123_123_bla434_bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
numerals = "right"),
"123bla_123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla", numerals = "right"),
"123bla_123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla", numerals = "right"),
"123bla_123_123bla_434bla")
expect_equal(to_upper_camel_case("123bla123_123bla_434bla"),
"123Bla123_123Bla434Bla")
expect_equal(to_any_case("123bla123_123bla_434bla", case = "upper_camel", numerals = "middle"),
"123Bla123_123Bla434Bla")
expect_equal(to_any_case("123bla123_123bla_434bla", case = "upper_camel", numerals = "asis"), "123Bla123_123Bla434Bla")
expect_equal(to_any_case("123bla123_123bla_434bla", case = "upper_camel", numerals = "left"),
"123Bla123_123Bla434Bla")
expect_equal(to_any_case("123bla123_123bla_434bla", case = "upper_camel", numerals = "right"),
"123Bla123_123Bla434Bla")
expect_equal(to_any_case("123bla123_123bla_434bla", case = "parsed", numerals = "middle"),
"123_bla_123_123_bla_434_bla")
expect_equal(to_any_case("123bla123_123bla_434bla", case = "parsed", numerals = "asis"),
"123bla123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla", case = "parsed", numerals = "left"),
"123_bla123_123_bla434_bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
case = "parsed",
numerals = "right"),
"123bla_123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
case = "none",
numerals = "middle"),
"123bla123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
case = "none",
numerals = "asis"),
"123bla123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
case = "none",
numerals = "left"),
"123bla123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
case = "none",
numerals = "right"),
"123bla123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
numerals = "middle"),
"123_bla_123_123_bla_434_bla")
expect_equal(to_any_case("123bla123_123bla_434bla", numerals = "asis"),
"123bla123_123bla_434bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
numerals = "left"),
"123_bla123_123_bla434_bla")
expect_equal(to_any_case("123bla123_123bla_434bla",
numerals = "right"),
"123bla_123_123bla_434bla")
expect_equal(to_any_case("species42value 23month",
numerals = "asis"),
"species42value_23month")
expect_equal(to_any_case(c("HHcity", "IDtable1", "KEYtable2", "newUSelections"),
parsing_option = 2,
numerals = "middle"),
c("hh_city", "id_table_1", "key_table_2", "new_us_elections"))
expect_equal(to_any_case(c("HHcity", "IDtable1", "KEYtable2", "newUSelections"),
parsing_option = 2,
numerals = "asis"),
c("hh_city","id_table1", "key_table2", "new_us_elections"))
expect_equal(to_any_case(c("HHcity", "IDtable1", "KEYtable2", "newUSelections"), parsing_option = 2, numerals = "left"),
c("hh_city", "id_table1", "key_table2","new_us_elections"))
expect_equal(to_any_case(c("HHcity", "IDtable1", "KEYtable2", "newUSelections"),
parsing_option = 2,
numerals = "right"),
c("hh_city", "id_table_1", "key_table_2",
"new_us_elections"))
})
test_that("preserve-names-attribute", {
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_any_case(labs, case = "snake"),
structure(c("abc_def", "bbcc_ee", "te_e_st_it"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "upper_camel"),
structure(c("AbcDef", "BbccEe", "TeEStIt"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "lower_camel"),
structure(c("abcDef", "bbccEe", "teEStIt"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "parsed"),
structure(c("abc_DEF", "bbcc_EE", "Te_E_St_it"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "mixed"),
structure(c("abc_Def", "bbcc_Ee", "Te_E_St_it"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "none", sep_in = NULL),
structure(c("abcDEF", "bbccEE", "TeESt it"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "all_caps"),
structure(c("ABC_DEF", "BBCC_EE", "TE_E_ST_IT"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "upper_lower"),
structure(c("ABCdef", "BBCCee", "TEeSTit"), .Names = c("a", "b", "c"))
)
expect_equal(
to_any_case(labs, case = "lower_upper"),
structure(c("abcDEF", "bbccEE", "teEstIT"), .Names = c("a", "b", "c"))
)
})
test_that("uniqe_sep", {
expect_equal(
to_any_case(c("bla", "bla"), unique_sep = "_"),
c("bla", "bla_1")
)
expect_equal(
to_any_case(c("bla", "bla"), unique_sep = NULL),
c("bla", "bla")
)
})
test_that("sentence_case", {
expect_equal(
to_sentence_case("this_is_a_sentence", sep_out = " ", postfix = "."),
"This is a sentence.")
})
test_that("janitor-pkg-tests",{
skip_if_not( l10n_info()$`UTF-8`)
clean_names3 <- function(old_names, case = "snake"){
new_names <- gsub("'", "", old_names) # remove quotation marks
new_names <- gsub("\"", "", new_names) # remove quotation marks
new_names <- gsub("%", ".percent_", new_names)
new_names <- gsub("#", ".number_", new_names)
new_names <- gsub("^[[:space:][:punct:]]+", "", new_names)
new_names <- make.names(new_names)
new_names <- to_any_case(new_names, case = case, sep_in = "\\.",
transliterations = c("Latin-ASCII"), parsing_option = 1, numerals = "asis")
# Handle duplicated names - they mess up dplyr pipelines
# This appends the column number to repeated instances of duplicate variable names
dupe_count <- vapply(1:length(new_names), function(i) {
sum(new_names[i] == new_names[1:i]) }, integer(1))
new_names[dupe_count > 1] <- paste(new_names[dupe_count > 1],
dupe_count[dupe_count > 1],
sep = "_")
new_names
}
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143")),
c("sp_ace", "repeated", "a", "percent", "x", "x_2", "d_9", "repeated_2",
"cant", "hi_there", "leading_spaces", "x_3", "acao", "faroe",
"r_studio_v_1_0_143"))
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "parsed"),
c("sp_ace", "repeated", "a", "percent", "X", "X_2", "d_9", "REPEATED",
"cant", "hi_there", "leading_spaces", "X_3", "acao", "faroe",
"r_studio_v_1_0_143"))
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "screaming_snake"),
c("SP_ACE", "REPEATED", "A", "PERCENT", "X", "X_2", "D_9", "REPEATED_2",
"CANT", "HI_THERE", "LEADING_SPACES", "X_3", "ACAO", "FAROE",
"R_STUDIO_V_1_0_143")
)
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "small_camel"),
c("spAce", "repeated", "a", "percent", "x", "x_2", "d9", "repeated_2",
"cant", "hiThere", "leadingSpaces", "x_3", "acao", "faroe", "rStudioV1_0_143"
)
)
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "big_camel"),
c("SpAce", "Repeated", "A", "Percent", "X", "X_2", "D9", "Repeated_2",
"Cant", "HiThere", "LeadingSpaces", "X_3", "Acao", "Faroe", "RStudioV1_0_143"
)
)
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "lower_upper"),
c("spACE", "repeated", "a", "percent", "x", "x_2", "d9", "repeated_2",
"cant", "hiTHERE", "leadingSPACES", "x_3", "acao", "faroe", "rSTUDIOv1_0_143"
)
)
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "upper_lower"),
c("SPace", "REPEATED", "A", "PERCENT", "X", "X_2", "D9", "REPEATED_2",
"CANT", "HIthere", "LEADINGspaces", "X_3", "ACAO", "FAROE", "RstudioV1_0_143"
)
)
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "mixed"),
c("sp_ace", "repeated", "a", "percent", "X", "X_2", "d_9", "Repeated",
"cant", "hi_there", "leading_spaces", "X_3", "acao", "faroe",
"r_studio_v_1_0_143")
)
expect_equal(clean_names3(c("sp ace", "repeated", "a**^@", "%", "*",
"!", "d(!)9", "REPEATED", "can\"'t", "hi_`there`",
" leading spaces", "\u20AC", "a\u00E7\u00E3o", "far\u0153", "r.st\u00FCdio:v.1.0.143"),
case = "none"),
c("sp_ace", "repeated", "a", "percent",
"X", "X_2", "d_9", "REPEATED",
"cant", "hi_there", "leading_spaces", "X_3",
"acao", "faroe", "r_studio_v_1_0_143")
)
})
# test_that("rules",{
# examples <- cases[["examples"]]
#
# expect_equal(to_snake_case(to_snake_case(examples)),
# to_snake_case(examples)
# )
# expect_equal(to_snake_case(to_small_camel_case(examples)),
# to_snake_case(examples)
# )
# expect_equal(to_snake_case(to_big_camel_case(examples)),
# to_snake_case(examples)
# )
# expect_equal(to_snake_case(to_screaming_snake_case(examples)),
# to_snake_case(examples)
# )
# })
test_that("random examples",
expect_equal(to_any_case("string123", case = "snake"),
"string_123"))
# test_that("deprecated",
# expect_warning(to_any_case("bla", protect = "_"),
# "argument protect is deprecated; If you really need this argument, pls submit an issue on https://github.com/Tazinho/snakecase")
# )
test_that("transliterations", {
skip_if_not( l10n_info()$`UTF-8`)
expect_equal(to_any_case("Älterer Herr", transliterations = c("german", "Herr" = "Mann")), "aelterer_mann")
expect_equal(
to_any_case("Älterer Herr", transliterations = c( "Herr" = "Mann", "german")),
"aelterer_mann")
})
test_that("transliterations_error",
expect_error(to_any_case("bla", transliterations = "bla"),
"Input to `transliterations` must be `NULL`, a string containing elements from the internal lookup dictionaries or from `stringi::stri_trans_list()` or a named vector.",
fixed = TRUE))
test_that("empty_fill",
expect_equal(to_any_case("", empty_fill = "bla"),
"bla"))
test_that("sentence",
expect_equal(to_any_case("bla bla_bal", case = "sentence"),
"Bla bla bal"))
test_that("flip and swap", {
expect_equal(to_any_case("rSTUDIO", case = "flip"), "Rstudio")
expect_equal(to_any_case("rSTUDIO", case = "swap"), "Rstudio")
})
test_that("complex strings", {
skip_if_not( l10n_info()$`UTF-8`)
strings2 <- c("this - Is_-: a Strange_string", "\u00C4ND THIS ANOTHER_One")
expect_equal(to_any_case(strings2, case = "snake", sep_in = "-|\\:"),
c("this_is_a_strange_string", "\u00E4nd_this_another_one"))
expect_equal(to_any_case("MERKWUERDIGER-VariablenNAME mit.VIELENMustern_version: 3.7.4",
case = "snake",
sep_in = "-|:|(?% dput
c(NA, "", "s_na_k_er", "SNAKE_SNAKE_CASE", "snake_Snak_E_Case",
"SNAKE_snak_E_case", "ss_R_Rss", "ss_RRRR", "this_Is_Some_Camel_Case",
"this.text", "final_count", "Bob_Dylan_USA", "Mikhail_Gorbachev_USSR",
"Helpful_Stack_Overflow_People", "Im_A_Tall_Drink_Of_Water",
"ICU_Days", "Sex_Code", "MAX_of_MLD", "Age.Group", NA, "",
"s_na_k_er", "snake_snake_case", "snake_snak_e_case", "snake_snak_e_case",
"ss_r_rss", "ss_rrrr", "this_is_some_camel_case", "this.text",
"final_count", "bob_dylan_usa", "mikhail_gorbachev_ussr", "helpful_stack_overflow_people",
"im_a_tall_drink_of_water", "icu_days", "sex_code", "max_of_mld",
"age.group", NA, "", "sNaKEr", "snakeSnakeCase", "snakeSnakECase",
"snakeSnakECase", "ssRRss", "ssRrrr", "thisIsSomeCamelCase",
"this.Text", "finalCount", "bobDylanUsa", "mikhailGorbachevUssr",
"helpfulStackOverflowPeople", "imATallDrinkOfWater", "icuDays",
"sexCode", "maxOfMld", "age.Group", NA, "", "SNaKEr", "SnakeSnakeCase",
"SnakeSnakECase", "SnakeSnakECase", "SsRRss", "SsRrrr", "ThisIsSomeCamelCase",
"This.Text", "FinalCount", "BobDylanUsa", "MikhailGorbachevUssr",
"HelpfulStackOverflowPeople", "ImATallDrinkOfWater", "IcuDays",
"SexCode", "MaxOfMld", "Age.Group", NA, "", "S_NA_K_ER", "SNAKE_SNAKE_CASE",
"SNAKE_SNAK_E_CASE", "SNAKE_SNAK_E_CASE", "SS_R_RSS", "SS_RRRR",
"THIS_IS_SOME_CAMEL_CASE", "THIS.TEXT", "FINAL_COUNT", "BOB_DYLAN_USA",
"MIKHAIL_GORBACHEV_USSR", "HELPFUL_STACK_OVERFLOW_PEOPLE", "IM_A_TALL_DRINK_OF_WATER",
"ICU_DAYS", "SEX_CODE", "MAX_OF_MLD", "AGE.GROUP", NA, ".end",
"s_na_k_er.end", "SNAKE_SNAKE_CASE.end", "snake_Snak_E_Case.end",
"SNAKE_snak_E_case.end", "ss_R_Rss.end", "ss_RRRR.end", "this_Is_Some_Camel_Case.end",
"this.text.end", "final_count.end", "Bob_Dylan_USA.end", "Mikhail_Gorbachev_USSR.end",
"Helpful_Stack_Overflow_People.end", "Im_A_Tall_Drink_Of_Water.end",
"ICU_Days.end", "Sex_Code.end", "MAX_of_MLD.end", "Age.Group.end",
NA, ".end", "s_na_k_er.end", "snake_snake_case.end", "snake_snak_e_case.end",
"snake_snak_e_case.end", "ss_r_rss.end", "ss_rrrr.end", "this_is_some_camel_case.end",
"this.text.end", "final_count.end", "bob_dylan_usa.end", "mikhail_gorbachev_ussr.end",
"helpful_stack_overflow_people.end", "im_a_tall_drink_of_water.end",
"icu_days.end", "sex_code.end", "max_of_mld.end", "age.group.end",
NA, ".end", "sNaKEr.end", "snakeSnakeCase.end", "snakeSnakECase.end",
"snakeSnakECase.end", "ssRRss.end", "ssRrrr.end", "thisIsSomeCamelCase.end",
"this.Text.end", "finalCount.end", "bobDylanUsa.end", "mikhailGorbachevUssr.end",
"helpfulStackOverflowPeople.end", "imATallDrinkOfWater.end",
"icuDays.end", "sexCode.end", "maxOfMld.end", "age.Group.end",
NA, ".end", "SNaKEr.end", "SnakeSnakeCase.end", "SnakeSnakECase.end",
"SnakeSnakECase.end", "SsRRss.end", "SsRrrr.end", "ThisIsSomeCamelCase.end",
"This.Text.end", "FinalCount.end", "BobDylanUsa.end", "MikhailGorbachevUssr.end",
"HelpfulStackOverflowPeople.end", "ImATallDrinkOfWater.end",
"IcuDays.end", "SexCode.end", "MaxOfMld.end", "Age.Group.end",
NA, ".end", "S_NA_K_ER.end", "SNAKE_SNAKE_CASE.end", "SNAKE_SNAK_E_CASE.end",
"SNAKE_SNAK_E_CASE.end", "SS_R_RSS.end", "SS_RRRR.end", "THIS_IS_SOME_CAMEL_CASE.end",
"THIS.TEXT.end", "FINAL_COUNT.end", "BOB_DYLAN_USA.end", "MIKHAIL_GORBACHEV_USSR.end",
"HELPFUL_STACK_OVERFLOW_PEOPLE.end", "IM_A_TALL_DRINK_OF_WATER.end",
"ICU_DAYS.end", "SEX_CODE.end", "MAX_OF_MLD.end", "AGE.GROUP.end",
NA, "start.", "start.s_na_k_er", "start.SNAKE_SNAKE_CASE", "start.snake_Snak_E_Case",
"start.SNAKE_snak_E_case", "start.ss_R_Rss", "start.ss_RRRR",
"start.this_Is_Some_Camel_Case", "start.this.text", "start.final_count",
"start.Bob_Dylan_USA", "start.Mikhail_Gorbachev_USSR", "start.Helpful_Stack_Overflow_People",
"start.Im_A_Tall_Drink_Of_Water", "start.ICU_Days", "start.Sex_Code",
"start.MAX_of_MLD", "start.Age.Group", NA, "start.", "start.s_na_k_er",
"start.snake_snake_case", "start.snake_snak_e_case", "start.snake_snak_e_case",
"start.ss_r_rss", "start.ss_rrrr", "start.this_is_some_camel_case",
"start.this.text", "start.final_count", "start.bob_dylan_usa",
"start.mikhail_gorbachev_ussr", "start.helpful_stack_overflow_people",
"start.im_a_tall_drink_of_water", "start.icu_days", "start.sex_code",
"start.max_of_mld", "start.age.group", NA, "start.", "start.sNaKEr",
"start.snakeSnakeCase", "start.snakeSnakECase", "start.snakeSnakECase",
"start.ssRRss", "start.ssRrrr", "start.thisIsSomeCamelCase",
"start.this.Text", "start.finalCount", "start.bobDylanUsa", "start.mikhailGorbachevUssr",
"start.helpfulStackOverflowPeople", "start.imATallDrinkOfWater",
"start.icuDays", "start.sexCode", "start.maxOfMld", "start.age.Group",
NA, "start.", "start.SNaKEr", "start.SnakeSnakeCase", "start.SnakeSnakECase",
"start.SnakeSnakECase", "start.SsRRss", "start.SsRrrr", "start.ThisIsSomeCamelCase",
"start.This.Text", "start.FinalCount", "start.BobDylanUsa", "start.MikhailGorbachevUssr",
"start.HelpfulStackOverflowPeople", "start.ImATallDrinkOfWater",
"start.IcuDays", "start.SexCode", "start.MaxOfMld", "start.Age.Group",
NA, "start.", "start.S_NA_K_ER", "start.SNAKE_SNAKE_CASE", "start.SNAKE_SNAK_E_CASE",
"start.SNAKE_SNAK_E_CASE", "start.SS_R_RSS", "start.SS_RRRR",
"start.THIS_IS_SOME_CAMEL_CASE", "start.THIS.TEXT", "start.FINAL_COUNT",
"start.BOB_DYLAN_USA", "start.MIKHAIL_GORBACHEV_USSR", "start.HELPFUL_STACK_OVERFLOW_PEOPLE",
"start.IM_A_TALL_DRINK_OF_WATER", "start.ICU_DAYS", "start.SEX_CODE",
"start.MAX_OF_MLD", "start.AGE.GROUP", NA, "start..end", "start.s_na_k_er.end",
"start.SNAKE_SNAKE_CASE.end", "start.snake_Snak_E_Case.end",
"start.SNAKE_snak_E_case.end", "start.ss_R_Rss.end", "start.ss_RRRR.end",
"start.this_Is_Some_Camel_Case.end", "start.this.text.end",
"start.final_count.end", "start.Bob_Dylan_USA.end", "start.Mikhail_Gorbachev_USSR.end",
"start.Helpful_Stack_Overflow_People.end", "start.Im_A_Tall_Drink_Of_Water.end",
"start.ICU_Days.end", "start.Sex_Code.end", "start.MAX_of_MLD.end",
"start.Age.Group.end", NA, "start..end", "start.s_na_k_er.end",
"start.snake_snake_case.end", "start.snake_snak_e_case.end",
"start.snake_snak_e_case.end", "start.ss_r_rss.end", "start.ss_rrrr.end",
"start.this_is_some_camel_case.end", "start.this.text.end",
"start.final_count.end", "start.bob_dylan_usa.end", "start.mikhail_gorbachev_ussr.end",
"start.helpful_stack_overflow_people.end", "start.im_a_tall_drink_of_water.end",
"start.icu_days.end", "start.sex_code.end", "start.max_of_mld.end",
"start.age.group.end", NA, "start..end", "start.sNaKEr.end",
"start.snakeSnakeCase.end", "start.snakeSnakECase.end", "start.snakeSnakECase.end",
"start.ssRRss.end", "start.ssRrrr.end", "start.thisIsSomeCamelCase.end",
"start.this.Text.end", "start.finalCount.end", "start.bobDylanUsa.end",
"start.mikhailGorbachevUssr.end", "start.helpfulStackOverflowPeople.end",
"start.imATallDrinkOfWater.end", "start.icuDays.end", "start.sexCode.end",
"start.maxOfMld.end", "start.age.Group.end", NA, "start..end",
"start.SNaKEr.end", "start.SnakeSnakeCase.end", "start.SnakeSnakECase.end",
"start.SnakeSnakECase.end", "start.SsRRss.end", "start.SsRrrr.end",
"start.ThisIsSomeCamelCase.end", "start.This.Text.end", "start.FinalCount.end",
"start.BobDylanUsa.end", "start.MikhailGorbachevUssr.end", "start.HelpfulStackOverflowPeople.end",
"start.ImATallDrinkOfWater.end", "start.IcuDays.end", "start.SexCode.end",
"start.MaxOfMld.end", "start.Age.Group.end", NA, "start..end",
"start.S_NA_K_ER.end", "start.SNAKE_SNAKE_CASE.end", "start.SNAKE_SNAK_E_CASE.end",
"start.SNAKE_SNAK_E_CASE.end", "start.SS_R_RSS.end", "start.SS_RRRR.end",
"start.THIS_IS_SOME_CAMEL_CASE.end", "start.THIS.TEXT.end",
"start.FINAL_COUNT.end", "start.BOB_DYLAN_USA.end", "start.MIKHAIL_GORBACHEV_USSR.end",
"start.HELPFUL_STACK_OVERFLOW_PEOPLE.end", "start.IM_A_TALL_DRINK_OF_WATER.end",
"start.ICU_DAYS.end", "start.SEX_CODE.end", "start.MAX_OF_MLD.end",
"start.AGE.GROUP.end", NA, "", "s_na_k_er", "SNAKE_SNAKE_CASE",
"snake_Snak_E_Case", "SNAKE_snak_E_case", "ss_R_Rss", "ss_RRRR",
"this_Is_Some_Camel_Case", "this.text", "final_count", "Bob_Dylan_USA",
"Mikhail_Gorbachev_USSR", "Helpful_Stack_Overflow_People", "Im_A_Tall_Drink_Of_Water",
"ICU_Days", "Sex_Code", "MAX_of_MLD", "Age.Group", NA, "",
"s_na_k_er", "snake_snake_case", "snake_snak_e_case", "snake_snak_e_case",
"ss_r_rss", "ss_rrrr", "this_is_some_camel_case", "this.text",
"final_count", "bob_dylan_usa", "mikhail_gorbachev_ussr", "helpful_stack_overflow_people",
"im_a_tall_drink_of_water", "icu_days", "sex_code", "max_of_mld",
"age.group", NA, "", "sNaKEr", "snakeSnakeCase", "snakeSnakECase",
"snakeSnakECase", "ssRRss", "ssRrrr", "thisIsSomeCamelCase",
"this.Text", "finalCount", "bobDylanUsa", "mikhailGorbachevUssr",
"helpfulStackOverflowPeople", "imATallDrinkOfWater", "icuDays",
"sexCode", "maxOfMld", "age.Group", NA, "", "SNaKEr", "SnakeSnakeCase",
"SnakeSnakECase", "SnakeSnakECase", "SsRRss", "SsRrrr", "ThisIsSomeCamelCase",
"This.Text", "FinalCount", "BobDylanUsa", "MikhailGorbachevUssr",
"HelpfulStackOverflowPeople", "ImATallDrinkOfWater", "IcuDays",
"SexCode", "MaxOfMld", "Age.Group", NA, "", "S_NA_K_ER", "SNAKE_SNAKE_CASE",
"SNAKE_SNAK_E_CASE", "SNAKE_SNAK_E_CASE", "SS_R_RSS", "SS_RRRR",
"THIS_IS_SOME_CAMEL_CASE", "THIS.TEXT", "FINAL_COUNT", "BOB_DYLAN_USA",
"MIKHAIL_GORBACHEV_USSR", "HELPFUL_STACK_OVERFLOW_PEOPLE", "IM_A_TALL_DRINK_OF_WATER",
"ICU_DAYS", "SEX_CODE", "MAX_OF_MLD", "AGE.GROUP", NA, ".end",
"s_na_k_er.end", "SNAKE_SNAKE_CASE.end", "snake_Snak_E_Case.end",
"SNAKE_snak_E_case.end", "ss_R_Rss.end", "ss_RRRR.end", "this_Is_Some_Camel_Case.end",
"this.text.end", "final_count.end", "Bob_Dylan_USA.end", "Mikhail_Gorbachev_USSR.end",
"Helpful_Stack_Overflow_People.end", "Im_A_Tall_Drink_Of_Water.end",
"ICU_Days.end", "Sex_Code.end", "MAX_of_MLD.end", "Age.Group.end",
NA, ".end", "s_na_k_er.end", "snake_snake_case.end", "snake_snak_e_case.end",
"snake_snak_e_case.end", "ss_r_rss.end", "ss_rrrr.end", "this_is_some_camel_case.end",
"this.text.end", "final_count.end", "bob_dylan_usa.end", "mikhail_gorbachev_ussr.end",
"helpful_stack_overflow_people.end", "im_a_tall_drink_of_water.end",
"icu_days.end", "sex_code.end", "max_of_mld.end", "age.group.end",
NA, ".end", "sNaKEr.end", "snakeSnakeCase.end", "snakeSnakECase.end",
"snakeSnakECase.end", "ssRRss.end", "ssRrrr.end", "thisIsSomeCamelCase.end",
"this.Text.end", "finalCount.end", "bobDylanUsa.end", "mikhailGorbachevUssr.end",
"helpfulStackOverflowPeople.end", "imATallDrinkOfWater.end",
"icuDays.end", "sexCode.end", "maxOfMld.end", "age.Group.end",
NA, ".end", "SNaKEr.end", "SnakeSnakeCase.end", "SnakeSnakECase.end",
"SnakeSnakECase.end", "SsRRss.end", "SsRrrr.end", "ThisIsSomeCamelCase.end",
"This.Text.end", "FinalCount.end", "BobDylanUsa.end", "MikhailGorbachevUssr.end",
"HelpfulStackOverflowPeople.end", "ImATallDrinkOfWater.end",
"IcuDays.end", "SexCode.end", "MaxOfMld.end", "Age.Group.end",
NA, ".end", "S_NA_K_ER.end", "SNAKE_SNAKE_CASE.end", "SNAKE_SNAK_E_CASE.end",
"SNAKE_SNAK_E_CASE.end", "SS_R_RSS.end", "SS_RRRR.end", "THIS_IS_SOME_CAMEL_CASE.end",
"THIS.TEXT.end", "FINAL_COUNT.end", "BOB_DYLAN_USA.end", "MIKHAIL_GORBACHEV_USSR.end",
"HELPFUL_STACK_OVERFLOW_PEOPLE.end", "IM_A_TALL_DRINK_OF_WATER.end",
"ICU_DAYS.end", "SEX_CODE.end", "MAX_OF_MLD.end", "AGE.GROUP.end",
NA, "start.", "start.s_na_k_er", "start.SNAKE_SNAKE_CASE", "start.snake_Snak_E_Case",
"start.SNAKE_snak_E_case", "start.ss_R_Rss", "start.ss_RRRR",
"start.this_Is_Some_Camel_Case", "start.this.text", "start.final_count",
"start.Bob_Dylan_USA", "start.Mikhail_Gorbachev_USSR", "start.Helpful_Stack_Overflow_People",
"start.Im_A_Tall_Drink_Of_Water", "start.ICU_Days", "start.Sex_Code",
"start.MAX_of_MLD", "start.Age.Group", NA, "start.", "start.s_na_k_er",
"start.snake_snake_case", "start.snake_snak_e_case", "start.snake_snak_e_case",
"start.ss_r_rss", "start.ss_rrrr", "start.this_is_some_camel_case",
"start.this.text", "start.final_count", "start.bob_dylan_usa",
"start.mikhail_gorbachev_ussr", "start.helpful_stack_overflow_people",
"start.im_a_tall_drink_of_water", "start.icu_days", "start.sex_code",
"start.max_of_mld", "start.age.group", NA, "start.", "start.sNaKEr",
"start.snakeSnakeCase", "start.snakeSnakECase", "start.snakeSnakECase",
"start.ssRRss", "start.ssRrrr", "start.thisIsSomeCamelCase",
"start.this.Text", "start.finalCount", "start.bobDylanUsa", "start.mikhailGorbachevUssr",
"start.helpfulStackOverflowPeople", "start.imATallDrinkOfWater",
"start.icuDays", "start.sexCode", "start.maxOfMld", "start.age.Group",
NA, "start.", "start.SNaKEr", "start.SnakeSnakeCase", "start.SnakeSnakECase",
"start.SnakeSnakECase", "start.SsRRss", "start.SsRrrr", "start.ThisIsSomeCamelCase",
"start.This.Text", "start.FinalCount", "start.BobDylanUsa", "start.MikhailGorbachevUssr",
"start.HelpfulStackOverflowPeople", "start.ImATallDrinkOfWater",
"start.IcuDays", "start.SexCode", "start.MaxOfMld", "start.Age.Group",
NA, "start.", "start.S_NA_K_ER", "start.SNAKE_SNAKE_CASE", "start.SNAKE_SNAK_E_CASE",
"start.SNAKE_SNAK_E_CASE", "start.SS_R_RSS", "start.SS_RRRR",
"start.THIS_IS_SOME_CAMEL_CASE", "start.THIS.TEXT", "start.FINAL_COUNT",
"start.BOB_DYLAN_USA", "start.MIKHAIL_GORBACHEV_USSR", "start.HELPFUL_STACK_OVERFLOW_PEOPLE",
"start.IM_A_TALL_DRINK_OF_WATER", "start.ICU_DAYS", "start.SEX_CODE",
"start.MAX_OF_MLD", "start.AGE.GROUP", NA, "start..end", "start.s_na_k_er.end",
"start.SNAKE_SNAKE_CASE.end", "start.snake_Snak_E_Case.end",
"start.SNAKE_snak_E_case.end", "start.ss_R_Rss.end", "start.ss_RRRR.end",
"start.this_Is_Some_Camel_Case.end", "start.this.text.end",
"start.final_count.end", "start.Bob_Dylan_USA.end", "start.Mikhail_Gorbachev_USSR.end",
"start.Helpful_Stack_Overflow_People.end", "start.Im_A_Tall_Drink_Of_Water.end",
"start.ICU_Days.end", "start.Sex_Code.end", "start.MAX_of_MLD.end",
"start.Age.Group.end", NA, "start..end", "start.s_na_k_er.end",
"start.snake_snake_case.end", "start.snake_snak_e_case.end",
"start.snake_snak_e_case.end", "start.ss_r_rss.end", "start.ss_rrrr.end",
"start.this_is_some_camel_case.end", "start.this.text.end",
"start.final_count.end", "start.bob_dylan_usa.end", "start.mikhail_gorbachev_ussr.end",
"start.helpful_stack_overflow_people.end", "start.im_a_tall_drink_of_water.end",
"start.icu_days.end", "start.sex_code.end", "start.max_of_mld.end",
"start.age.group.end", NA, "start..end", "start.sNaKEr.end",
"start.snakeSnakeCase.end", "start.snakeSnakECase.end", "start.snakeSnakECase.end",
"start.ssRRss.end", "start.ssRrrr.end", "start.thisIsSomeCamelCase.end",
"start.this.Text.end", "start.finalCount.end", "start.bobDylanUsa.end",
"start.mikhailGorbachevUssr.end", "start.helpfulStackOverflowPeople.end",
"start.imATallDrinkOfWater.end", "start.icuDays.end", "start.sexCode.end",
"start.maxOfMld.end", "start.age.Group.end", NA, "start..end",
"start.SNaKEr.end", "start.SnakeSnakeCase.end", "start.SnakeSnakECase.end",
"start.SnakeSnakECase.end", "start.SsRRss.end", "start.SsRrrr.end",
"start.ThisIsSomeCamelCase.end", "start.This.Text.end", "start.FinalCount.end",
"start.BobDylanUsa.end", "start.MikhailGorbachevUssr.end", "start.HelpfulStackOverflowPeople.end",
"start.ImATallDrinkOfWater.end", "start.IcuDays.end", "start.SexCode.end",
"start.MaxOfMld.end", "start.Age.Group.end", NA, "start..end",
"start.S_NA_K_ER.end", "start.SNAKE_SNAKE_CASE.end", "start.SNAKE_SNAK_E_CASE.end",
"start.SNAKE_SNAK_E_CASE.end", "start.SS_R_RSS.end", "start.SS_RRRR.end",
"start.THIS_IS_SOME_CAMEL_CASE.end", "start.THIS.TEXT.end",
"start.FINAL_COUNT.end", "start.BOB_DYLAN_USA.end", "start.MIKHAIL_GORBACHEV_USSR.end",
"start.HELPFUL_STACK_OVERFLOW_PEOPLE.end", "start.IM_A_TALL_DRINK_OF_WATER.end",
"start.ICU_DAYS.end", "start.SEX_CODE.end", "start.MAX_OF_MLD.end",
"start.AGE.GROUP.end"))
}
)
test_that("sep_out", {
paste_along <- function(x, along = "_") {
if (length(x) <= 1L) return(x)
if (length(along) == 1L) return(paste0(x, collapse = along))
along <- c(along, rep_len(along[length(along)], max(length(x) - length(along), 0L)))
paste0(paste0(x[seq_len(length(x) - 1)], along[seq_len(length(x) - 1)],
collapse = ""), x[length(x)])
}
expect_equal(to_any_case("a", sep_out = "-"), "a")
expect_equal(to_any_case(""), "")
expect_equal(to_any_case("a"), "a")
expect_equal(to_any_case(c("bla_bla_bla"), sep_out = c("-", "_")), "bla-bla_bla")
expect_equal(to_any_case(c("2018_01_01_bla_bla_bla"), sep_out = c("-", "_")), "2018-01_01_bla_bla_bla")
expect_equal(to_any_case(c("2018_01_01_bla_bla_bla"), sep_out = "-"), "2018-01-01-bla-bla-bla")
expect_equal(to_any_case(c("2018_01_01_bla_bla"), sep_out = c("-", "-", "_", "_", "_", "_", "_")), "2018-01-01_bla_bla")
expect_equal(to_any_case(character(0), sep_out = c("_", "_")), character(0))
})
test_that("random case", {
expect_equal(
{suppressWarnings(RNGversion("3.1")); set.seed(123); to_any_case("almost RANDOM", case = "random")},
"AlMosT raNdOm"
)
})
test_that("title case", {
expect_equal(
to_any_case(c("on_andOn", "AndON", " and on", "and so on", "seems like it works", "also abbreviations ETC"), case = "title", abbreviations = "ETC"),
c("On and on", "And on", "And on", "And so on", "Seems Like it Works", "Also Abbreviations ETC")
)
})
test_that("case none", {
expect_equal(
to_any_case(c("blabla", "blablub", "blaBlub"),case = "none", transliterations = c(blab = "blub")),
c("blubla", "blublub", "blaBlub")
)
})
test_that("special_input", {
expect_identical(to_any_case(NA_character_), NA_character_)
expect_equal(to_any_case(character(0)), character(0))
})
test_that("special_input_2", {
skip_if(getRversion() < 3.4)
# atomics
expect_equal(to_any_case(character()), character())
expect_error(to_any_case(logical()), "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(integer()), "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(double()), "argument is not a character vector", fixed = TRUE)
# data structures
expect_error(to_any_case(data.frame()), "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(list()) , "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(matrix()) , "argument is not a character vector", fixed = TRUE)
# special input or wrong type
expect_error(to_any_case(NA) , "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(NA_integer_) , "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(NA_real_) , "argument is not a character vector", fixed = TRUE)
expect_equal(to_any_case(NA_character_) , NA_character_)
expect_error(to_any_case(TRUE) , "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(1.0) , "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(1L) , "argument is not a character vector", fixed = TRUE)
expect_equal(to_any_case(c("a", 1L)) , c("a", "1"))
expect_error(to_any_case(NULL) , "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(NaN) , "argument is not a character vector", fixed = TRUE)
expect_error(to_any_case(Inf) , "argument is not a character vector", fixed = TRUE)
})
test_that("abbreviations", {
expect_equal(to_any_case("IDENTICALid3", abbreviations = "iD3"), "identical_id3")
})
test_that("parsing_options", {
expect_equal(to_any_case("RRRStudioSStudioStudio", case = "parsed", parsing_option = 1),
"RRR_Studio_S_Studio_Studio"
)
expect_equal(to_any_case("RRRStudioSStudioStudio", case = "parsed", parsing_option = -1),
"RRR_Studio_S_Studio_Studio"
)
expect_equal(to_any_case("RRRStudioSStudioStudio", case = "parsed", parsing_option = 2),
"RRRS_tudio_SS_tudio_Studio"
)
expect_equal(to_any_case("RRRStudioSStudioStudio", case = "parsed", parsing_option = -2),
"RRRS_tudio_SS_tudio_Studio"
)
expect_equal(to_any_case("RRRStudioSStudioStudio", case = "parsed", parsing_option = 3),
"RRRStudio_SStudio_Studio"
)
expect_equal(to_any_case("RRRStudioSStudioStudio", case = "parsed", parsing_option = -3),
"RRRStudio_SStudio_Studio"
)
})
test_that("individual abbreviations", {
expect_equal(
to_any_case("NBAGame", abbreviations = "NBA", case = "mixed"),
"NBA_Game"
)
expect_equal(
to_any_case("NBAGame", abbreviations = "NBa", case = "mixed"),
"NBa_Game"
)
expect_equal(
to_any_case("NBAGame", abbreviations = "baa", case = "mixed"),
"Nba_Game"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVP", case = "mixed"),
"Game_MVP"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVp", case = "mixed"),
"Game_MVp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "mvp", case = "mixed"),
"Game_mvp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "mvp", case = "upper_camel"),
"GameMvp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVP", case = "upper_camel"),
"GameMVP"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVp", case = "upper_camel"),
"GameMVp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "mvp", case = "title"),
"Game Mvp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVP", case = "title"),
"Game MVP"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVp", case = "title"),
"Game MVp"
)
expect_equal(
to_any_case("UserID", abbreviations = "id", case = "title"),
"User Id"
)
expect_equal(
to_any_case("UserID", abbreviations = "ID", case = "title"),
"User ID"
)
expect_equal(
to_any_case("UserID", abbreviations = "id", case = "upper_camel"),
"UserId"
)
expect_equal(
to_any_case("UserID", abbreviations = "ID", case = "upper_camel"),
"UserID"
)
expect_equal(
to_any_case("UserID", abbreviations = "id", case = "mixed"),
"User_id"
)
expect_equal(
to_any_case("UserID", abbreviations = "ID", case= "mixed"),
"User_ID"
)
expect_equal(
to_any_case("UserID", abbreviations = "Id", case = "mixed"),
"User_Id"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "mvp", case = "lower_camel"),
"gameMvp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVP", case = "lower_camel"),
"gameMVP"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "MVp", case = "lower_camel"),
"gameMVp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "GAME", case = "lower_camel"),
"gameMvp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "game", case = "lower_camel"),
"gameMvp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "gGame", case = "lower_camel"),
"gameMvp"
)
expect_equal(
to_any_case("GameMVP", abbreviations = "Game", case = "lower_camel"),
"gameMvp"
)
expect_equal(
to_any_case("nba_finals_mvp", abbreviations = c("nba", "MVP"), case = "upper_camel"),
"NbaFinalsMVP"
)
expect_equal(
to_any_case("nba_finals_mvp", abbreviations = c("nba", "MVp"), case = "upper_camel"),
"NbaFinalsMVp"
)
})
test_that("parsing_option 2", {
expect_equal(to_any_case("blaBLA", abbreviations = "BLA", parsing_option = 2),
"bla_bla")
})
test_that("parsing_option 3", {
expect_equal(to_any_case("blaBLA", abbreviations = "BLA", parsing_option = 3),
"bla_bla")
}) snakecase/tests/testthat/test-to_parsed_case.R 0000644 0001762 0000144 00000002205 13420607650 021266 0 ustar ligges users context("to_parsed_case")
test_that("examples", {
expect_equal(to_parsed_case(cases[["examples"]]),
cases[["parsed_case"]])}
)
test_that("rules",{
examples <- cases[["examples"]]
# note that to parsed case has a little bit different rules than the other converters
expect_equal(to_parsed_case(to_parsed_case(examples)),
to_parsed_case(examples))
expect_equal(to_parsed_case(to_snake_case(examples)),
to_snake_case(examples))
#expect_equal(to_parsed_case(to_small_camel_case(examples)),
# to_small_camel_case(examples))
#
#expect_equal(to_parsed_case(to_big_camel_case(examples)),
# to_big_camel_case(examples))
expect_equal(to_parsed_case(to_screaming_snake_case(examples)),
to_screaming_snake_case(examples))
})
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_parsed_case(labs),
structure(c("abc_DEF", "bbcc_EE", "Te_E_St_it"), .Names = c("a",
"b", "c"))
)
}) snakecase/tests/testthat/test-to_lower_upper_case.R 0000644 0001762 0000144 00000000713 13420607650 022355 0 ustar ligges users context("to_upper_lower_case")
test_that("random stuff", {
expect_equal(to_lower_upper_case("RStudioRRRStudio"),
"rSTUDIOrrrSTUDIO")
}
)
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_lower_upper_case(labs),
structure(c("abcDEF", "bbccEE", "teEstIT"), .Names = c("a", "b",
"c"))
)
}) snakecase/tests/testthat/test-to_upper_lower_case.R 0000644 0001762 0000144 00000001121 13420607650 022347 0 ustar ligges users context("to_upper_lower_case")
test_that("random stuff", {
expect_equal(to_upper_lower_case("RStudioRRRStudio"),
"RstudioRRRstudio")
expect_equal(to_upper_lower_case(c("R.aStudio", NA, NA, NA, NA)),
c("RaSTUDIO", NA, NA, NA, NA))
}
)
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_any_case(labs, case = "upper_lower"),
structure(c("ABCdef", "BBCCee", "TEeSTit"), .Names = c("a", "b",
"c"))
)
}) snakecase/tests/testthat/test-to_random_case.R 0000644 0001762 0000144 00000000245 13467441350 021276 0 ustar ligges users test_that("random_case", {
expect_equal(
{suppressWarnings(RNGversion("3.1")); set.seed(123); to_random_case("almost RANDOM")},
"AlMosT raNdOm"
)
}) snakecase/tests/testthat/test-to_sentence_case.R 0000644 0001762 0000144 00000001310 13420607650 021610 0 ustar ligges users context("to_sentence_case")
test_that("basic_example",{
expect_equal(
to_sentence_case("bla bla_bal"),
"Bla bla bal")
expect_equal(to_sentence_case("the_boy_likes_snake_case",
transliterations = c("boy" = "baby",
"snake" = "screaming__snake"),
sep_out = " "),
"The baby likes screaming snake case")
expect_equal(to_sentence_case("the_boy_likes_snake_case",
transliterations = c("boy" = "baby",
"snake" = "screaming__snake")),
"The baby likes screaming snake case")
}) snakecase/tests/testthat/helper-examples.R 0000644 0001762 0000144 00000023656 13420607650 020446 0 ustar ligges users # cases for examples
cases <-
tibble::tribble(
~nr, ~ examples ,~parsed_case , ~snake_case , ~small_camel_case , ~big_camel_case , ~screaming_snake_case ,
#--|-----------------------------,--------------------------------|------------------------------|------------------------------|------------------------------|-----------------------|
1 , NA , NA , NA , NA , NA , NA,
2 , "snake_case" , "snake_case" , "snake_case" , "snakeCase" , "SnakeCase" , "SNAKE_CASE",
3 , "snakeCase" , "snake_Case" , "snake_case" , "snakeCase" , "SnakeCase" , "SNAKE_CASE",
4 , "SnakeCase" , "Snake_Case" , "snake_case" , "snakeCase" , "SnakeCase" , "SNAKE_CASE",
5 , "_" , "" , "" , "" , "" , "",
6 , "snake_Case" , "snake_Case" , "snake_case" , "snakeCase" , "SnakeCase" , "SNAKE_CASE",
7 , "_" , "" , "" , "" , "" , "",
8 , "SNake" , "S_Nake" , "s_nake" , "sNake" , "SNake" , "S_NAKE",
9 , "Snake" , "Snake" , "snake" , "snake" , "Snake" , "SNAKE",
10 , "s_nake" , "s_nake" , "s_nake" , "sNake" , "SNake" , "S_NAKE",
11 , "sn_ake" , "sn_ake" , "sn_ake" , "snAke" , "SnAke" , "SN_AKE",
12 , "_" , "" , "" , "" , "" , "",
13 , "SNaKE" , "S_Na_KE" , "s_na_ke" , "sNaKe" , "SNaKe" , "S_NA_KE",
14 , "SNaKEr" , "S_Na_K_Er" , "s_na_k_er" , "sNaKEr" , "SNaKEr" , "S_NA_K_ER",
15 , "s_na_k_er" , "s_na_k_er" , "s_na_k_er" , "sNaKEr" , "SNaKEr" , "S_NA_K_ER",
16 , "_" , "" , "" , "" , "" , "",
17 , "SNAKE SNAKE CASE" , "SNAKE_SNAKE_CASE" , "snake_snake_case" , "snakeSnakeCase" , "SnakeSnakeCase" , "SNAKE_SNAKE_CASE",
18 , "_" , "" , "" , "" , "" , "",
19 , "snakeSnakECase" , "snake_Snak_E_Case" , "snake_snak_e_case" , "snakeSnakECase" , "SnakeSnakECase" , "SNAKE_SNAK_E_CASE",
20 , "SNAKE snakE_case" , "SNAKE_snak_E_case" , "snake_snak_e_case" , "snakeSnakECase" , "SnakeSnakECase" , "SNAKE_SNAK_E_CASE",
21 , "_" , "" , "" , "" , "" , "",
22 , "ssRRss" , "ss_R_Rss" , "ss_r_rss" , "ssRRss" , "SsRRss" , "SS_R_RSS",
23 , "ssRRRR" , "ss_RRRR" , "ss_rrrr" , "ssRrrr" , "SsRrrr" , "SS_RRRR",
24 , "thisIsSomeCamelCase" , "this_Is_Some_Camel_Case" , "this_is_some_camel_case" , "thisIsSomeCamelCase" , "ThisIsSomeCamelCase" , "THIS_IS_SOME_CAMEL_CASE",
25 , "this.text" , "this_text" , "this_text" , "thisText" , "ThisText" , "THIS_TEXT",
26 , "next.text" , "next_text" , "next_text" , "nextText" , "NextText" , "NEXT_TEXT",
27 , "zip code" , "zip_code" , "zip_code" , "zipCode" , "ZipCode" , "ZIP_CODE",
28 , "state" , "state" , "state" , "state" , "State" , "STATE",
29 , "final count" , "final_count" , "final_count" , "finalCount" , "FinalCount" , "FINAL_COUNT",
30 , "BobDylanUSA" , "Bob_Dylan_USA" , "bob_dylan_usa" , "bobDylanUsa" , "BobDylanUsa" , "BOB_DYLAN_USA",
31 , "MikhailGorbachevUSSR" , "Mikhail_Gorbachev_USSR" , "mikhail_gorbachev_ussr" , "mikhailGorbachevUssr" , "MikhailGorbachevUssr" , "MIKHAIL_GORBACHEV_USSR",
32 , "HelpfulStackOverflowPeople", "Helpful_Stack_Overflow_People", "helpful_stack_overflow_people", "helpfulStackOverflowPeople" , "HelpfulStackOverflowPeople" , "HELPFUL_STACK_OVERFLOW_PEOPLE",
33 , "IAmATallDrinkOfWater" , "I_Am_A_Tall_Drink_Of_Water" , "i_am_a_tall_drink_of_water" , "iAmATallDrinkOfWater" , "IAmATallDrinkOfWater" , "I_AM_A_TALL_DRINK_OF_WATER",
34 , "ICUDays" , "ICU_Days" , "icu_days" , "icuDays" , "IcuDays" , "ICU_DAYS",
35 , "SexCode" , "Sex_Code" , "sex_code" , "sexCode" , "SexCode" , "SEX_CODE",
36 , "MAX_of_MLD" , "MAX_of_MLD" , "max_of_mld" , "maxOfMld" , "MaxOfMld" , "MAX_OF_MLD",
37 , "Age.Group" , "Age_Group" , "age_group" , "ageGroup" , "AgeGroup" , "AGE_GROUP",
38 , "ThisText" , "This_Text" , "this_text" , "thisText" , "ThisText" , "THIS_TEXT",
39 , "NextText" , "Next_Text" , "next_text" , "nextText" , "NextText" , "NEXT_TEXT",
40 , "test_123_ 1 1" , "test_123_1_1" , "test_123_1_1" , "test123_1_1" , "Test123_1_1" , "TEST_123_1_1"
)
# dat for arguments of to_any_case(). test non NULL arguments via dat.
# test other three special case via specific examples
string <- c(NA, "_", "s_na_k_er", "SNAKE SNAKE CASE", "snakeSnakECase",
"SNAKE snakE_case", "ssRRss", "ssRRRR", "thisIsSomeCamelCase",
"this.text", "final count", "BobDylanUSA", "MikhailGorbachevUSSR",
"HelpfulStackOverflowPeople", "ImATallDrinkOfWater", "ICUDays", "SexCode",
"MAX_of_MLD", "Age.Group")
case <- c("parsed", "snake", "small_camel", "big_camel", "screaming_snake")
prefix <- c("", "start.")
postfix <- c("", ".end")
transliterations <- c("german", "Latin-ASCII")
dat <- expand.grid(string = string,
case = case,
postfix = postfix,
prefix = prefix,
transliterations = transliterations,
stringsAsFactors = FALSE)
# code to generate new results.
# purrrlyr::invoke_rows(snakecase::to_any_case, dat,
# preprocess = NULL,
# postprocess = NULL,
# .collate = "cols",
# .to = "output") %>% .$output %>% dput()
# Some Benchmarks:
# devtools::install_github("Tazinho/snakecase", force = TRUE)
# library(snakecase)
#
# string_gen <- function(times){paste0("str", 1:times)}
# other_gen <- function(times){paste0("other", 1:times)}
#
# str10 <- string_gen(10)
# str1000 <- string_gen(1000)
# oth10 <- other_gen(10)
# oth1000 <- other_gen(1000)
#
# microbenchmark::microbenchmark(
# to_any_case(string = str10, case = "snake", preprocess = oth10),
# to_any_case(string = str1000, case = "snake", preprocess = oth1000)
# )
#
# microbenchmark::microbenchmark(
# to_any_case(string = str10, case = "snake", postprocess = oth10),
# to_any_case(string = str1000, case = "snake", postprocess = oth1000)
# )
#
# microbenchmark::microbenchmark(
# to_any_case(string = str10, case = "snake", prefix = oth10),
# to_any_case(string = str1000, case = "snake", prefix = oth1000)
# )
#
# microbenchmark::microbenchmark(
# to_any_case(string = str10, case = "snake" , postfix = oth10),
# to_any_case(string = str1000, case = "snake", postfix = oth1000)
# )
#
# microbenchmark::microbenchmark(
# to_any_case(string = str10, case = "snake" , protect = oth10),
# to_any_case(string = str1000, case = "snake", protect = oth1000)
# ) snakecase/tests/testthat/test-to_upper_camel_case.R 0000644 0001762 0000144 00000004222 13470313655 022311 0 ustar ligges users context("to_upper_camel_case")
test_that("examples", {
expect_equal(to_upper_camel_case(cases[["examples"]]),
cases[["big_camel_case"]])}
)
test_that("rules",{
examples <- cases[["examples"]]
expect_equal(to_upper_camel_case(to_snake_case(examples)),
to_upper_camel_case(examples)
)
expect_equal(to_upper_camel_case(to_lower_camel_case(examples)),
to_upper_camel_case(examples)
)
expect_equal(to_upper_camel_case(to_upper_camel_case(examples)),
to_upper_camel_case(examples)
)
expect_equal(to_upper_camel_case(to_screaming_snake_case(examples)),
to_upper_camel_case(examples)
)
expect_equal(to_upper_camel_case(to_parsed_case(examples)),
to_upper_camel_case(examples)
)
})
test_that("preserve-names-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(to_upper_camel_case(labs),
structure(c("AbcDef", "BbccEe", "TeEStIt"),
.Names = c("a", "b", "c")))
})
test_that("parsing_options",{
expect_equal(to_upper_camel_case("look_AfterThe-hyphen andThe.dot", parsing_option = 1, numerals = "asis", sep_in = NULL),
"LookAfterThe-HyphenAndThe.Dot")
expect_equal(to_upper_camel_case("look_AfterThe-hyphen andThe.dot", parsing_option = -1, numerals = "asis", sep_in = NULL),
"LookAfterThe-hyphenAndThe.dot")
expect_equal(to_upper_camel_case("look_AfterThe-hyphen andThe.dot", parsing_option = 2, numerals = "asis", sep_in = NULL),
"LookAfterThe-HyphenAndThe.Dot")
expect_equal(to_upper_camel_case("look_AfterThe-hyphen andThe.dot", parsing_option = -2, numerals = "asis", sep_in = NULL),
"LookAfterThe-hyphenAndThe.dot")
expect_equal(to_upper_camel_case("look_AfterThe-hyphen andThe.dot", parsing_option = 3, numerals = "asis", sep_in = NULL),
"LookAfterThe-HyphenAndThe.Dot")
expect_equal(to_upper_camel_case("look_AfterThe-hyphen andThe.dot", parsing_option = -3, numerals = "asis", sep_in = NULL),
"LookAfterThe-hyphenAndThe.dot")
}) snakecase/tests/testthat/test-to_swap_case.R 0000644 0001762 0000144 00000000226 13420607650 020763 0 ustar ligges users context("to_swap_case")
test_that("minimal test",{
expect_equal(
to_swap_case(c("abCD", "RStudio")),
c("ABcd", "rsTUDIO")
)
}) snakecase/tests/testthat/test-to_mixed_case.R 0000644 0001762 0000144 00000000706 13420607650 021122 0 ustar ligges users context("to_mixed_case")
test_that("random stuff", {
expect_equal(to_mixed_case("RStudioRRRStudio"),
"R_Studio_Rrr_Studio")
}
)
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_mixed_case(labs),
structure(c("abc_Def", "bbcc_Ee", "Te_E_St_it"), .Names = c("a",
"b", "c"))
)
}) snakecase/tests/testthat/test-to_snake_case.R 0000644 0001762 0000144 00000002045 13420607650 021113 0 ustar ligges users context("to_snake_case")
test_that("examples", {
expect_equal(to_snake_case(cases[["examples"]]),
cases[["snake_case"]])}
)
test_that("rules",{
examples <- cases[["examples"]]
expect_equal(to_snake_case(to_snake_case(examples)),
to_snake_case(examples)
)
expect_equal(to_snake_case(to_lower_camel_case(examples)),
to_snake_case(examples)
)
expect_equal(to_snake_case(to_upper_camel_case(examples)),
to_snake_case(examples)
)
expect_equal(to_snake_case(to_screaming_snake_case(examples)),
to_snake_case(examples)
)
expect_equal(to_snake_case(to_parsed_case(examples)),
to_snake_case(examples)
)
})
test_that("preserve-name-attribute",{
labs <- c(a = "abcDEF", b = "bbccEE", c = "TeESt it")
expect_equal(
to_snake_case(labs),
structure(c("abc_def", "bbcc_ee", "te_e_st_it"), .Names = c("a",
"b", "c"))
)
}) snakecase/NAMESPACE 0000644 0001762 0000144 00000000577 13472267031 013444 0 ustar ligges users # Generated by roxygen2: do not edit by hand
export(to_any_case)
export(to_lower_camel_case)
export(to_lower_upper_case)
export(to_mixed_case)
export(to_parsed_case)
export(to_random_case)
export(to_screaming_snake_case)
export(to_sentence_case)
export(to_snake_case)
export(to_swap_case)
export(to_title_case)
export(to_upper_camel_case)
export(to_upper_lower_case)
snakecase/NEWS.md 0000644 0001762 0000144 00000042300 13472270604 013311 0 ustar ligges users # snakecase 0.11.0 (25.05.19)
**Changes in 0.10.0 and 0.10.0.9000**
New functionality:
* **abbreviations**: Abbreviations are now ...
* ... matched case-insensitive inside of groups of connected lower/upper case sequences.
* ... consistently formatted according to the supplied case.
* ... formatted exactly as supplied for the cases title, mixed, lower and upper camel.
* ... protected from the parsing. This means that
* special characters in abbreviations don't need to be taken care of anymore. The formatting of digits or special characters like hyphens, colons etc. will be formatted as specified.
* **parsing_option**:
* new parsing option 3 parses "SOmeNIceSTUFf".
* parsing options starting with a minus (-1, -2, -3) interprete non-alphanumeric characters as word boundaries. E.g. "This.text" will stay "This.text" in upper camel case.
* **cases**
* **title**: New case which should be especially useful for automatic generation of proper labels within graphics or business reports. Builds up on sentence case which is wrapped within `tools::toTitleCase()`.
* **random**: New case, which will randomly convert letters into upper or lower case.
* **numerals**: new alignment option `"tight"` which allows to suppress all underscores between numerals and letters.
* **sep_out**: `sep_out` gets proper vectorization. In case of `length(sep_out) > 1` differing substrings are connected by the (possibly) differing elements of `sep_out`. Therefore, `sep_out` gets accordingly shortened or the last element of `sep_out` gets recycled to match the number of needed separators for each element of `string`.
* **UTF8 Conversion**: Input is now always converted to UTF-8 and returned as UTF8. Also the `transliterations` argument is now aware of non-UTF8 encoded input.
Infrastructure:
* **CII best practices badge**: Achieved the criteria for the best practices badge. Current status is under https://bestpractices.coreinfrastructure.org/de/projects/2475
* **R Version**: Increase from 3.1 to 3.2 regarding the usage of `tools::toTitleCase()` inside `to_title_case()`.
* **Vignettes**: The blog article "Introducing the snakecase package" was added as a vignette.
* **Documentation**: The readme, the examples and the function documentation were updated according to the new functionality.
* **Resolve CRAN notes**:
* **Tests**: Skip `to_any_case()` tests (janitor-pkg-tests, transliterations and complex strings) when platform charset is not UTF-8 to resolve CRAN notification regarding character encoding.
* **Vignettes**: Build the package with new version of knitr to resolve CRAN notification regarding vignette encoding.
# snakecase 0.10.0.9000
* **cases**: Title case now builds up on sentence case (instead of parsed_case).
* **abbreviations**: Abbreviations are now
* matched case-insensitive
* formatted as they are supplied for title-, upper-camel-, lower-camel- and mixed case. Apart of that abbreviations are still formatted according to the specified case.
* protected from the parsing. This means that
* special characters in abbreviations don't need to be excluded via a regex in the `sep_in` parameter
* the formatting of digits or special characters like hyphens, colons etc. will be formatted as specified.
* **parsing_option**:
* new parsing option 3 implemented which parses "SOmeNIceSTUFf".
* each parsing option can now be prefixed by a minus (-1, -2, -3). In this way
# snakecase 0.10.0 (16.05.19)
* CRAN release
# snakecase 0.9.2.9002
* **numerals**: new alignment option `"tight"` which allows to suppress all underscores between numerals and letters.
* **improved speed**: time of internal parsing could be reduced about a factor of ten, due to some `vapply()` replacements.
* **UTF8 Conversion**: Input is now always converted to UTF-8 and returned as UTF8. Also the `transliterations` argument is now aware of non-UTF8 encoded input.
* **Improved vecorisation of `sep_out`**: `sep_out` now behaves better for vector input (length > 1). Instead of returning different strings, the return is now one string, which uses separators according to the supplied order. When `length(sep_out) > 1`, the last element of `sep_out` gets recycled.
* **random_case**: added `to_random_case()`, which will randomly convert letters into upper or lower case.
* **title_case**: added `to_title_case()`, which is basically `to_parsed_case()` with `sep_out = " "` wrapped within `tools::toTitleCase()` and should be especially useful for proper labels within graphics or business reports.
* increase R Version dependency from 3.1 up to 3.2 regarding the usage of `tools::toTitleCase()`.
* skip `to_any_case()` tests (janitor-pkg-tests, transliterations and complex strings) when platform charset is not UTF-8.
# snakecase 0.9.2
* **cases**: added `to_sentence_case()` (same as snake, but first letter is uppercase and default sep_out is space).
* **numerals**: added `numerals` argument to all caseconverters including `to_any_case()` to format the alignment of digits (`middle`, `left`,`right`, `asis`). Therefore `parsing_option` nr 4 might be removed in later releases, as it is the same as `parsing_option = 1` and `numerals = "asis"`.
* **transliterations**: When named character elements are supplied as part of `transliterations`, anything that matches the name is replaced by the corresponding value.
* attributes are now preserved (not only names as before)
# snakecase 0.9.1
* CRAN release
* Change default `sep_in` from `NULL` to `"[^[:alnum:]]"`. This will make it easier for beginners and in general also faster to modify cases from names like `names(iris)`. Updated the regarding sections in the vignette and readme.
# snakecase 0.9.0
* CRAN release
* Changes since last update:
* parsing_options:
* old parsing_options 3 and 4 are replaced now by new
* parsing_option 3, which suppresses case conversion around alpha numerics
* parsing_option 4, which introduces less formatting of numerals in the output,
and leaves them very close to the way that they appeared in the input strings.
* abbreviations:
* they work now more consistent with cases like lower- and upper camel case
* new converters:
* `to_swap_case()` is new. Within `to_any_case()` this conversion can be called also via `case = "flip"`.
* removed deprecated arguments
* `replace_special_characters`, which is now called `transliterations`
* `preprocess`, which is now called `sep_in`
* `postprocess`, which is now called `sep_out`
* removed dependencies:
* purrr and magrittr are not longer dependencies
* stringr is the only dependency now (including stringi of course).
# snakecase 0.8.4
* Introduced `to_swap_case()`, which is also available in `to_any_case()` via
`case = "swap"` or `case = "flip"`
# snakecase 0.8.3.1
* abbreviations work now also in conversions to lower- and upper camel case.
# snakecase 0.8.3
* replaced `parsing_option`s 3 and 4 with 5 and 6.
* removed __purrr__ dependency
* removed __magrittr__ dependency
# snakecase 0.8.2.9002
* remove `replace_special_characters`, `preprocess` and `postprocess`.
# snakecase 0.8.2.9001
* added parsing option 6, which doesn't surround digits with separators.
# snakecase 0.8.1
* CRAN releases
# snakecase 0.8.0.9000
* some breaking changes:
* reordering of the arguments of all `to_xxx_case()` functions
* renaming `preprocess` to `sep_in`, `postprocess` to `sep_out`,
`replace_special_characters` to `transliterations`.
# snakecase 0.7.1
* CRAN update
* for changes see V 0.7.0
* additionally fixed obvious bug and forwarded to_xxx_case args to to_any_case
# snakecase 0.7.0
* changes since last CRAN submission include:
* to_xxx_case shortcuts are now exact wrappers around to_any_case
* `process` is deprecated after changing implementation and setting a reasonable default.
* added `abbreviations` argument to `any_case()`
* case none is now a lot more general for formatting
* added `abbreviation` specific behaviour for mixed case
* new parsing_option 5, which suppresses conversion after ., @, etc
* renaming of:
* to_small / to_big_camel_case have been renamed to to_lower / to_upper_camel_case. The old names are and will still be supported in to_any_case
* `parsingoption` to `parsing_option`
* introduced rule that parsing_option <= 0 suppresses parsing from now on
* lots of additional tests and smaller bugfixes
* several documentation updates including help, examples, readme and vignette
# snakecase 0.6.2.9000
* all to_xxx_case functions are now exact wrappers of to_any_case
* to_small / to_big_camel_case have been renamed to to_lower / to_upper_camel_case
* minimal vignette update
# snakecase 0.6.1.9000
* more consistency for case none
* bugfix for parsing option 5
# snakecase 0.6.0.9000
* overhaul readme
* renamed `parsingoption` argument to `parsing_option`
* `process` argument: changed implementation in `to_any_case`, set a reasonable default, implemented the behaviour also in to_xxx shortcut functions, deprecated `process` argument
* make modifications to case none, which allows now more parsing options
# snakecase 0.5.4.9000
* added special behaviour for abbreviations within "mixed_case"
# snakecase 0.5.3.9000
* added abbreviations argument for better mixed case handling
# snakecase 0.5.2.9000
* improve consistency with stringr pkg regarding special input handling
`if(identical(stringr::str_length(string), integer())){return(character())}`
# snakecase 0.5.1
* Changes since last update:
* `to_any_case()` and shortcuts (`to_xxx_case()` functions) preserve name attribute now
* R dependency lowered to 3.1
# snakecase 0.5.0.9001
* `to_any_case()` and the other converter function now preserve the names attribute. (Thanks to @strengejacke)
# snakecase 0.5.0
* CRAN update
* Changes since last CRAN submission include:
* string transliteration via updated `replace_special_character` argument
* some new cases: "none", "mixed", "upper_lower", "lower_upper"
* aliases: "all_caps", "lower_camel", "upper_camel"
* different parsing options
* several bugfixes
* improved internal testing
* internal modularisation
# snakecase 0.4.0.9016
* `case == "none"` works now with `preprocess`.
# snakecase 0.4.0.9015
* fixed bug so that `case = upper_lower` no also works for `NA`'s.
# snakecase 0.4.0.9014
* added shortcutfunctions `to_mixed_case()`, `to_lower_upper_case()` and `to_upper_lower_case()`.
# snakecase 0.4.0.9013
Implemented two further parsing options:
* 3: parses the first UPPER letter group like parsing option 2 and the rest like option 1
* 4: parses the first UPPERlowercase letter group like parsingoption 1 and the rest like option 2
# snakecase 0.4.0.9012
bug fix in dev version: protect works now for beginning and end of substrings and not anymore only for complete substrings.
# snakecase 0.4.0.9011
Fix bug for `character(0)` in combination with `postprocess`
# snakecase 0.4.0.9010
Input of `replace special character` is now a character vector. It's entries have to be elements of `stringi::stri_trans_list()` or names of the transliteration dictionary list,
which comes with this package. This update enables users to transliterate strings from different encodings, in a flexible way. For example UTF8 to Ascii, ... .
# snakecase 0.4.0.9009
* provided aliases `"all_caps"`, `"lower_camel"` and `"upper_camel"` for `"screaming_snake"`, `"small_camel"` and `"big_camel"`.
# snakecase 0.4.0.9008
* small bug fix for upper_lower/lower_upper regarding the behaviour for the combination of preprocess and protect (similar to an earlier bug in the camel cases).
# snakecase 0.4.0.9007
* small bug fix for behaviour of upper_lower/lower_upper. Now substrings with
without alphabetical characters are ignored.
# snakecase 0.4.0.9006
* new implemented cases: "none", "mixed", "upper_lower", "lower_upper".
# snakecase 0.4.0.9005
* empty_fill runs again in the end, before the pre and postprocess
* fixed bug: `to_any_case("r.aStudio", protect = "a", postprocess = "-", case = "big_camel")` will now
correctly return "R-.AStudio" (so the protection will be triggered by the input and not by the output). In contrast `protect = A` will yield in unprotected output (`-A-`)
# snakecase 0.4.0.9004
* empty_fill runs now at the beginning of to any case function (after the first parsing)
and a second parsing is introduced in case anything is filled.
# snakecase 0.4.0.9003
* fixed bug in camelcases, for letters after protected symbols (usually one wouldn't
protect in these cases anyway...)
# snakecase 0.4.0.9002
* implemented `check_design_rule()` (not exported)
* resolved bugs in other design options (also deleted one which is not valid for
screaming snake case)
# snakecase 0.4.0.9001
* included several parsingoptions for `to_any_case()`.
__1:__ "RRRStudio" -> "RRR_Studio" stays as default
__2:__ "RRRStudio -> RRRS_tudio"
__any other number__ will suppress the parsing (only spaces will be converted into "_")
# snakecase 0.4.0.9000
* This is the (stable) development version now. You can find snakecase on cran [here](https://CRAN.R-project.org/package=snakecase)
# snakecase 0.4.0
* CRAN submission
# snakecase 0.3.5.3
* changed order of the customizing arguments of `to_any_case()`
# snakecase 0.3.5.2
* fixed bug for combination of protect and postprocess. Therefore clarified and rewrote the internal order of `to_any_case()`
* resolved all internal build warnings and notes
# snakecase 0.3.5.1
* fixed bug in replace_special_characters combined with screaming snake case.
# snakecase 0.3.5
* any local special characters are now supported.
* added 2 arguments to `to_any_case()`: empty_fill, which allows to fill strings
matching to "" with the supplied string. unique_sep adds an integer suffix separated
with the supplied string, when not `NULL`.
* fixed a bug in to_snake_case_internal(). groups of digits are not separated in
between anymore.
* digits that are not direct next to each other, will be split via "_" in both camel case
versions. This is a meaningful exception. Otherwise information would be lost and
also the consistency rules in the readme wouldn't hold in this case.
# snakecase 0.3.4
* any_case() is now vectorised over pre-/postprocess, pre-/postfix for all case arguments
* introduces protect as (vectorised) argument to to_any_case(). it accepts regular expressions and cleans "_" or whatever the preprocessing did, between matches.
* some more tests, documentation and fixes.
# snakecase 0.3.3
* introduced case = "parsed" in to_any_case()
* introduced to_parsed_case()
# snakecase 0.3.2
* finished vignette (title: Caseconverters) and replaced the usage part in readme with it.
* changed behaviour in snake_case_internal to always treat whitespaces as underscores.
for whitespaces in output postprocess = " " is recommended.
# snakecase 0.3.1
* started testing `to_any_case` and removed a bug.
* added vignette
# snakecase 0.3.0
* supports behaviour for german umlauts on all platforms
* introduced internal function `to_snake_case_internal()` which does the preprocessing and simplifies all other functions (especially `to_any_case()`) a little bit.
* introduced `to_screaming_snake_case()`
* added arguments prefix, postfix and replace_special_characters to `to_any_case()`.
* completely renewed readme
* updated tests and highly modularized all tests. (just to_any_case lacks some tests now and in general more examples test cases have to be written)
# snakecase 0.2.2
* introduced `to_any_case()` (all functionality and documentation provided, but implementation has to be cleaned and also tests have to be written)
# snakecase 0.2.1
* fixed bug: `to_snake_case_dev(c("ssRRss"))` returns now `ss_r_rss` instead of`"ss_r_r_ss"`
* `to_snake_case()` now treats only spaces like underscores now (not dots anymore)
* functionality to treat different stuff like dots will be added via a new function:
`to_any_case()`, which will wrap the other three and will have pre- and postprocess arguments
# snakecase 0.2.0
* renamed the single input parameters consistent to `string` (without deprecating
the old name before, since the package was in early dev-stage anyway).
* started a to develop and implement consistent logic (which still has to be better documented in the readme)
* introduced tests for more hard coded examples and the logic behind it (still more
hardcoded examples and a third part of the logic have to be tested)
* internal logic has been simplified and modularized a lot, which makes it easier
to maintain and introduce more high-level features in the future
* added integrated tests via AppVeyor on windows
* added badges for cran status and code coverage to readme
# snakecase 0.1.0
* Introduced `to_snake_case()` which converts strings to snake_case.
* added functions `to_small_camel_case()` and `to_big_camel_case()` which internally
build up on `to_snake_case()` and convert to the appropriate target case.
* added basic hard coded tests
* added integrated tests on linux via travis.ci
snakecase/R/ 0000755 0001762 0000144 00000000000 13472230504 012410 5 ustar ligges users snakecase/R/parsing_helpers_internal.R 0000644 0001762 0000144 00000005535 13471620610 017624 0 ustar ligges users #' Parsing helpers
#'
#' Mainly for usage within \code{to_parsed_case_internal}
#'
#' @param string A string.
#'
#' @return A partly parsed character vector.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#'
#' @keywords utilities
#'
#' @name parsing_helpers
#'
#' @rdname parsing_helpers
#'
parse1_pat_cap_smalls <- function(string) {
# Inserts underscores around groups of one upper case followed by lower case letters (or digits)
# RStudio.V11 -> R_Studio_.V11
pat_cap_smalls <- "([:upper:][:lower:]+)"
string <- stringr::str_replace_all(string, pat_cap_smalls, "_\\1_")
string}
#' @rdname parsing_helpers
parse2_pat_digits <- function(string) {
# Inserts underscores around groups of digts
# RStudio.V11 -> RStudio.V_11_
pat_digits <- "(\\d+)"
string <- stringr::str_replace_all(string, pat_digits, "_\\1_")
string}
#' @rdname parsing_helpers
parse3_pat_caps <- function(string) {
# Inserts underscores around all capital letter groups with length >= 2
# RStudio.V11 -> _RS_tudio.V11
pat_caps <- "([:upper:]{2,})"
string <- stringr::str_replace_all(string, pat_caps, "_\\1_")
string}
#' @rdname parsing_helpers
parse4_pat_cap <- function(string) {
# Inserts underscores around all capital letter groups with length = 1 that
# don't have a capital letter in front of them and not a capital or small letter behind them
# RStudio.V11 -> RStudio._V_11
pat_cap <- "((? RStudio_._V11
pat_non_alnums <- "([^[:alnum:]])"
string <- stringr::str_replace_all(string, pat_non_alnums, "_\\1_")
string}
#' @rdname parsing_helpers
parse6_mark_digits = function(string) {
# Inserts _ and space between non-alphanumerics and digits
digit_marker_before <- "(?<=[^_|\\d])(\\d)"
digit_marker_after <- "(\\d)(?=[^_|\\d])"
string <- stringr::str_replace_all(string, digit_marker_before, "_ \\1")
string <- stringr::str_replace_all(string, digit_marker_after , "\\1 _")
string
}
#' @rdname parsing_helpers
parse7_pat_caps_smalls = function(string) {
# Inserts underscores around of one or more upper case letters possibly followed by lower case letters
pat_caps_smalls <- "([:upper:]+[:lower:]*)"
string <- stringr::str_replace_all(string, pat_caps_smalls, "_\\1_")
string
}
#' @rdname parsing_helpers
parse8_pat_smalls_after_non_alnums = function(string) {
# Inserts underscores around of one or more upper case letters possibly followed by lower case letters
pat_smalls_after_non_alnums <- "((? RRR_Studio}}
#' \item{2: \code{RRRStudio -> RRRS_tudio}}
#' \item{3: parses like option 1 but suppresses "_" around non alpha-numeric characters. In this way this option suppresses splits and resulting case conversion after these characters.}
#' \item{any other integer <= 0: no parsing"}
#' }
#' @param numerals A character specifying the alignment of numerals (\code{"middle"}, \code{left}, \code{right} or \code{asis}). I.e. \code{numerals = "left"} ensures that no output separator is in front of a digit.
#' @param abbreviations A character string specifying abbreviations that should be marked to be recognized by later parsing.
#' @param sep_in A character (regular expression) used to specify input separators.
#'
#' @return A character vector separated by underscores, containing the parsed string.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
to_parsed_case_internal <- function(string, parsing_option = 1L, numerals, abbreviations, sep_in){
### input checking
if (parsing_option >= 4L | parsing_option <= -4) {
stop("parsing_option must be between -4 and +4.", call. = FALSE)
}
### applying parsing functions
# case: 1 RRRStudioSStudioStudio -> RRR_Studio_S_Studio_Studio
parsing_option_1 <- function(string, numerals, sep_in) {
string <- preprocess_internal(string, sep_in)
if (numerals == "asis") {
string <- parse6_mark_digits(string)
}
string <- parse1_pat_cap_smalls(string) # RStudio.V11 -> R_Studio_.V11
string <- parse2_pat_digits(string) # RStudio.V11 -> RStudio.V_11_
string <- parse3_pat_caps(string) # RStudio.V11 -> _RS_tudio.V11
string <- parse4_pat_cap(string) # RStudio.V11 -> RStudio._V_11
string <- parse5_pat_non_alnums(string) # RStudio.V11 -> RStudio_._V11
string
}
parsing_option_1_abbr <- function(string, numerals, sep_in) {
string <- stringr::str_split(string, "_\\sl|r\\s_")
string <- lapply(string,
function(x) ifelse(stringr::str_detect(x, "^[^\\sl]"),
parsing_option_1(x, numerals = numerals, sep_in = sep_in),
x)
)
string <- vapply(string,
function(x) stringr::str_c(x, collapse = "_"), "",
USE.NAMES = FALSE)
string <- stringr::str_replace_all(string, "\\sl|r\\s", "")
string
}
if ((parsing_option == 1 | parsing_option == -1) & is.null(abbreviations)) {
string <- parsing_option_1(string = string, numerals = numerals, sep_in = sep_in)
}
if ((parsing_option == 1 | parsing_option == -1) & !is.null(abbreviations)) {
string_index <- stringr::str_detect(string, pattern = "\\s")
string[string_index] <- parsing_option_1_abbr(string = string[string_index], numerals = numerals, sep_in = sep_in)
string[!string_index] <- parsing_option_1(string = string[!string_index], numerals = numerals, sep_in = sep_in)
}
# case: 2 RRRStudioSStudioStudio -> RRRS_tudio_SS_tudio_Studio
parsing_option_2 <- function(string, numerals, sep_in) {
string <- preprocess_internal(string, sep_in)
if (numerals == "asis") {
string <- parse6_mark_digits(string)
}
string <- parse3_pat_caps(string)
string <- parse1_pat_cap_smalls(string)
string <- parse2_pat_digits(string)
string <- parse4_pat_cap(string)
string <- parse5_pat_non_alnums(string)
string
}
parsing_option_2_abbr <- function(string, numerals, sep_in) {
string <- stringr::str_split(string, "_\\sl|r\\s_")
string <- lapply(string,
function(x) ifelse(stringr::str_detect(x, "^[^\\sl]"),
parsing_option_2(x, numerals = numerals, sep_in = sep_in),
x)
)
string <- vapply(string,
function(x) stringr::str_c(x, collapse = "_"), "",
USE.NAMES = FALSE)
string <- stringr::str_replace_all(string, "\\sl|r\\s", "")
string
}
if ((parsing_option == 2 | parsing_option == -2) & is.null(abbreviations)) {
string <- parsing_option_2(string = string, numerals = numerals, sep_in = sep_in)
}
if ((parsing_option == 2 | parsing_option == -2) & !is.null(abbreviations)) {
string_index <- stringr::str_detect(string, pattern = "\\s")
string[string_index] <- parsing_option_2_abbr(string = string[string_index], numerals = numerals, sep_in = sep_in)
string[!string_index] <- parsing_option_2(string = string[!string_index], numerals = numerals, sep_in = sep_in)
}
# case: 3 RRRStudioSStudioStudio -> RRRStudio_SStudio_Studio
parsing_option_3 <- function(string, numerals, sep_in) {
string <- preprocess_internal(string, sep_in)
if (numerals == "asis") {
string <- parse6_mark_digits(string)
}
string <- parse7_pat_caps_smalls(string)
string <- parse8_pat_smalls_after_non_alnums(string)
string <- parse2_pat_digits(string)
string <- parse4_pat_cap(string)
string <- parse5_pat_non_alnums(string)
string
}
parsing_option_3_abbr <- function(string, numerals, sep_in) {
string <- stringr::str_split(string, "_\\sl|r\\s_")
string <- lapply(string,
function(x) ifelse(stringr::str_detect(x, "^[^\\sl]"),
parsing_option_3(x, numerals = numerals, sep_in = sep_in),
x)
)
string <- vapply(string,
function(x) stringr::str_c(x, collapse = "_"), "",
USE.NAMES = FALSE)
string <- stringr::str_replace_all(string, "\\sl|r\\s", "")
string
}
if ((parsing_option == 3 | parsing_option == -3) & is.null(abbreviations)) {
string <- parsing_option_3(string, numerals, sep_in = sep_in)
}
if ((parsing_option == 3 | parsing_option == -3) & !is.null(abbreviations)) {
string_index <- stringr::str_detect(string, pattern = "\\s")
string[string_index] <- parsing_option_3_abbr(string = string[string_index], numerals = numerals, sep_in = sep_in)
string[!string_index] <- parsing_option_3(string = string[!string_index], numerals = numerals, sep_in = sep_in)
}
# case:6 email1_2 -> email 1_2
# if (parsing_option == 4) {
# string <- parse5_mark_digits(string)
# string <- parse1_pat_cap_smalls(string)
# string <- parse2_pat_caps2(string)
# string <- parse3_pat_cap_lonely(string)
# string <- parse4_separate_non_alnums(string)
# }
### customize the output
# remove more than one "_" and starting/ending "_"
string <- stringr::str_replace_all(string, "_+", "_")
string <- stringr::str_replace_all(string, "^_|_$", "")
if (parsing_option %in% c(-1, -2, -3)) {
string <- stringr::str_replace_all(string, "_(?![:alnum:])|(? RRR_Studio}}
#' \item{2: \code{RRRStudio -> RRRS_tudio}}
#' \item{3: parses at the beginning like option 1 and the rest like option 2.}
#' \item{4: parses at the beginning like option 2 and the rest like option 1.}
#' \item{5: parses like option 1 but suppresses "_" around non special characters.
#' In this way case conversion won't apply after these characters. See examples.}
#' \item{6: parses like option 1, but digits directly behind/in front non-digits, will stay as is.}
#' \item{any other integer <= 0: no parsing"}
#' }
#'
#' @return A character vector separated by underscores, containing the parsed string.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
check_design_rule <- function(string, sep_in = NULL,
transliterations = NULL, sep_out = NULL, prefix = "",
postfix = "", unique_sep = NULL, empty_fill = NULL, parsing_option = 1){
test_c <- function(string, case){
to_any_case(string = string, case = case, sep_in = sep_in,
transliterations = transliterations,
sep_out = sep_out, prefix = prefix, postfix = postfix,
unique_sep = unique_sep, empty_fill = empty_fill,
parsing_option = parsing_option)
}
all(
# snake
test_c(string, case = "snake") == test_c(test_c(string, case = "snake"), case = "snake"),
test_c(string, case = "snake") == test_c(test_c(string, case = "small_camel"), case = "snake"),
test_c(string, case = "snake") == test_c(test_c(string, case = "big_camel"), case = "snake"),
test_c(string, case = "snake") == test_c(test_c(string, case = "screaming_snake"), case = "snake"),
# small_camel
test_c(string, case = "small_camel") == test_c(test_c(string, case = "snake"), case = "small_camel"),
test_c(string, case = "small_camel") == test_c(test_c(string, case = "small_camel"), case = "small_camel"),
test_c(string, case = "small_camel") == test_c(test_c(string, case = "big_camel"), case = "small_camel"),
test_c(string, case = "small_camel") == test_c(test_c(string, case = "screaming_snake"), case = "small_camel"),
# big_camel
test_c(string, case = "big_camel") == test_c(test_c(string, case = "snake"), case = "big_camel"),
test_c(string, case = "big_camel") == test_c(test_c(string, case = "small_camel"), case = "big_camel"),
test_c(string, case = "big_camel") == test_c(test_c(string, case = "big_camel"), case = "big_camel"),
test_c(string, case = "big_camel") == test_c(test_c(string, case = "screaming_snake"), case = "big_camel"),
# screaming_snake
test_c(string, case = "screaming_snake") == test_c(test_c(string, case = "snake"), case = "screaming_snake"),
test_c(string, case = "screaming_snake") == test_c(test_c(string, case = "small_camel"), case = "screaming_snake"),
test_c(string, case = "screaming_snake") == test_c(test_c(string, case = "big_camel"), case = "screaming_snake"),
test_c(string, case = "screaming_snake") == test_c(test_c(string, case = "screaming_snake"), case = "screaming_snake")
)
}
snakecase/R/preprocess_internal.R 0000644 0001762 0000144 00000001402 13471754746 016633 0 ustar ligges users #' Internal function that replaces regex matches with underscores
#'
#' @param string A string.
#' @param sep_in (short for separator input) A regex supplied as a character (if not \code{NULL}), which will be wrapped internally
#' into \code{stringr::regex()}. All matches will be replaced by underscores (additionally to
#' \code{"_"} and \code{" "}, for which this is always true). Underscores can later turned into another separator via \code{postprocess}.
#'
#' @return A character containing the parsed string.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
preprocess_internal <- function(string, sep_in){
if(!is.null(sep_in)){
string <- stringr::str_replace_all(string, sep_in, "_")
}
string
} snakecase/R/replace_special_characters_internal.R 0000644 0001762 0000144 00000006334 13420646202 021746 0 ustar ligges users #' Internal helper to replace special characters.
#'
#' @param string A string (for example names of a data frame).
#' @param transliterations A character vector (if not \code{NULL}). The entries of this argument
#' need to be elements of \code{stringi::stri_trans_list()} (like "Latin-ASCII", which is often useful) or names of lookup tables (currently
#' only "german" is supported). In the order of the entries the letters of the input
#' string will be transliterated via \code{stringi::stri_trans_general()} or replaced via the
#' matches of the lookup table. When named character elements are supplied as part of `transliterations`, anything that matches the names is replaced by the corresponding value.
#' You should use this feature with care in case of \code{case = "parsed"}, \code{case = "internal_parsing"} and
#' \code{case = "none"}, since for upper case letters, which have transliterations/replacements
#' of length 2, the second letter will be transliterated to lowercase, for example Oe, Ae, Ss, which
#' might not always be what is intended. In this case you can make usage of the option to supply named elements and specify the transliterations yourself.
#'
#' @param case Length one character, from the input options of \code{to_any_case}.
#'
#' @return A character vector.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
replace_special_characters_internal <- function(string, transliterations, case){
dictionary <- list(
german = c("\u00C4" = "Ae", "\u00D6" = "Oe", "\u00DC" = "Ue",
"\u00E4" = "ae", "\u00F6" = "oe", "\u00FC" = "ue",
"\u00DF" = "ss"),
danish = c("\u00C6" = "Ae",
"\u00E6" = "ae",
"\u00D8" = "Oe",
"\u00F8" = "oe",
"\u00C5" = "Aa",
"\u00E5" = "aa"),
finnish = c("\u00C6" = "A",
"\u00E6" = "a",
"\u00D8" = "O",
"\u00F8" = "o"),
swedish = c("\u00C6" = "A",
"\u00E6" = "a",
"\u00D8" = "O",
"\u00F8" = "o",
"\u00C5" = "A",
"\u00E5" = "a")
)
for (i in seq_along(transliterations)){
if(isTRUE(!is.null(names(transliterations)[i]) &
names(transliterations)[i] != "")){
names(transliterations)[i] <- enc2utf8(names(transliterations))[i]
string <- stringr::str_replace_all(string, transliterations[i])
} else if(transliterations[i] %in% names(dictionary)){
names(dictionary[[transliterations[i]]]) <- enc2utf8(names(dictionary[[transliterations[i]]]))
string <- stringr::str_replace_all(enc2utf8(string), dictionary[[transliterations[i]]])
} else if(transliterations[i] %in% stringi::stri_trans_list()){
string <- stringi::stri_trans_general(string, transliterations[i])
} else {
stop("Input to `transliterations` must be `NULL`, a string containing elements from the internal lookup dictionaries or from `stringi::stri_trans_list()` or a named vector.",
call. = FALSE)
}
}
# "\u0025" = "_percent_",
# "\\`" = "",
# "\\'" = "",
# "\\@" = "_at_")
string
} snakecase/R/abbreviation_internal.R 0000644 0001762 0000144 00000006314 13472123712 017102 0 ustar ligges users #' Internal abbreviation marker, marks abbreviations with an underscore behind.
#' Useful if \code{parsing_option} 1 is needed, but some abbreviations need \code{parsing_option} 2.
#'
#' @param string A string (for example names of a data frame).
#' @param abbreviations character with (uppercase) abbreviations. This marks
#' abbreviations with an underscore behind (in front of the parsing).
#' Useful if \code{parsing_option} 1 is needed, but some abbreviations need \code{parsing_option} 2.
#'
#' @return A character vector.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
abbreviation_internal <- function(string, abbreviations = NULL){
if (!is.null(abbreviations)) {
abbreviations_upper <- stringr::str_to_upper(abbreviations)
if (length(abbreviations_upper)) {
# replace at start
pattern_start <- stringr::str_c("(", stringr::str_c("^", abbreviations_upper, collapse = "|"), ")", "(?=[^[:upper:]])")
string <- stringr::str_replace_all(string, pattern_start, replacement = "_ l l\\1r r _")
# replace in the middle
pattern_middle <- stringr::str_c("(?<=[^[:upper:]])(", stringr::str_c(abbreviations_upper, collapse = "|"), ")", "(?=[^[:upper:]])")
string <- stringr::str_replace_all(string, pattern_middle, replacement = "_ l l\\1r r _")
# replace in the end
pattern_end <- stringr::str_c("(?<=[^[:upper:]])(", stringr::str_c(abbreviations_upper, "$", collapse = "|"), ")")
string <- stringr::str_replace_all(string, pattern_end, replacement = "_ l l\\1r r _")
# replace from start to end
pattern_start_to_end <- stringr::str_c("^(", stringr::str_c(abbreviations_upper, "$", collapse = "|"), ")")
string <- stringr::str_replace_all(string, pattern_start_to_end, replacement = "_ l l\\1r r _")
}
abbreviations_lower <- stringr::str_to_lower(abbreviations)
if (length(abbreviations_lower)) {
# replace at start
pattern_start <- stringr::str_c("(", stringr::str_c("^", abbreviations_lower, collapse = "|"), ")", "(?=[^[:lower:]])")
string <- stringr::str_replace_all(string, pattern_start, replacement = "_ l l\\1r r _")
# replace in the middle
pattern_middle <- stringr::str_c("(?<=[^[:lower:]])(", stringr::str_c(abbreviations_lower, collapse = "|"), ")", "(?=[^[:lower:]])")
string <- stringr::str_replace_all(string, pattern_middle, replacement = "_ l l\\1r r _")
# replace in the end
pattern_end <- stringr::str_c("(?<=[^[:lower:]])(", stringr::str_c(abbreviations_lower, "$", collapse = "|"), ")")
string <- stringr::str_replace_all(string, pattern_end, replacement = "_ l l\\1r r _")
# replace from start to end
pattern_start_to_end <- stringr::str_c("^(", stringr::str_c(abbreviations_lower, "$", collapse = "|"), ")")
string <- stringr::str_replace_all(string, pattern_start_to_end, replacement = "_ l l\\1r r _")
}
}
string <- stringr::str_replace_all(string, "(_\\sl\\sl)+", "_ l l")
# string <- stringr::str_replace_all("_ l l_ l lRSSr r _r r _feed_ l lRSSr r _feed", "(_\\sl\\sl)+", "_ l l")
string <- stringr::str_replace_all(string, "(r\\sr\\s_)+", "r r _")
string
}
snakecase/R/caseconverters.R 0000644 0001762 0000144 00000043220 13471106767 015576 0 ustar ligges users #' Specific case converter shortcuts
#'
#' Wrappers around \code{to_any_case()}
#'
#' @param string A string (for example names of a data frame).
#'
#' @param abbreviations character. (Case insensitive) matched abbreviations are surrounded by underscores. In this way, they can get recognized by the parser. This is useful when e.g. \code{parsing_option} 1 is needed for the use case, but some abbreviations but some substrings would require \code{parsing_option} 2. Furthermore, this argument also specifies the formatting of abbreviations in the output for the cases title, mixed, lower and upper camel. E.g. for upper camel the first letter is always in upper case, but when the abbreviation is supplied in upper case, this will also be visible in the output.
#'
#' Use this feature with care: One letter abbreviations and abbreviations next to each other are hard to read and also not easy to parse for further processing.
#'
#' @param sep_in (short for separator input) if character, is interpreted as a
#' regular expression (wrapped internally into \code{stringr::regex()}).
#' The default value is a regular expression that matches any sequence of
#' non-alphanumeric values. All matches will be replaced by underscores
#' (additionally to \code{"_"} and \code{" "}, for which this is always true, even
#' if \code{NULL} is supplied). These underscores are used internally to split
#' the strings into substrings and specify the word boundaries.
#'
#' @param parsing_option An integer that will determine the parsing_option.
#' \itemize{
#' \item{1: \code{"RRRStudio" -> "RRR_Studio"}}
#' \item{2: \code{"RRRStudio" -> "RRRS_tudio"}}
#' \item{3: \code{"RRRStudio" -> "RRRSStudio"}. This will become for example \code{"Rrrstudio"} when we convert to lower camel case.}
#' \item{-1, -2, -3: These \code{parsing_options}'s will suppress the conversion after non-alphanumeric values.}
#' \item{0: no parsing}
#' }
#'
#' @param transliterations A character vector (if not \code{NULL}). The entries of this argument
#' need to be elements of \code{stringi::stri_trans_list()} (like "Latin-ASCII", which is often useful) or names of lookup tables (currently
#' only "german" is supported). In the order of the entries the letters of the input
#' string will be transliterated via \code{stringi::stri_trans_general()} or replaced via the
#' matches of the lookup table. When named character elements are supplied as part of `transliterations`, anything that matches the names is replaced by the corresponding value.
#' You should use this feature with care in case of \code{case = "parsed"}, \code{case = "internal_parsing"} and
#' \code{case = "none"}, since for upper case letters, which have transliterations/replacements
#' of length 2, the second letter will be transliterated to lowercase, for example Oe, Ae, Ss, which
#' might not always be what is intended. In this case you can make usage of the option to supply named elements and specify the transliterations yourself.
#'
#' @param numerals A character specifying the alignment of numerals (\code{"middle"}, \code{left}, \code{right} or \code{asis}). I.e. \code{numerals = "left"} ensures that no output separator is in front of a digit.
#'
#' @param sep_out (short for separator output) String that will be used as separator. The defaults are \code{"_"}
#' and \code{""}, regarding the specified \code{case}. When \code{length(sep_out) > 1}, the last element of \code{sep_out} gets recycled and separators are incorporated per string according to their order.
#'
#' @param unique_sep A string. If not \code{NULL}, then duplicated names will get
#' a suffix integer
#' in the order of their appearance. The suffix is separated by the supplied string
#' to this argument.
#'
#' @param empty_fill A string. If it is supplied, then each entry that matches "" will be replaced
#' by the supplied string to this argument.
#'
#' @param prefix prefix (string).
#'
#' @param postfix postfix (string).
#'
#' @return A character vector according the specified parameters above.
#'
#' @note caseconverters are vectorised over \code{string}, \code{sep_in}, \code{sep_out},
#' \code{empty_fill}, \code{prefix} and \code{postfix}.
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
#' @name caseconverter
#' @return A character vector according the specified target case.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
#' @examples
#' strings <- c("this Is a Strange_string", "AND THIS ANOTHER_One", NA)
#'
#' to_snake_case(strings)
#' to_lower_camel_case(strings)
#' to_upper_camel_case(strings)
#' to_screaming_snake_case(strings)
#' to_lower_upper_case(strings)
#' to_upper_lower_case(strings)
#' to_parsed_case(strings)
#' to_mixed_case(strings)
#' to_swap_case(strings)
#' to_sentence_case(strings)
#' to_random_case(strings)
#' to_title_case(strings)
#'
#'
#' @rdname caseconverter
#' @seealso \href{https://github.com/Tazinho/snakecase}{snakecase on github}, \code{\link{to_any_case}} for flexible high level conversion and more examples.
#' @export
to_snake_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "snake",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_lower_camel_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "lower_camel",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_upper_camel_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "upper_camel",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_screaming_snake_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "screaming_snake",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_parsed_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "parsed",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_mixed_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "mixed",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_lower_upper_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "lower_upper",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_upper_lower_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "upper_lower",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_swap_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "swap",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_sentence_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "sentence",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_random_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "random",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
#' @rdname caseconverter
#' @export
to_title_case <- function(string,
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = "middle",
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
to_any_case(string = string,
case = "title",
sep_in = sep_in,
transliterations = transliterations,
numerals = numerals,
sep_out = sep_out,
prefix = prefix,
postfix = postfix,
unique_sep = unique_sep,
empty_fill = empty_fill,
parsing_option = parsing_option,
abbreviations = abbreviations)
}
snakecase/R/to_any_case.R 0000644 0001762 0000144 00000061231 13472260261 015025 0 ustar ligges users #' General case conversion
#'
#' Function to convert strings to any case
#'
#' @param string A string (for example names of a data frame).
#'
#' @param case The desired target case, provided as one of the following:
#' \itemize{
#' \item{snake_case: \code{"snake"}}
#' \item{lowerCamel: \code{"lower_camel"} or \code{"small_camel"}}
#' \item{UpperCamel: \code{"upper_camel"} or \code{"big_camel"}}
#' \item{ALL_CAPS: \code{"all_caps"} or \code{"screaming_snake"}}
#' \item{lowerUPPER: \code{"lower_upper"}}
#' \item{UPPERlower: \code{"upper_lower"}}
#' \item{Sentence case: \code{"sentence"}}
#' \item{Title Case: \code{"title"} - This one is basically the same as sentence case, but in addition it is wrapped into \code{tools::toTitleCase} and any \code{abbreviations} are always turned into upper case.}
#'}
#'
#' There are five "special" cases available:
#' \itemize{
#' \item{\code{"parsed"}: This case is underlying all other cases.
#' Every substring a string consists
#' of becomes surrounded by an underscore (depending on the \code{parsing_option}).
#' Underscores at the start and end are trimmed. No lower or
#' upper case pattern from the input string are changed.}
#' \item{\code{"mixed"}: Almost the same as \code{case = "parsed"}. Every letter which is not at the start
#' or behind an underscore is turned into lowercase. If a substring is set as an abbreviation, it will be turned into upper case.}
#' \item{\code{"swap"}: Upper case letters will be turned into lower case and vice versa. Also \code{case = "flip"} will work.
#' Doesn't work with any of the other arguments except \code{unique_sep}, \code{empty_fill}, \code{prefix} and \code{postfix}.}
#' \item{\code{"random"}: Each letter will be randomly turned into lower or upper case. Doesn't work with any of the other arguments except \code{unique_sep}, \code{empty_fill}, \code{prefix} and \code{postfix}.}
#' \item{\code{"none"}: Neither parsing nor case conversion occur. This case might be helpful, when
#' one wants to call the function for the quick usage of the other parameters.
#' To suppress replacement of spaces to underscores set \code{sep_in = NULL}.
#' Works with \code{sep_in}, \code{transliterations}, \code{sep_out}, \code{prefix},
#' \code{postfix},
#' \code{empty_fill} and \code{unique_sep}.}
#' \item{\code{"internal_parsing"}: This case is returning the internal parsing
#' (suppressing the internal protection mechanism), which means that alphanumeric characters will be surrounded by underscores.
#' It should only be used in very rare use cases and is mainly implemented to showcase the internal workings of \code{to_any_case()}}
#' }
#'
#' @param abbreviations character. (Case insensitive) matched abbreviations are surrounded by underscores. In this way, they can get recognized by the parser. This is useful when e.g. \code{parsing_option} 1 is needed for the use case, but some abbreviations but some substrings would require \code{parsing_option} 2. Furthermore, this argument also specifies the formatting of abbreviations in the output for the cases title, mixed, lower and upper camel. E.g. for upper camel the first letter is always in upper case, but when the abbreviation is supplied in upper case, this will also be visible in the output.
#'
#' Use this feature with care: One letter abbreviations and abbreviations next to each other are hard to read and also not easy to parse for further processing.
#'
#' @param sep_in (short for separator input) if character, is interpreted as a
#' regular expression (wrapped internally into \code{stringr::regex()}).
#' The default value is a regular expression that matches any sequence of
#' non-alphanumeric values. All matches will be replaced by underscores
#' (additionally to \code{"_"} and \code{" "}, for which this is always true, even
#' if \code{NULL} is supplied). These underscores are used internally to split
#' the strings into substrings and specify the word boundaries.
#'
#' @param parsing_option An integer that will determine the parsing_option.
#' \itemize{
#' \item{1: \code{"RRRStudio" -> "RRR_Studio"}}
#' \item{2: \code{"RRRStudio" -> "RRRS_tudio"}}
#' \item{3: \code{"RRRStudio" -> "RRRSStudio"}. This will become for example \code{"Rrrstudio"} when we convert to lower camel case.}
#' \item{-1, -2, -3: These \code{parsing_options}'s will suppress the conversion after non-alphanumeric values.}
#' \item{0: no parsing}
#' }
#'
#' @param transliterations A character vector (if not \code{NULL}). The entries of this argument
#' need to be elements of \code{stringi::stri_trans_list()} (like "Latin-ASCII", which is often useful) or names of lookup tables (currently only "german" is supported). In the order of the entries the letters of the input
#' string will be transliterated via \code{stringi::stri_trans_general()} or replaced via the
#' matches of the lookup table. When named character elements are supplied as part of `transliterations`, anything that matches the names is replaced by the corresponding value.
#' You should use this feature with care in case of \code{case = "parsed"}, \code{case = "internal_parsing"} and
#' \code{case = "none"}, since for upper case letters, which have transliterations/replacements
#' of length 2, the second letter will be transliterated to lowercase, for example Oe, Ae, Ss, which
#' might not always be what is intended. In this case you can make usage of the option to supply named elements and specify the transliterations yourself.
#'
#' @param numerals A character specifying the alignment of numerals (\code{"middle"}, \code{left}, \code{right}, \code{asis} or \code{tight}). I.e. \code{numerals = "left"} ensures that no output separator is in front of a digit.
#'
#' @param sep_out (short for separator output) String that will be used as separator. The defaults are \code{"_"}
#' and \code{""}, regarding the specified \code{case}. When \code{length(sep_out) > 1}, the last element of \code{sep_out} gets recycled and separators are incorporated per string according to their order.
#'
#' @param unique_sep A string. If not \code{NULL}, then duplicated names will get
#' a suffix integer
#' in the order of their appearance. The suffix is separated by the supplied string
#' to this argument.
#'
#' @param empty_fill A string. If it is supplied, then each entry that matches "" will be replaced
#' by the supplied string to this argument.
#'
#' @param prefix prefix (string).
#'
#' @param postfix postfix (string).
#'
#' @return A character vector according the specified parameters above.
#'
#' @note \code{to_any_case()} is vectorised over \code{string}, \code{sep_in}, \code{sep_out},
#' \code{empty_fill}, \code{prefix} and \code{postfix}.
#'
#' @author Malte Grosser, \email{malte.grosser@@gmail.com}
#' @keywords utilities
#'
#' @examples
#' ### abbreviations
#' to_snake_case(c("HHcity", "newUSElections"), abbreviations = c("HH", "US"))
#' to_upper_camel_case("succesfullGMBH", abbreviations = "GmbH")
#' to_title_case("succesfullGMBH", abbreviations = "GmbH")
#'
#' ### sep_in (input separator)
#' string <- "R.St\u00FCdio: v.1.0.143"
#' to_any_case(string)
#' to_any_case(string, sep_in = ":|\\.")
#' to_any_case(string, sep_in = ":|(?"))
#'
#' ### prefix and postfix
#' to_upper_camel_case("some_path", sep_out = "//",
#' prefix = "USER://", postfix = ".exe")
#'
#' @seealso \href{https://github.com/Tazinho/snakecase}{snakecase on github} or
#' \code{\link{caseconverter}} for some handy shortcuts.
#'
#' @export
#'
to_any_case <- function(string,
case = c("snake", "small_camel", "big_camel", "screaming_snake",
"parsed", "mixed", "lower_upper", "upper_lower", "swap",
"all_caps", "lower_camel", "upper_camel", "internal_parsing",
"none", "flip", "sentence", "random", "title"),
abbreviations = NULL,
sep_in = "[^[:alnum:]]",
parsing_option = 1,
transliterations = NULL,
numerals = c("middle", "left", "right", "asis", "tight"),
sep_out = NULL,
unique_sep = NULL,
empty_fill = NULL,
prefix = "",
postfix = ""){
### ____________________________________________________________________________
### Argument matching
case <- match.arg(case)
numerals <- match.arg(numerals)
### ____________________________________________________________________________
### Set encoding to utf8
string <- enc2utf8(string)
### ____________________________________________________________________________
### Argument checking (check input length -> necessary for NULL and atomic(0))
if (identical(stringr::str_length(string), integer())) {return(character())}
### ____________________________________________________________________________
### Save attributes
string_attributes <- attributes(string)
### ____________________________________________________________________________
### Handle aliases
case[case == "all_caps"] <- "screaming_snake"
case[case == "lower_camel"] <- "small_camel"
case[case == "upper_camel"] <- "big_camel"
case[case == "flip"] <- "swap"
### ____________________________________________________________________________
### Prepare abbreviations
if(!is.null(abbreviations)) {
abbreviations <- abbreviations[!is.na(abbreviations)]
abbreviations <- unique(abbreviations)
names(abbreviations) <- stringr::str_to_lower(abbreviations)
}
### ____________________________________________________________________________
### Prepare title case
title <- if (case == "title") TRUE else FALSE
case[case == "title"] <- "sentence"
### ____________________________________________________________________________
### Handle swap case
if (case == "swap") {
string <- gsub(pattern = "([[:upper:]])|([[:lower:]])",
perl = TRUE,
replacement = "\\L\\1\\U\\2",
string)}
### ____________________________________________________________________________
### Handle random case
if (case == "random") {
random_case <- function(string) {
upper_or_lower <- function(string) {
if(sample(c(TRUE, FALSE), 1)) {return(stringr::str_to_upper(string))}
stringr::str_to_lower(string)
}
unlist(
lapply(
strsplit(string, split = character(0)),
function(x) paste0(unlist(lapply(x, upper_or_lower)), collapse = "")
)
)
}
string <- random_case(string)
}
### ____________________________________________________________________________
### Match abbreviations
# mark abbreviation by placing an underscore behind them (in front of the parsing)
if (!case %in% c("swap", "random", "none")) {
string <- stringr::str_replace_all(string, "[:blank:]", "_") # important, as I'd like to use sth like "_ l abbr r_" around abbreviations
string <- abbreviation_internal(string, abbreviations)
}
### ____________________________________________________________________________
### Preprocessing:
## Turn mateches of `sep_in` into "_" and
## surround matches of the parsing by "_" (parsed_case)
if (!case %in% c("swap", "random")) {
if(case == "none") {
string <- preprocess_internal(string, sep_in = sep_in)
}
if (case != "none") {
string <- to_parsed_case_internal(string,
parsing_option = parsing_option,
numerals = numerals,
abbreviations = abbreviations,
sep_in = sep_in)
} else {
string <- vapply(string, stringr::str_replace_all, "","_+", "_",
USE.NAMES = FALSE)
string <- vapply(string, stringr::str_replace_all, "","^_|_$", "",
USE.NAMES = FALSE)
}
### ____________________________________________________________________________
### "mixed", "snake", "small_camel", "big_camel", "screaming_case", "parsed"
if (case %in% c("mixed", "snake", "small_camel",
"big_camel", "screaming_snake", "parsed",
"lower_upper", "upper_lower", "sentence")) {
### split-----------------------------------------------------------------------
if (case %in% c("mixed", "snake", "screaming_snake", "parsed", "lower_upper", "upper_lower", "sentence")) {
string <- stringr::str_split(string, "_")
}
#. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
if (case %in% c("small_camel", "big_camel")) {
string <- stringr::str_split(string, pattern = "(?
%\VignetteIndexEntry{Caseconverters}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
## Basic examples
Default case is snake case
```{r, collapse = TRUE}
library(snakecase)
to_any_case("veryComplicatedString")
```
Of course other cases are supported (`case`) and separators can be adjusted (`sep_out`)
```{r, collapse = TRUE}
to_any_case(names(iris), sep_in = "\\.", case = "upper_camel", sep_out = " ")
```
And you might want to remove special characters along the way
```{r, collapse = TRUE}
to_any_case("Doppelgänger is originally german",
transliterations = "german", case = "upper_camel")
```
All of the cases like: snake, lower_camel, upper_camel, all_caps, lower_upper, upper_lower, mixed and sentence are based on parsed case
```{r, collapse = TRUE}
to_any_case("THISIsHOW IAmPARSED!", case = "parsed")
```
Shortcut wrappers like `to_snake_case`, `to_lower_camel_case` etc. are available.
Be aware that automatic case conversion depends on the input string and it is recommended to verify the results. So you might want to pipe these into `dput()` and hardcode name changes instead of blindly trusting `to_any_case()`'s output:
```{r, collapse = TRUE}
dput(to_any_case(c("SomeBAdInput", "someGoodInput")))
```
If you are interested in the design of this package, you can find more information on its [github page](https://github.com/Tazinho/snakecase). snakecase/vignettes/introducing-the-snakecase-package.Rmd 0000644 0001762 0000144 00000006604 13471335326 023327 0 ustar ligges users ---
title: "Introducing the snakecase package"
author: "Malte Grosser"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
%\VignetteIndexEntry{Introducing the snakecase package}
%\VignetteEngine{knitr::rmarkdown}
%\VignetteEncoding{UTF-8}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,
comment = "#>",
collapse = TRUE
)
```
There are many style guides out there which recommend specific naming conventions for programming languages. At 2017’s useR conference Rasmus Bååth showed quite impressively the variety of cases which even exist within base R in his talk ["The current state of naming conventions in R"](https://www.youtube.com/watch?v=Pv5dfsHBBKE).
However, consistent style is not only about naming new objects.
## Import
When you do a data analysis, most of the data already exists and you import it from disk, an API or a database. Here is the first moment in your data analysis when you have to decide if you want to rename your data or leave it as it is.
Let’s say you have some data named in any of the following conventions
```{r}
string <- c("lowerCamelCase", "ALL_CAPS", "IDontKNOWWhat_thisCASE_is")
```
You can now easily convert this string for example to snake case via
```{r}
library(snakecase)
to_snake_case(string)
```
## Graphics
Whenever you want to construct a graphic and you don’t like your conventions to come up in it, you can easily convert strings to a more humanly readable output like
```{r}
to_mixed_case(string, sep_out = " ")
```
You might have noticed the `sep_out` argument. This allows you to combine any case with any output separator to create other well known cases like
```{r}
to_snake_case(string, sep_out = ".")
to_snake_case(string, sep_out = "-")
```
or completely new ones like
```{r}
to_screaming_snake_case(string, sep_out = "=")
```
## Export
Finally, when you are done with your analysis and want to write data back into a .CSV file or your customers database, which has a camel case convention, you can just use
```{r}
to_upper_camel_case(string)
```
## Further information
The snakecase package goes quite deep into the little quirks which arise in automatic case conversion. However, it is well tweaked, to handle almost every edge case in an intuitive and elegant manner.
To get a complete overview of its functionality like other cases, handling of abbreviations, special input characters, different parsing options, transliterations and more, I recommend you to have a look into the quite extensive [readme on its github repository](https://github.com/Tazinho/snakecase).
As the package is relatively small and basically consists of its workhorse function `to_any_case()`, I can also react quite fast on new [issues](https://github.com/Tazinho/snakecase/issues).
And of course I [tweet](https://twitter.com/malte_grosser) occasionally about new functionality.
To round this up let me give you one advice about best practices: be aware that automatic case conversion depends on the input string and it is recommended to verify the results. Hence you might want to pipe them into `dput()` and hard-code name changes instead of blindly trusting the output
```{r}
library(magrittr)
to_any_case(c("SomeBAdInput", "someGoodInput")) %>% dput()
```
Happy snakecasing everyone ;) snakecase/MD5 0000644 0001762 0000144 00000006114 13472343233 012525 0 ustar ligges users 8891cdf5cff8a15c4cf40f12a7b1536b *DESCRIPTION
6426c25a3ae2976c65061d638bafb47e *NAMESPACE
58a480f99ba5dafbbd095140b14487cf *NEWS.md
318bfc11a7a5b9218519bdc0beff0721 *R/abbreviation_internal.R
0cc2c6f503a283072788227e3d48a57e *R/caseconverters.R
89cd34d099ee9163e986d5c2381f3d17 *R/check_design_rule.R
1061b55c06af44c7685a325a8ba19533 *R/parsing_helpers_internal.R
f90f0f9ea5343a5bf71f3a6d9f3bf534 *R/preprocess_internal.R
f91fc95fd7cc4dc63e0d9575e0218aae *R/relevant.R
f0e9b0160882fa6038dd048981c048e8 *R/replace_special_characters_internal.R
9bf9dd9abf50e46f7662d009fba05e8c *R/to_any_case.R
8b1a3f01126297a7aa268e12c39551b7 *R/to_parsed_case_internal.R
ef479212e1fef27cd56c3216ed40d835 *build/vignette.rds
5fac1b30c9c28ee0a45fdec21256336a *inst/doc/caseconverters.R
107033a90ad1266083fd92f59444a2ab *inst/doc/caseconverters.Rmd
f1e63b7cd96c7eece3676f3c63fdf1c7 *inst/doc/caseconverters.html
e83af1e0a830052205999b6b44b3c400 *inst/doc/introducing-the-snakecase-package.R
0137bc2384cf1e57a083a4fb5ba58bd1 *inst/doc/introducing-the-snakecase-package.Rmd
271b1ba436ca15d876d8c8fb4e9dd9c9 *inst/doc/introducing-the-snakecase-package.html
71a19974365c42c73e43cddc4ea4c9d2 *man/abbreviation_internal.Rd
a646f5d6f29210095358fd88e4cb978a *man/caseconverter.Rd
4da9aef1b3c10185e550f8d8e48cdba0 *man/check_design_rule.Rd
83e2a828dda785f39338287ca2e4d96b *man/figures/Workflow01.PNG
7b513dcead06bad1930da8815f272a32 *man/figures/Workflow02.PNG
0039b3cf48c3f6aa41f5ab851b8c5fe5 *man/figures/snakecase05.png
0c6e666ac3b9155037b31187b9a904d2 *man/parsing_helpers.Rd
6a1bf1cf0b4620ba7c4cd11f23223dae *man/preprocess_internal.Rd
37d653618cae4805f91e2e6fa5a3aa51 *man/relevant.Rd
e4182b789b2ea25a92dc4b75eb229943 *man/replace_special_characters_internal.Rd
7d80a86aac41e43a7fea5eaf61f21219 *man/to_any_case.Rd
5d972fe31425d257b79b3cfafab5ce5a *man/to_parsed_case_internal.Rd
8bfea527c40e1c17308d8b48b36bab5d *tests/testthat.R
543f9c4d2c976822d1679029d1e41668 *tests/testthat/helper-examples.R
594c2035d0e5f19d4504ab3809444dc1 *tests/testthat/test-to_any_case.R
97563ef453d1b4a2a04c60135229235c *tests/testthat/test-to_lower_camel_case.R
d267da929f4936b49183d3a062eeb526 *tests/testthat/test-to_lower_upper_case.R
33749b1426a953ccd9bc1462e527f3dd *tests/testthat/test-to_mixed_case.R
1e89fa4003ff9a63200c9a948ccb0ccb *tests/testthat/test-to_parsed_case.R
1244e2949f281f1aa676541d55a1dbf9 *tests/testthat/test-to_parsed_case_internal.R
54b8f212ab6d3acd9b7f2da42aecb24f *tests/testthat/test-to_random_case.R
fd40b77e091bcdeb976902fe7e3d516f *tests/testthat/test-to_screaming_snake_case.R
a5912e660571ea6458106fc92d6e2e75 *tests/testthat/test-to_sentence_case.R
50a7ef6349ded06ce9d39e3a79a801f9 *tests/testthat/test-to_snake_case.R
d9548ba4a694a8902bcf7480d47dd48e *tests/testthat/test-to_swap_case.R
d0778b5f3ab5cee6c1ad85b4881d6bfb *tests/testthat/test-to_title_case.R
b80f98ee27cc193dbf6ac4470ed936f3 *tests/testthat/test-to_upper_camel_case.R
f8d61497211f9e20a3f120636e4eccaf *tests/testthat/test-to_upper_lower_case.R
107033a90ad1266083fd92f59444a2ab *vignettes/caseconverters.Rmd
0137bc2384cf1e57a083a4fb5ba58bd1 *vignettes/introducing-the-snakecase-package.Rmd
snakecase/build/ 0000755 0001762 0000144 00000000000 13472330271 013310 5 ustar ligges users snakecase/build/vignette.rds 0000644 0001762 0000144 00000000401 13472330271 015642 0 ustar ligges users ϊ0پ@E־"^5T';ND/3o&u1F 6(uu1 AdeQg K(b
- Şo
P>jjg҄Z*pP&7 Y)QHn5hES45[$8;ͭp~fs:6 #o82uuQWe.,]0y~; ֑{7<(I
x= snakecase/DESCRIPTION 0000644 0001762 0000144 00000001453 13472343233 013724 0 ustar ligges users Package: snakecase
Version: 0.11.0
Date: 2019-05-25
Title: Convert Strings into any Case
Description: A consistent, flexible and easy to use tool to parse and convert strings into cases like snake or camel among others.
Authors@R: c(
person("Malte", "Grosser", , "malte.grosser@gmail.com", role = c("aut", "cre")))
Maintainer: Malte Grosser
Depends: R (>= 3.2)
Imports: stringr, stringi
Suggests: testthat, covr, tibble, purrrlyr, knitr, rmarkdown, magrittr
URL: https://github.com/Tazinho/snakecase
BugReports: https://github.com/Tazinho/snakecase/issues
Encoding: UTF-8
License: GPL-3
RoxygenNote: 6.1.1
VignetteBuilder: knitr
NeedsCompilation: no
Packaged: 2019-05-25 21:16:42 UTC; MGO
Author: Malte Grosser [aut, cre]
Repository: CRAN
Date/Publication: 2019-05-25 22:50:03 UTC
snakecase/man/ 0000755 0001762 0000144 00000000000 13472235220 012762 5 ustar ligges users snakecase/man/caseconverter.Rd 0000644 0001762 0000144 00000017737 13471106767 016147 0 ustar ligges users % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/caseconverters.R
\name{caseconverter}
\alias{caseconverter}
\alias{to_snake_case}
\alias{to_lower_camel_case}
\alias{to_upper_camel_case}
\alias{to_screaming_snake_case}
\alias{to_parsed_case}
\alias{to_mixed_case}
\alias{to_lower_upper_case}
\alias{to_upper_lower_case}
\alias{to_swap_case}
\alias{to_sentence_case}
\alias{to_random_case}
\alias{to_title_case}
\title{Specific case converter shortcuts}
\usage{
to_snake_case(string, abbreviations = NULL, sep_in = "[^[:alnum:]]",
parsing_option = 1, transliterations = NULL, numerals = "middle",
sep_out = NULL, unique_sep = NULL, empty_fill = NULL,
prefix = "", postfix = "")
to_lower_camel_case(string, abbreviations = NULL,
sep_in = "[^[:alnum:]]", parsing_option = 1,
transliterations = NULL, numerals = "middle", sep_out = NULL,
unique_sep = NULL, empty_fill = NULL, prefix = "", postfix = "")
to_upper_camel_case(string, abbreviations = NULL,
sep_in = "[^[:alnum:]]", parsing_option = 1,
transliterations = NULL, numerals = "middle", sep_out = NULL,
unique_sep = NULL, empty_fill = NULL, prefix = "", postfix = "")
to_screaming_snake_case(string, abbreviations = NULL,
sep_in = "[^[:alnum:]]", parsing_option = 1,
transliterations = NULL, numerals = "middle", sep_out = NULL,
unique_sep = NULL, empty_fill = NULL, prefix = "", postfix = "")
to_parsed_case(string, abbreviations = NULL, sep_in = "[^[:alnum:]]",
parsing_option = 1, transliterations = NULL, numerals = "middle",
sep_out = NULL, unique_sep = NULL, empty_fill = NULL,
prefix = "", postfix = "")
to_mixed_case(string, abbreviations = NULL, sep_in = "[^[:alnum:]]",
parsing_option = 1, transliterations = NULL, numerals = "middle",
sep_out = NULL, unique_sep = NULL, empty_fill = NULL,
prefix = "", postfix = "")
to_lower_upper_case(string, abbreviations = NULL,
sep_in = "[^[:alnum:]]", parsing_option = 1,
transliterations = NULL, numerals = "middle", sep_out = NULL,
unique_sep = NULL, empty_fill = NULL, prefix = "", postfix = "")
to_upper_lower_case(string, abbreviations = NULL,
sep_in = "[^[:alnum:]]", parsing_option = 1,
transliterations = NULL, numerals = "middle", sep_out = NULL,
unique_sep = NULL, empty_fill = NULL, prefix = "", postfix = "")
to_swap_case(string, abbreviations = NULL, sep_in = "[^[:alnum:]]",
parsing_option = 1, transliterations = NULL, numerals = "middle",
sep_out = NULL, unique_sep = NULL, empty_fill = NULL,
prefix = "", postfix = "")
to_sentence_case(string, abbreviations = NULL, sep_in = "[^[:alnum:]]",
parsing_option = 1, transliterations = NULL, numerals = "middle",
sep_out = NULL, unique_sep = NULL, empty_fill = NULL,
prefix = "", postfix = "")
to_random_case(string, abbreviations = NULL, sep_in = "[^[:alnum:]]",
parsing_option = 1, transliterations = NULL, numerals = "middle",
sep_out = NULL, unique_sep = NULL, empty_fill = NULL,
prefix = "", postfix = "")
to_title_case(string, abbreviations = NULL, sep_in = "[^[:alnum:]]",
parsing_option = 1, transliterations = NULL, numerals = "middle",
sep_out = NULL, unique_sep = NULL, empty_fill = NULL,
prefix = "", postfix = "")
}
\arguments{
\item{string}{A string (for example names of a data frame).}
\item{abbreviations}{character. (Case insensitive) matched abbreviations are surrounded by underscores. In this way, they can get recognized by the parser. This is useful when e.g. \code{parsing_option} 1 is needed for the use case, but some abbreviations but some substrings would require \code{parsing_option} 2. Furthermore, this argument also specifies the formatting of abbreviations in the output for the cases title, mixed, lower and upper camel. E.g. for upper camel the first letter is always in upper case, but when the abbreviation is supplied in upper case, this will also be visible in the output.
Use this feature with care: One letter abbreviations and abbreviations next to each other are hard to read and also not easy to parse for further processing.}
\item{sep_in}{(short for separator input) if character, is interpreted as a
regular expression (wrapped internally into \code{stringr::regex()}).
The default value is a regular expression that matches any sequence of
non-alphanumeric values. All matches will be replaced by underscores
(additionally to \code{"_"} and \code{" "}, for which this is always true, even
if \code{NULL} is supplied). These underscores are used internally to split
the strings into substrings and specify the word boundaries.}
\item{parsing_option}{An integer that will determine the parsing_option.
\itemize{
\item{1: \code{"RRRStudio" -> "RRR_Studio"}}
\item{2: \code{"RRRStudio" -> "RRRS_tudio"}}
\item{3: \code{"RRRStudio" -> "RRRSStudio"}. This will become for example \code{"Rrrstudio"} when we convert to lower camel case.}
\item{-1, -2, -3: These \code{parsing_options}'s will suppress the conversion after non-alphanumeric values.}
\item{0: no parsing}
}}
\item{transliterations}{A character vector (if not \code{NULL}). The entries of this argument
need to be elements of \code{stringi::stri_trans_list()} (like "Latin-ASCII", which is often useful) or names of lookup tables (currently
only "german" is supported). In the order of the entries the letters of the input
string will be transliterated via \code{stringi::stri_trans_general()} or replaced via the
matches of the lookup table. When named character elements are supplied as part of `transliterations`, anything that matches the names is replaced by the corresponding value.
You should use this feature with care in case of \code{case = "parsed"}, \code{case = "internal_parsing"} and
\code{case = "none"}, since for upper case letters, which have transliterations/replacements
of length 2, the second letter will be transliterated to lowercase, for example Oe, Ae, Ss, which
might not always be what is intended. In this case you can make usage of the option to supply named elements and specify the transliterations yourself.}
\item{numerals}{A character specifying the alignment of numerals (\code{"middle"}, \code{left}, \code{right} or \code{asis}). I.e. \code{numerals = "left"} ensures that no output separator is in front of a digit.}
\item{sep_out}{(short for separator output) String that will be used as separator. The defaults are \code{"_"}
and \code{""}, regarding the specified \code{case}. When \code{length(sep_out) > 1}, the last element of \code{sep_out} gets recycled and separators are incorporated per string according to their order.}
\item{unique_sep}{A string. If not \code{NULL}, then duplicated names will get
a suffix integer
in the order of their appearance. The suffix is separated by the supplied string
to this argument.}
\item{empty_fill}{A string. If it is supplied, then each entry that matches "" will be replaced
by the supplied string to this argument.}
\item{prefix}{prefix (string).}
\item{postfix}{postfix (string).}
}
\value{
A character vector according the specified parameters above.
A character vector according the specified target case.
}
\description{
Wrappers around \code{to_any_case()}
}
\note{
caseconverters are vectorised over \code{string}, \code{sep_in}, \code{sep_out},
\code{empty_fill}, \code{prefix} and \code{postfix}.
}
\examples{
strings <- c("this Is a Strange_string", "AND THIS ANOTHER_One", NA)
to_snake_case(strings)
to_lower_camel_case(strings)
to_upper_camel_case(strings)
to_screaming_snake_case(strings)
to_lower_upper_case(strings)
to_upper_lower_case(strings)
to_parsed_case(strings)
to_mixed_case(strings)
to_swap_case(strings)
to_sentence_case(strings)
to_random_case(strings)
to_title_case(strings)
}
\seealso{
\href{https://github.com/Tazinho/snakecase}{snakecase on github}, \code{\link{to_any_case}} for flexible high level conversion and more examples.
}
\author{
Malte Grosser, \email{malte.grosser@gmail.com}
Malte Grosser, \email{malte.grosser@gmail.com}
}
\keyword{utilities}
snakecase/man/to_parsed_case_internal.Rd 0000644 0001762 0000144 00000002751 13472123712 020127 0 ustar ligges users % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/to_parsed_case_internal.R
\name{to_parsed_case_internal}
\alias{to_parsed_case_internal}
\title{Internal parser, which is relevant for preprocessing, parsing and parsing options}
\usage{
to_parsed_case_internal(string, parsing_option = 1L, numerals,
abbreviations, sep_in)
}
\arguments{
\item{string}{A string.}
\item{parsing_option}{An integer that will determine the parsing option.
\itemize{
\item{1: \code{RRRStudio -> RRR_Studio}}
\item{2: \code{RRRStudio -> RRRS_tudio}}
\item{3: parses like option 1 but suppresses "_" around non alpha-numeric characters. In this way this option suppresses splits and resulting case conversion after these characters.}
\item{any other integer <= 0: no parsing"}
}}
\item{numerals}{A character specifying the alignment of numerals (\code{"middle"}, \code{left}, \code{right} or \code{asis}). I.e. \code{numerals = "left"} ensures that no output separator is in front of a digit.}
\item{abbreviations}{A character string specifying abbreviations that should be marked to be recognized by later parsing.}
\item{sep_in}{A character (regular expression) used to specify input separators.}
}
\value{
A character vector separated by underscores, containing the parsed string.
}
\description{
Internal parser, which is relevant for preprocessing, parsing and parsing options
}
\author{
Malte Grosser, \email{malte.grosser@gmail.com}
}
\keyword{utilities}
snakecase/man/figures/ 0000755 0001762 0000144 00000000000 13421570725 014434 5 ustar ligges users snakecase/man/figures/Workflow02.PNG 0000644 0001762 0000144 00000741632 13421570725 016773 0 ustar ligges users PNG
IHDR ҃ IDATx˖ uQH"xY Y2I"]]=stV\N>'_ _q1~ td}''_.}2 ptd'Kd* td=( '}ACA tMZ GzcCC `tM{[. Cz3Í @ nny& ,= o9C@^[z҃ <)y]MKDz #} ! kJoVJ_ Rct7)ä/` )1P y=
Jw FJw} sG@^Kzs] t NkIoLI_ PAtOu7%]/R (I yHs f nO@ބ4( `F>YG3 Vi(nK@tH_4 JH[g77 S=]v7Yq Z>tXUX` U,-nC@>NzS> ZKe{-?^H {mRH/MZ }6ҽr I/
V t﹅t ' /ťR j<(>8 KKKw[T M]Vg^lI HwIwҋl! `Ut)Y@Yz- } "ݕ.!7 ;J/9 ݤ%;gy'5 to:t, &> x_?Vw7^LJ \ Q
d IID ISIwҋ ^}Azc to+"Ċyz4 p_Z@^
7.p? L.g qEY) O/F @Z $K :JX @%&떵l@~E7"Hzh ;!t[Ryax/ tw\$D@~Ť7
.)JL ^!ܓ B q=N-eʀ<ЊHo$ 0 :ҽ˘* O?H `
6)(A tg ;u"rp d 8/ݡAnX@. oh*= pLO\8 42Hz҃ c6Q/+"o
jIwopP7#"o Bgfҗ>g J? /eK 5 .t\3"% Oѝ*I_~ HIw FO
l&җ-SJ }ކI>kDG Xz!J) ]Ť?yk(XXj h'+q@ dY9_F E/G 6 zg{AF? b E `=n{=!KIc"
BbbK t)!2t, ?(p(,}! Z鮑=BB! eA} t2 $eh# %/. )pVK[J$*K o-},$=pFz s
JwkKID-N@_HzA ZJ:|$ݵ-%[2\^> O > ,@z t{2 &C; z!"= HR.nN!yGa` KwsKHt? މ/~8 tw5XZ礛t=e@ }N(} .KwSJw4
?
Ӊ/kq4^ @鞆ҝҝT'ͤ)DC,Fz s
'](7K٥
҇cQKU,^^zH ߟ_Y^ҝvɀx$'} tW'&EgQS#. Iw|<ݷ:/j? steH>UP]y!Aa ӗ/4~Q XMƶ ɧ+) 'xbf/> K%V!k 3h<}i2K $ &&/ {Yˏ#} vƅK @{n.zwN!z5 8O_f\(=L HR\dDc( ?~k{Ѹp +WQݡ1 wcW 89 K{,Y>&OwB.
m7@ 0JNQH~_ـⴗ~ { Kw} Ʌacҋ~p<}i#= ݤbK/y*`{ PDҽ Br1ygҋxp<}pƹLz0K @k^{ 7Iw ^ WJHH .ݏl!Aqtgؙ\Hވ}* /'}qFz0Re *Hw>uÎB ^R`w +IB{Ď"( /#}Im)= r ;$qy-N!\@>s<. /+=h= = ;&ayN_@H." DžI_8KNK t%, '76$$ +qPz0 ֗ ٢c#Br<` Q d#Br!yz1 E3 * q\}dBr&yz Eդ @ZmIw7o p\0 $C ,=X@J_bq.~ _ҝ {1e=t=u@. Oobx#V,po :K !}t=e@>k+E3.=4- =䋶 Jw%OHw9KHaab_C#x|
B4YZ
MP ,HLHEF%a' ,= hE L+}!y|p|x<};K* Og{LMgȇNd@> Ƿ`p X܁(=o'$/THݗrhP1 ҝct*"/ K*/?K @ލRת7w-ܹBZ1[
oɗcx<.}/ [9,OwBCr xLsF [ NyK s|و|x@.
ӗJH գt7:&Os"e. O_q "V}ߨ4 # Ooբ(z .70+D~uL;ۅ;G]rpp<} M X_ff=a<{K/ ŹI 1 ;C!|!yz8~[<^q8I@ t7CLAy; 쑧țqp\4;!w> Istq<ӊx\8B8. ]Hi鞈 AyOȫDuB^2 O qx]顶 E\AyWlm!y\<.
EC3/ pNWqa7'$E7qp< kdyIT.$8$)" i_xP4h8AO_( w6br!yUD>&"/ G6^5 tIh.&2$_1&#w|]@^= 0 /o Ƌa@
3KAbJ1bD>,$ }uf8>, OE㋅bC/E7 0L#tw[TFCb| 5%VH 9鮁}.Ayoorh|h<= D~q XUYHg$*/ ;%#x|x\8>2 t/6 R&GG{x'$mќ IDATh|`0 `HC_$ S(K B L!`@~( , O ;+~mE)/0 B^tgU *䣿J^)$kC">!y\P ;JwE;Q1!|a@~계~Jh|X<= KwIWH^b Cry:">$?]_ 7
C=I,·_ Kw :BCpw;ED ȿ= gUX46a, 47~q U JwB#k ɫD\D~
x4 ! 77 ǗӃX<# r]ԅҝY*&OwBmA@o
#xpCH."Oq_ * O}wwޞ'7 /ߞ~_ߝ>W|4XD
ɻGCr%o "%Cx|l<^$ opwzM ruMi\D'"og?}wz u|s /
G6o |ƴkH."DA X<ӳo <{W{lD
D?mq_ Xm_! u[7Wo yMTD>qD~, mUUD>iD~}@. 7ڸN}w? hՐ++D_ F@ _}lH^1" Ew/+/^ߝ~A @ϿzQO*"(", /_=xK9 *|#m Ga<_~{߿ D ~@>ID^-$ Jr> {RF\<r 5=֕No[q9 zε""rx& T_:ED~qH."o ǫOml9 .LE+D+:. X5iۯypx\@ k{ӶyB@>CD>E@. s9q9 zv""_r
, Xѭ|∼l@. ӢAȯ|y@V<>: o iա~ԷV
ɫ"bx|h<. XOUD^#" iݣȧȋH<. XO&UDț5q9 zzu")"p@>4 kݧ
;FMr `=#Uyو|@. _; gT*"/rxx\@ <
r UE"^B_3 oވoO/^ @ ՛LZ)" $"8 _ ; ~\D~0"? GB `= sFzJyǖ{|@. / PS*"_;"0 ٻ cݒbdJDgu}*J ڷVKh1 10b0 b1KIh !#;37 8yq9 @,Ԕ#"F@ňPx |u"Gȋw1 o1 bmi|^y! * TD{ygm spKZC}qI"Nr ߓ * /R. PS|^*"O w "/P@. " OTD^<yŋ X[Z#Br iԗ
K ʧƴ\<^x\@ P>v"EG?s֟z@. /E<. o*qXmX閱coZ=Vw[cq@ o7gh(~pUW?e|N/w0# +woLy _`k
qqM#`8Z Ǿsm Wn֒?7 Jk*"/[D~F rx*Vk[_NDvb`U/ {pczҲ/w0^sͺز=tۑk=?/Tou'|`u,w[w$ |4yW㹈3Ȼ {AxƱb 3z+.$~ye쵻.'( Ə?3sơ?[bvP-b |a @eD9s>U<. _u ΈG.;/҈%^; x;g æ8i fuā84 /<<^kKx|1o\| hO3<ˈ<
yÀxy:y^ȷ _z^x|'h^6Ӷ?J5y<=omsmL ZM 5ۙf g.9"@Ӝx\@HN "Uj!}`ULOVV%{|`g_HMU;%[ݶ#Y КVZSy/=g ( _:Yft,f&jJ ЅgD->%{6d%+=?u\ӓGw
%?z蛪Kn^<o䔽oǿMs y)"z]m"v2D %9Z > Հ]~⊋<{֡||^1=Yo J 7>]X!gǿ5y }8˳kzr ߓ&"ϺM/Pw3"U@qxO仆gxfD-pckٛczqx
v4ڹ[gǿ:}
WGT5~ @sjJE=B~X@. AxkFbf]xv U]~AL[}fWӓxUɃV=z`LOV?m8-jSMU%[UsKMUw& 4Lc<7w+G䅋s g7s{+ ـg<oՓW^ 3qg-Ukcz?<oՓd%nx5
7Uݐ<oUۢo'|pu{ @cv ȋgByQ{- ـ'[D-5. _ ӓxAx;ӓ#o]}SXMɃVgGMUO[p yue_!> A<:_z&0yުg 3zPLOV[zvlϟOv~ǿoMMUrAxj}1݂; $ PD^
y",/d}\<ZL8yގ?vebzc8yގJLOV4x$ﶧ7Uj 9?b @sZME)"Dy:xyY@^$9 38!Q@~k|?'+q$Wfr k9f@^7"Ϻ]D^2^u7U_۔>o{vDT5Np{ @c;RyN"Fun'{- ӆـg<oՓW^ 3qg썿6'+ɃV=ypLOV[>uo/ۻ!yުET5N nI ubyqM_3:?tɃV=v13Qo Kv~WӓxUɃV=z`LOV?-݂6ET5N}] U;DT5{h{ @c{<=Bxhxcf?Ax 옙uǶd%Ax~|1=YuymjAxN}]MUWmL~ hlTD3yrxKxGobfxɣVl>*ē'[d%mOz~'~b8wۓG8C7U_ٱ# z]SyO9ǻ1 ŀ}bf?Qx]c?^&'+ɣf=qPLOVzj;MK/ۻ!yެET5^ @skK x:"8 _R ?bxOd% u(y ȳVw>3[vmM~vG}n0Qqx#ozƶg @s:="/
R 9 Հ+;<o3|Gr]LOV_H 7g]Cm^qv
7U߿& мfB$yKcfb97?= J zوg%ȟx܉d%f> 'ȟ;?@LOV9\uk7DT5Na0*wmMwG7Uߟ Nw7 ?("E@bDр;{s>×x+.Ϛ] X-[LZgo ["W]ǟm(}*.ww["_oSol<}Sx_đ6 Rӎ䅌 Bz@#-\ D?] }mcqth[^v."U] ip~ q`1Gކ;w- _MsƑc ^@dy." / ޙP\@DsN\Y8+. _p{⇻W\q.Wceԩs;Wl_rܵ5p|7ɷ X>?߯O tᝥȭw< >xŀ|)W@^{6vygēW^ܱp/.:{ߟ+? ;ӷ]v ~ ǟ;ްjo^!{wʯ-N\[Fm ܱnR5]){ 9K[țhgBޑLYYw / v ?|y ?{x Ί3oXh f5+ i0;r4-,OOV{mA!XM1pjQsc. w;B݈+ ;<@ϙ=# }~vXތ/k֍ ;Z\v
_ \>7? ȑZ7/p5q cް>xΚZ kjJ{~|Iܭ0 EsBށ;7M' 3 S+^Dޝ. tV˰Bh@>Q' r i@yVמ^< Lcڝ{y~Ws) >U<. (f;S+%\!/F@ޣ] JkZ
yx'.\h9 @ڛ" /TDj@ށ|iyZ O]!?[DLx NsyE >E ޑ |xGq#䥍 ȭ2 o 0"/e@LDޝx ySx~ 峿#-
yyN<7 O w2 o<. ([FK KBZ@x<yA r ߓv- YDޓ+ ȋ% _ | jy"G㥍 PSZ"EFy7) T@엺B]@ P6MDK Ȼ w# _,". >x\@ +:[!/
yxA;/ Ͳzy#r+9 %Y gGڱ+= w- yGw1 |nIB}DՀ7 3'-NDn|y L7 Bx PSZyEM{& O" Gir
F@ swu<_y ' Ө/eDkyfyWxy f)yL+⯐> >. -4Vm9{|}\@ P>K
{yy&yyx<yǗ
nK Z6
yyW[
ȭg} - (v"r+^! |wV y_ Oky spKj\@ޡxyKx | 3'-
y6yw"E ȭ zWwr+=wx~=o&]@ P: 5K ȓ';Qd@^ ^@
yy"w7 o5 6 % ]t9 @J; [!X@ޱ\@z@^q9 @ y\@a@]V[j3{1 >q9 @,- Bl;yxr㙯 ʧQ_jމx\@ P>4V;B^xq9 mI%"/
A"佺>D@ NRr+=wpb]@ޕq9 @t. og\@䈼tyx[ O+iyWȳ ȻB| ȭ Kw; /1 _r@ʅ Ni#ry7NT ʧyQWȋ & S4IW3 ȋg Ȼ>. nIV w$ zL ]:9 Yg7 - _
y< _n ʧy yfy# & @g-+eț
[] " o! (LVw2 g}\@ P>;=" 6 B( wr}|q9 @ ܒfgB^|qy'r > p\@f@~z'rxkxy[ ̖ gBB+"?4"5 _˞r}\@ P>{njy G S/
fYyry!. tȳZ!I@ y+bw"
hG}@\@. /t@V<. ȋB. o# p@^x<{r 9%MBՀAwh ʧb
{$ w U? j\@. [@΄}&yӁ* (=iyy<~< y yW[husB^.N@> _!o]@pDPSÀH-r ߓ
B. _b. (F
[{> oB2 & o" xr ^ЕaD^
y~S\@ـ|. (z]\@^ mm䭯 ʧ|y^yh^ t[V# j /% o" l}|ြ~< o9 or ?? ,bmiGyֶySy<yfл>^< r zgn{H @ S^!/}@d|fy+xxQ@r [% (ߒ? tJ3iGyvIyyaQyvy{ސwb} "*(BBTS߀ =p?` X[ZLcY(҇2ZibBA,N5O«9'ٝQ| R= *Ɉ7x\@^9@V i JUW!? Ԉyx<= x @@oOmO\ǷFZ. OyLC\k@ CuԈ̀S>>% / O sE <y "OkXD@^*>. $ IDAT/Kdk(yl&U 9ll7cp:x|noZ۞ny0 3M̓{qolfnKSs|< <~:q olF?>? yK [@>mW w` vm|c%=j}\cL <~|{ܿ~zr ̽y0L<pny/mZ &'OmW{?7I=_<ۮ%&/rH$Wͻdk(9 c{<^y7Y ?m} @l} yGy[@^C<; /p<>- yR r@>n
~^늾My0;՛wԬ|xcC VQmWe~l;WUIo έlnݞ ?E
C% @H<W ȧFEyU[sA j@>Y9JMW
aFm 7* "qQp_`[֏yF^Eטv+ 뺑$Iyqzxߪ tո#*#c>. 7yçߦl_qiwjD+(xw;b*o Qz[/?~+iysXKqX swZ #U5"l{=߾ :Ȼ
țZ}|J@'x|J@^8 <dc^2rZ|76牢eػO?~J^yl Mݟ[i6}%x c_yW ?%Ϸ_g:?91U߾'Ϸ_'F+/Q(
sP:I "y/yzX
_ɓg۩5zz,<#4ˌ/ A<W ȧFMnLD^5 7g# os"ywW zY{ԱPh$Wmxѣ\w<ıY+$9.i+2+6 dRc2nH{H/g0}y"4s̱
eq]& O^bXhuq< tޖ߫
W]@~^(Ljg WջVv{\V27V>|icZ$VMр< zl
Pv V.iPx 0KK ~Xaxcsb,
ZF ?_
GmRe걪_Fؾ}1b
s|=$I} yȻǧu~ P4 2d?~*} aQd0 EVSEb= IʭR) /sj{ PtP ̾u~zD^% ǧxMyx̀<B:>'2tUV3/ϒPwes<ۮ>#U+Bcc6^y]o 1. IU#e"Ԉ^% s@ qv5n?'o|PjշFgbeVVJt=JtU tL^yvUzݴGS+?~]yn E æy8"o3
yS|2KGȳ&yb$ohE2s%Om' >&-ϫyq`ѣYFT,=`l %Ϸ_' >WWy$0?nԺϱΑb/o 'ȋB^S@ cN# ONnqyqUe ɫ7+h}U ˬ + }~l ~lZ + Ϻll U^E>?2~~M 4n$[Gɫ7QH{ț|9 M<7 #0YZ@WU#9 ȳV Bp{ξ_}.{@>Fܫ]IRJ١y$I\ :GnoZ'sx 4`OZ,"
Fy_yx ȋk* Fik_ɘcB@ ڷo*B|ձlX>~ uΗ~Rwon}̭~2meW "Ԉ^}0>D <~. /.2Q FEߴ]+F}cp,kV&oRue4y T`<> c_Eg_}/ 6v @ 2\yim0 G}
ț Y}|f\4 d@~D@^X(Bb ?^8-H-yƼ ?
iu֏kLiw%4g ?M|Q[y5zTiFY cKkQ+t hۑyUȧuȫw- ό''I iV.ғ*m5
ǫ7ƨ˃ԡ5o݇ ?>ssgpc\
Ѽ2 ?%Ϸ_Z =Q4O_}/| ɃOUΕ5՛w_ m6yԈ\@l@^ryxy ȋK[x 5>x4ؼH9D|0z<bnlKoIg6E_}O <~:fC( ͻy տ+H_?~jx%k\ {ɃO'Yh{0H=>|MF˃ar{k<~
5z4q,SeWO s.x ol^i%
w}<QWuk˾>t2U\ =hy ]& # k
,)?yy DEUb~x|J}hh
苼Ub_R z cUFy U\ k} @LS\!
cB. @ ȳjy%˃aHL@>V6|:Jo ӴK@_}o6ec^/|jEm >O<۞8GCdyfͻ*]BÍʫ}1=r=;8>?~$ ̭#WK\@. o% ϚY3n$ ?MkUQ`l %ǒT?|M <~:Nϊ~<~` V{@fpD. gMT9 o@^dry=yxDj& 8 Z<%#hyΈSya K>. "r|0 ̞-iz@. w4 /l|yxb@^pq9 W!O[sEq9 1y8"w3 w" Ϛx\@ t+ /
y[y\@. P\@~xxs' ` I F"r<ljWpq9 I 3#<-\@^{@^tx ` +"Y c + sE,uG\yz<. [f5 G y`@~dLzcrַ ;K_g}g> E{.7 [r9Y\xx,Y{q$x_6?ݟ1q\N^?v 5
ȋBV@
KY ç݉çַ `%KVwYyfwsء N?s .&7n]A 璓MsYJN^?,\66յ19zuscrg)Yߙόƻv_z ȫD"r;yJ<. g-Qַmr
t}"od %+wf>f8m%ý.\HΏN$7Ќ˅槀9ly/\HSҭq]ڱ ,ZI?r黋ɥ |r~t8Htk%8UG : Z{q$YT~wڋ#ɟXk7$ ˽
;ɅjS[{(f@ ;}w1= @v@ x.;T7ϏNcg/͍+3YXs#wxb=<յ(6+ '+Y{q$}3[{J@ U_@ g5 g rЫmj &9 W.Za1XL轛;KP*XǵαW겎},"+^Z:aG'2̀|lőwdJc] Lʊ sDxLrYJ JeV!/OrCI@>cַ 4 8sprHgiOYP v1}>J@|.bi k/nY47\w sN[R9]U|Lw-3g=0?L}(B̀{9 \@. Co ȁ< H]sҭDf3 ˬ'.fF)G%KV+p g9~bu"b_KV,e^$8-gוYvn5=~̳yl|:ѫkg
+wR*mȳZz|ősWגwSF1*2xLrRt v1so ɊVH݅+śg^5f K@. g.]@ yt% v,\ >oi!ht<>pF@>cלs)y\se<{TxL} &mi+5E IDAT^.zCWen Kk/$+wJ ˣWR 7.2tk%{e}g>jeV3?y+? W.g}gCMn31OMlʝZ {u
ȋDryx\@Y@ } DzV([@e8mS0vj@> SJ ^T}v=o ~>̍.NDiǢm,:N18kiHxY;g^+w1d' j4 O9y|3@ }
VNΏN߫HҶW:C9fmoS_t= [iѫkW/|j;nB^!̗^.o<7~8tu/^45iU;GCu |̕뚛mA;~r р< M@D& s@_)Z4k/]yYƮ9}VW-.Oۑp\'yW K temF.^ sC_`
74:iߋE y 䙫i[,0dk(yl{ѣdc^<} ȇ76'ik(l}<&O{>yI9 [;u%߶5OUH1ms黋-ZI
v1Yyfߘ~ЪU% [M_6xu1f= O{˄ߡȶh'm͍+'z|]u/aFM<ۑ&VjW եյ{6B+w5%+w&>' ;|yMyY@~HBxŀm %Qؼ3ʾ<.5 >NY '϶ ?enÏWo%Fm(i7 cy/y}l;jНw`8u课_6kChˎEYiAVLE)v=y\rr!Y}BյD0 黋GD}
֕;Kטo EЪбP?䡨v}g{㕱gQ[s8}NW{mʳw1NO6Mahۺ-"> *uר~.}`0w'? ^\y|jD. jxc3{p+ZS@$W>50^EȫB۷K؋~? OOj@vLTe/<<6ȳ-\<5 X%t) _r9uiwk rR b̅P8V"i+$Ez@ӾcuH nӮm,͍}(wWeȧm}CUeorUr!yrZꟿы_z{N y8 w& O;5zT(z̾Uƪ6y5z.[;y]}{ȫ=Հ/_(Ln^t W.<^ I
QcKb*e]
Ӯ_]X%k W^\ټkf= /}ayهssc . ;Kmva.· تd){|_ki ץ[+V _i"+ jK
'"xȁS@> ͩOdTs/|pB"PD@nӉKv#no2w6+j|v= OY *t# K "c͓4utycő1-t]
ӎkbHyP㱶wj^UcЃ=E}5yZx . !i7[ [՛wɏ~^ YBi`mLno&ict{kｊlC>"&_ Wowy0L< $I
p}}18m{C@>Yh>+.2bfJ"ѫkc
;YqbpޣW2cPYEW]] )+tΕ[i+mۄYȋ#jZZ &F( ]Ҿ18-}7~?k_m iCrg)phյx˅Թprrbww yeE +-N[̕щNmgU V]{qdjLgs%ŢwɴU+cpڷ7~g^xx,s] \xx,-i^KJ;WBJt*rI'-2\NJz? >t][ @ygpD. T|w?)~˃ak+n͊vw?)Ʀ퀼Ht }1{Vl//mwW`ra}gcɳJڋ#ϵmgU B+Gf6Ǯx̭V[m;Y ?Uwc1^Y+Ƽ^V/^ߙv'0ywkgCawCMG }ȹ5-g=&Lg %KV
WK/3=`an5zd՝ه|y3ͭśg
ѫkCIڜ]R$ \giPؚD@>̗N:ǯ]L,j8Grb?{Tr!Xrg=q#@}=C:OXf]{Lۗ \y|jD }rai7Z 6ۯ `X~l Ks\>E H]s31EVcőZWuiUP?kUwȔ ypA
[@>ϭ{N]xx,zZwB=F}3AtՀ<4Ggy׃qBw- ?[+ 2fWBϺg\{q6e=cDr!9}w4Ǟ{<·Ǟ=v?]=i獀 /\@ޅ|"
oX[qkZ;n>&m <ކp#^}鮲QHVRg<ݤ+/:"YMΏ2S6 d_xx;d
\e#f" ' mBheѢ[(,4 D
ӮKz5NVw- HƸOU.f>)T
ɗnLN_xU:B&Y=mb9:VY?`26: Y' Vf l}V[m7 5ymX Kmo'K@N"?#YT*m8zu-9?:Q)Xq }F
CMX
e 2B<㘦iL@>Yzm 1hSizTY^\7fyׅ+'q\ nh:V@Hr(-Z\|dJAڋ#S#FWJYߑE QunhM\C ~֗
x| KWt^?~J <~Z:֍%V\T(z~]kn ?
˘T@NUCJ+>ҭ1ڋ#"79?ʼOـ<4+wJmCZsB_%
h +J jx\xx,V%=?:>m"{.x5Օm^\NN^?*5h^ߙ/+/<k
ȧ씀|J@ӐWocɃOsEŊrlV@K3<ێϷ_wOUc߬@յAyސJ`159?ʼOـpH khȳ黋ɟFW _rwPw /\煺ytk%9y\i*u;BJpoC]e5м=N p5"ry< Hd` z~;* جuB&$=~V ~FW ȩ"Ed ǯ]Ln:84ʧ31^]t! ob "*1X3v5 Oެ}JV
^./M ȵ&oP8Ծ | Nk.Nއ WגśgRwkOeM#7e[y M5Y&v@
@
3#r\@. g~l ղ]WQ6zna C+ *QGZ +
髓ϥ;169?ʼOZ1{Zi.ܣ X|Ǘu\B V@ r-Q|Ԡ՛w>U@>{ 'O@ ~}#Xy&>1V쳴 j0S&ji_6,I; 1ǫ|gwXWBw~Ӆ V>{϶zof9 O HnL VK=l`;z`F]e1յd}g~}\u48Ƽh+ ozBlмp \@. ̶{a`sڊ[[GQh;W(L
ʱE0䡀l@^6l"3dcE:UGy
GM\( ܬ|n9Z:5Mt! oƶk٬uihzV,u!4U ثwԈ\@h@ ë7O[q<
IR?~x/y>E+KZZ]0ŀ|!-Z}bc -HS@]O3VXۙge"+ϪYȋ3|r~t""ݶ c1^r90x4 }
V >m|GtW
tFc}䡕˄ 3G'&~c% C+?=.y) _Ϳbl_(z Z`:Hf= }Xսz8~UՅ>c0t C;+=]w spD. [ q81ǯ]Lk i u&%UԽkS6V[m7N]w>ci)1'u/C . 㲫 vOvGsy_;!~㹾3_(Ϻ'ҽS i @);# 3k ȧrrxl? cX1 Et= E1ǥ+ɃOsl TQGDX*8YߙON]5x13[Gy㦴q(2i%L[y9xc1csHpCѫkRCR! o{/BcAeOǮH8mֱ
iȼH;wc /sڼ):>.&Gqͺy:Ƹ*:&iBXߙ 7VN;.oSy|P+[+ic kҮyttީG |z Ә e@ r9ǽ_}O <~{UЪ@?~}iQ#ե֨qR@>^~<מ&[GƤk`|XAׇOɓg]@NU4ikUȧ]wXdº3\xx|{-<85N-dI[o LVF.Y HnAxBMyarD
Uc̛oICg Nϭf?$7 x_YJ BJ[Jom|Q:s UM]+OZYxŎs#Ucb*u]̍z;V@^Ux|nyb
ȉ)f@^G<>w<=5jT[fLB9n<&s ȉ.F{iQm#Xߙe5*K*;6/Pَx;BQ USsg ʝ(alM;cǹeO쀭ˑmXg_xxwr{kwmo tE|]@. @yV@~D@NdF K<~}=5u;6~=t5 }KoLF ͟S@~B?$gJnTcPXT=_(zF!+zBns$FlvZߙ ^ u̍j]3^]KV,ENX}3 /
xLt?Tǯ]L?U9&??:{75 ~Ҽ]ߙOΏNT~ҭJ˅SEww擕;Kצ H@
<<+y8 9 /r@YO@ؼ:y\+Vhin 9\u v5b|o}0H}=~bմ9 g~,<\xx,?8щZ rZxLspnW{5}s'?}wk3Y`}g>XrbԱ_HV,> `0ܘ;ɶ bpDH@ cDD. i8wZ ]֧UhO] @ݚb =8zuͽ`m WoM r\@pk" 7Z. >֨m 1B K76'߾] mlw9 Ԉ\@. WoMϷ_] LZ ?ѣַ $Z@+" {q9@W
R5z4'I ol_ 7n${v[. #r\@{$I߾' ?MÍ\`< no&V {<m 5rq9@ߍxnoۯ߾ ? ç݉%l} #ry[@̈P@^/ co{?Zy 2Lr bq n 7~ oߓ[ַ N@. ?`z.Wpk+V tOѣַ p9#r\@ɃOWo% >vWo%[Gq `r9 3B@. ڀ~ #\@. o- Nj) *gFEE"B@. 8\\@. r r fF@ަ< r + r\@ @gyxD@~S@ @yEԈ\@. oz@^xq9
N= vqmrv 2<-"& r9Aray|ەm & (D@|""I@iqKgx4:oq4i # `@9" %DG;n տ 1r|{rc??L[hŵmW? f9#r\@>gTd`4Ƿ]ٛ ? \\@. ȹ춎GGֿ Ar\@Gg= K ON9d
&-mo{rۏ? yƈ\@. Ax<흧y % hu vO (!& 37kɕۏGmwϲo[ @ S"NeV șۏFy
ȧFrY @k yDAr h\@ր< # ǖ. { vqmrە :Ԉ< gOy[?
mW&ŵ :L@< s5:
·nI kA@7" tR|4
_?o{6 :N@. 7" pȩr4 жmo? \@>߀|r"> O@N gm< ,ُl!0lo?f5&k憹anƤycz57
s07Ƥycz57
s07Ƥycz57
s07Ƥycz57
s07Ƥycz57
s07Ƥycz57
s# fyyΈ7Ijn憹anT57Ijn憹anT57Ijn憹anT57Ijn憹anT57Ijn憹anT57IjnF̜Ԉ\@. SYW}^'h -憹an1iޘ^
s07̍1iޘ^
s07̍1iޘ^
s07̍1iޘ^
s07̍1iޘ^
s07̍1iޘ^
s;7 r @Gr9 #r rrfm<.=o~0m Kh@> 93' '(|([? \"[r;r\@N,^| \"r\@q+{Zx䶽 .\@ކl ;mF= I@)" rot4
8ou< .\@. ŵ a\Yًo?흧 \2r\@a+{Qxlۏ&m pr9m O= v KH@. !ll4
{趛/ re
a\(w p ry7L r"r\@. Ar r :B@. * r \@. ob@r
3Fr\@ @r9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@Mkɕۏ+ɕn?J,ʝm Rr\@'ŵk۶%(0)f4rdp+{ݳTq ;gq48yR՜L;18-} U
ײ8 `*\@. WN[z<8E@>TeD%.b" (u|1_4mpN V{r?{ola Tr\@,6^ǐU, _?A(?-""m'XiM>T`q-gcm{=ӎ?/\;KpZ|cG# r Y?BcۮMeWX 'f]?]di0 EW yeZH1GPh? VYݳ|Y6 s eX@ 9r9s1| ߱m7&#Һ?*˱lL
vCħY
W)/e@/Ϊ<|- f0>(x `*\@. bg g祪|a) ]!ŵx(
WV ԎYV4|M]پ|M{øy,blr @@. !PmhdP' ÕCQsQU@4{y:g=Y# ߬sh@ ۗ,c
TB@. !(yuH(n{: 8
_ѕC10
eV;2 _+ V+R# =!g
CG(3 r ێ%Bm2tH|~7b4U6 y# _X pQ<6? Iӽa IDAT pr9Z\iƃmm> C6xy y -T+ tϲR{<4 &> pr9EP='MȳY"yhϕɇ8d 䡕w? pr9g?'EP]4(EmWde*2!8=y3 99 :J@. a<9)o oe/,'ߣ 6 *2!;͌ Cq;o@ F:F 3\@. Qh@ Z5a2}Uqz8AmT/
bP 6C{}|ai9y*s r9dvcsh+l7Ey,=^;si{䏬
ǃ"Qu(rEu9}ހ<uw r mWMQU@]$&mߧ gǂ`XDg3-(8yǺ= o@qއ& rn<:o;tZ|tUع?fds3U0$m4p|xiQ~[Y% pހ<+ 0A@. !Pw lb:hzeo2wpq38mX\r/<0ː 5 { Y R r9dܟCc!go;Jm ȫP$"^\ ״s ]U@{6XyqQ*,o Mn۞nyy \@. CFplJuV ߬+N]E@s:OeV O ј<Ȫ)y Zr\@ٌim2 `L<
P0,?_\ce/AY}[?v OyXu 2r\@ٌGigGUǸV& 9 w++{O}:r \@. (n ] {ﺏ=X@^d0Y#o eټEgW kU K
&><
\@. CVgѤ$p*y
V?69 rOӤ<_W%*euH
M &_{ހ|?c @nr\@i"ݪ +yet=\;
Uqp46oy1]Y^@ r9ȧiJ@q4۱V靧e { C?? J@. !x{vx)> @u>y@(8N_v | ZW{lr H% nt48ouAP&՝˼DU KUX| >v5Ԁ<4[ϧl J@. !.Bt,
UŷukB@ ˆG7gC+`?aqM;y49 |(2bJU \@. Cx`sv|:VJ+ǎ+mb T`/
b}{ Mch Z" r WN[ExxtUct/˿w(NYEV! Y«W=Mc^U@|< @nr\@aUVMx? g!{1mg;Oë獔{ۃ&/ϯbLbX a4M̱ۗ${p;mUyxV R r9m e6CAU3 m(XW/[|Vv< t% =LL==RT5 r W {UuUתy*#*b"vNiݶ|a) wfu$ pI r9L
J YײmVg@
o1UC,/
q0yܜR@bxy6"!|5 \@. Y\\Urhߛ/d? A)geo` <8 t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr9 ! t\@. r\@ @Gr94ϓ |~{a{pbϵe`bL$IV7 Ծo u\y:o?vhrs~ `Vג+wEwN'Qgu?L1O& \@. Fv9$Iu{apL\@/HmoF\Fƛޝ~frqm䵍7k?O 0S = ~0{㬄XpS ֻ F-
F~4ou ͉;OŕMux. 鯏okH@]K+#bAvoJ 䭏~zaf[ :~K[ :WU>\}7[y?ϫWkoT17 G i/'?0Og}8D=]ɕC4Ww~.t.e'8a[#4Uu~g82Gs0:9 Duﯹ1S\\%ks>e߷~U9_z_GPWWۤʀ{y~\܇?yeJr 0}qmr6:=nhr@>>ed v34-B@vmץa2<-~>)c?- 5-VBDeg\Ysx/ڴhulG˛$I'/ 9 0Cr\@& np
Y4% jƛQ߿55~˗_V}
)W{7Fp䱈/_J~kq|+r (! ;/ edf V{8=hjiKg
}y?yx｛ ٌ i> Hu닲M W(l[ ۊM߷ Վoh45 EEC9iO*+{s9k%5\]ߗO> )k lo;6ܗ7I2 ?9 0F@. ȡ
! W~~Zx(WU* jܟ~xv7@>kѤ<6 CmZ1i"Pyqjz@4B7,&&D8eYF\(&^7/ _X
sZ8gՔ`.|ᾼI& fH@. ȡ
! 6:g?̪EzpE]s ʁi+J
Y# KȣmQWhŕkژ ȳWqn Pw$<Gc"sc;rh71 ͱ0ܗ~/}p_$v 3$ [o^rɓgG~{Ⱦ={w /
s`y:-yl< )Hx vN 844Ց/싫P71 =`}ʣ)kuj}y4) m>61\O;a` 1~O>Y # 0Uo^x䫯O y"
~䫯OJ/Sǟ~N_i &_}}zN?!y? } ϴg?$>/u^&O &3~x W2C#iY]Ç|q\^|]87~{B iyY*،ˬǕ?q>ޟXQoJ~?>:=] @
W[?o;dWڬbXԖUAc?ʜQlQ˝i|_/~FUǓ\+"r>.^/,]ZŵA?}{6=PEDZ0w-z@ Abu͍ŵ5Āy% fH@. !ރs}7~Wx鴀Ǚ$Eٴ ||C%ps7U$ҽ7a2塟+2r_$Eq]YueRk8sZ@ ̐\@. CT 9*@ ޗ" ȳ zϥ#(~t_C1eW
)y :?|j%s0.=Z玿f1^ԫo|p=s>>Wku
by _ߦ-_lEY# O , l^@ zF^Xm
c5HmC@>-*jYl4]o\| p͵yn??Y58bg?o?l7" [l5%me߲ysǟ~ PК'ŎϑW86eVh^|<_eHګuZ@~2?$_D>W[ɴ﮼allbs>Zt玿i9z_[ |i?ƛjO\ƥ @d&E۴"hh æg m
ȧYmXu1˘75 kmC:-bC+Bas9 ]CaCPצPscZM cw\FSc
WHڇ^EGUdy{=B yF \@. O'Fϫq?k,_ '{?[]ǟ~L̴ǟ~N>} <{>0."3;{htcQlڹ4y㯬`\\k՞W7 $ |zU}woy IDATrQto^a4&Uǎ}(4_<;sCE [kf}Ʈ$ w7~= GF6ľ ?8u_&}? kҾ#fc.
^.vm܇w|):] @d&mW?YWj?˘P0\];Ҥ<66;Y\,aKc; ?'zi}>5@N |<>x,fݏM3pV>wF+i,߃G{TjU1EUylGFow|) 7_M~[ Rf*TY\ m
"wXSVe +/hp6=$wVm r* yǴ/]W]:~;| ^-yeopa2Ϋ{j}ykO~Yz
M2̃.bu c<BwYEk Zr9\hڬe,Z̺R~2|,˻:s(VNb]^ߟ0ӰYGx5tJ~ 4) Bp|9|?"h븚y&G@^Zx̊\+E 4wBCb0ɿR?] B@. aDHʲrv( <{9CwU +^
'H
,a5q*#*7~W}/[@^bg}XDU$<ֿ?F1|Rx7g݇*B+v!9 0r?{ Z U UʸΕ-Ám V.[@
*B V(,Usy~m|PJh<
M :}/ g=K٤|Gx_VwM2< w,=U`(}TE;
\@. " / 3K4
'F;^1i%qq(Xz eP5^/;V C@g?LնC
Ͽ"ZvJE U* W \/ m]}wy?ڏ_VrsRA[ t Kvh
UvQFpYϫ]sZ|2h|b|}*×y6;W͢[ < \ :tl]Y7~yr_Ѵv>̨ rEM/oys_v\C>me5tB]4L Zr9䲺 9y' 3L@^&f-u]y9t^YW$.0T6Xi ǟ~[5q8מ<;L>8Ǜ% fx vu\B:wߏ?pUW6ޜ>^~#[(&˗JGWAoo} 6_ķ ʪ 3/*BAP'|VBcՀ| >V%sW,,W4*Ve Z)6?quAб~we籎d}< |~l۽i{ۃ/[/ܗ7<Y|M;q/t
lxe B@. a{σnW]y p:" uz{>,eyBgY9r-{f9N?X]% ϧD\.:_C"vـB8ɳZOU+W< L^|~[ o}r o 1xH硪 &2Gw$ /+>OU" ϬWHhU :Uٶ< ȋ8<'Gɟ+󠄶z :6ys#toEkwG"6ޗ/ C ſ/oY;OyB:2Biġ]dyi @-r Rn>4 ,qpL(~+pBY;W9:쇩?'?7 _ VsK@OI$
g0Iͣ?e Vs=QyiBv-o7+s?ko$7_Mӎ
ʧE\ h V
۵?Cgq-ݗ!-Z"(7xx9,RV5a->OZO,+B.;AtDZ'YNiJ@w R-!` " rF"$<l4 " ȁ<)X B
R
&Q,D># an~6}fvk|yf|=P?Dn\]W(OWU 5/o*$ 2o0IҜ쀼 K@. !C,"yCh8ش>IzD,ARlzfU~^=D
ȳ=GGu?xRڝ/}i$6_G >nݽ7|
Ky6UEm)zv'wHnPlMiQ4 ?FϞ'b#Okێ"6"+d Z .k lW4UqJѕ0wR@^v& 9yZf4 Ń |hytfUйƀ|n>|-UȻ8/[zyy˗t]M ? `G r
ŕQ4I{LU$:# OߺT = u>lW8oO7~UIBI
4* ȳ" im)z<_Xnݽ=~| c"* MiQ4 sD {Z3Z2 5~ۯ'nuA_xsEN
Vmi^=q9 /y" +?wQYΑRh 1^Z} rC?[
ȴ\:/+uoG6/iN|yo ;\@. ØPE+:'); /Rt(K-|ozdWV26s{Kͫoe>(
ȋ?w\@^C´㶬WU@>` ]]]~ĠyIc#oh|i-yٛ?77?sIyt= W6?; VE]wWyJ4\}}b^&MuyĜ;ۮ r9 tju \$ / 'Ci}_xvglBqih|W Vy s=_hȳ ݤ5
G-._O6 MiQV =Wi} 6x@ _ ۯP%.()+f/e iDq/w§*bi
㮅iO@ }υV
\Wu= 2:f.7ϔvZty^ކ[[T ^i _= :K@. ãO""`he"y=R=*华V'κZt`h?uHxڕT
E_U%q|uN ݈cCϦ([wkYcGyZrs P#K@ "U&5&%Ew.yWESVye}Z9:OD,: 1;lؿ!AUQo(EΕWs _yv͖= ֬B. Z-%Ebmz+ U ?N^|IE\ ׀P:My+V.3<~=
| WU`7]#v
H Ϟ
<_;a_U~yyYy5^ʜGgVqkW? r9)3 %: [$[9_̼ _& = +Ň@ ii(9y+YVr{ 7G: kyVf@~CY>ێkjߎvbTiuζ<~g L Z!7n5J+; ž;-z|T9#.TNEV
$6EUyC7`}[
DžY>k! {|Yu$t
臮~o~i'Dѡ$5'4˼ֶM[F[C8yy ܬb^&u1;UoEV: t\@. ØPX6T Z5w֤uę~S?Ǥpתiț^-C(ҎA5[w0g]9$>s*FS բau7Pjq#=&( Eϑ#)6_G˴ ˱ЦQE|W! (Y4k=s,6>[W ?/\,Zݼ
M~@k/^4.a*BS/YQ64ng"q`ƅ eX4 ".6<|-%GYhz]s'(7V˼Eyf $*Y"' '^|Jw`]| 9Nh+{͢ U\ĭ[g}47JSp>.^]ϓn
R4D56Wf@>Oͻ'&Ӵt[qese6 㒴siE]k奍W7VDףڝ2ү>
Gco Kϋ zaD ½u^0:/,x(-# Oڶ؆5icfTaysQ487m;zhuNpl>~X9nW]~*nmI燏y6vlm˺/B<|ً/kc7tk"P" sDtLDž_f>>6DQ ?v?} 63
3KFD~ q; ( ZgIA(^hzP➯$)@|0~ ;ϯ"[*~ eq%znoߥQ}{ic{8|e5$oĔE\ri#<~ӳCʕwsak97? ń",q*E9~w"I+8L7U݀bT8keUvU)z
Ks.}L/5\ 6芷F~UA ۤՔ=>֖yyҼ`& php.L˼- gO%ÛAn X7]o)8ٛcnx#7r1 [zXC@ D@. !` rwpżAj(Xu^FmʳphFi EW = 'IagGU+
eSyKQƱI1GU^kISIq[tȋ M[w'BIvq9vÃO'Uxy[[>ozPmW@. LUYW!=GY|"?ݹGr?v! 5Kѣ?[GTT$=wl
RAF]|RMrvmB'snU_yU>Ӹo|v! _0gZ64f&* m'm[U[ܪPc#6Y?Oۢ-"s̤s6K<>{jmPw@>{j/xT$ovQJ r\@g/^F=OhE4Aj(XQ曷3FѫשV^O#hjWY~t#Z]SZ}jj_3SYór\
<6Uy 3<|=*[{YEkn8Q5
wf_o_8&?/{XY4:PL~h :ބE@ #B1BφV.B, U^<)f)h+]ڨK_/ zgo#FWu {t;F.v3"cQt?d}Kh{՜ίǿNj542.L̺BnckXRV*׳wUF:e!O >NJλV
4Цy`vIre<}Mk" bײ{f8w͕lGyso|0:/o% r\@,._ <|y>zIbط1ebѭjYmzFW3~eܫO^1u^Hًѯ*5 ݖИ[
puu-8^F y³9+O
Wri` ݉ <|*#/,%G> Ϗ2y,._ =~11z ɅsD?拉̱wf/0>ȍҧ Etё/0:nk3'>k6euζk5~ z+ϻ?nY.?s{ \n /9 in~;^F"s|4*եa5)h)Exg`;꛴_oi0C>g~waQe]o{K~eM&w|3u}}c<.yϯ7 /? Gmyx/99ʻnr~18- ϙꚓo cKWy6t{\gtϑ @r 2;GUG:VAt5O_/mN BH[_uǏ gn"d1:/ 0r\@ @A{r7 mO& `g r
X\ >zƷ ؙr Gor \ڈvի " ?h| D t\@. ڝ`<~o| D t\@. /_7] fr LVϳ6 r9 zhqz 0J@. \@. #r r :B@. \@. #r r :B@. \@. #r r :B@. \@. #r r :B@. \@. #r r :B@. \@. #r toF k|/0ڦm9rc=ў'G0MB'>+?ʞ hO]?D]|ٕw?{~m G E/? V5 &K . r t/. -ya3ǢO.| @t̿}@ T2 5F p[j~
ₓPm7: ϲ nn~p> ܘ8{s|u
f| Wَ틾c>vDLɅC?Go X\^\\>
o "< { 6Ss#tm`F I^"~{|<ϳX]1(|ݥtPшb\` 7E2y[寷TNze3FY}ȫݗe" f Icg/]>sQw/19˚^ M ϼ:/%Zy7خyyotu:M @r trD@>Y¾ј}_$
f?Ə_{EX{]]3
6_7~ # B~tmjrI_|^/"Or9{3ʆucV>~q7xc ykHixd' 'ɹێ9\+Oؘt,{>Z$RnRWe&\s1 i' *$ {XpunG<OtW㓢/_bvG{Nh|'cM4jvLJufOEGn {V!76O@@eN9 s?;ͫΞJ 79 F
M"]W6ghR\Ӆ|U g ] Avv! 'I. Iʻ>[b.D66lo;:Js͝ƹhW&G[״&vy^&:S
r9 t|þHo Tz?DĮ&̱ھؘUۤJը+ {Xe烱~r *s~}Ҭ _ 7'Cy(I^Ӛ϶n"]=>
R|zygR*c?\|28Ȳ m?Dy#J@ TH@. 5V ?ݡJ_sk8B:ԵU
wZi
ufOEUw(9 ]7i i#S0"sUi?.m*n*C\',O@<yBRY;. Os9{3yk Tf4Hh 1+^o6@lK@>{*yi3¶A-k@yw4ik@>e $^/m *go24+Yι|c]cczyi9d8sA~ѹlo)g4ۤ >~r `\@. @ 'k* ŇGU EsD0US< t_{>Go ێ w͞?]ٍ P+_^>R7 6hS@ wҾ|TxUϛ?ie^ l\y7 ui|
r9 t|¾k^wf$wq /._oJJuGn { 26:N@@%FWLZQ264eHI- =<-
xf5 kSѮOGvuWv#:\= FH_W5ykՖyysqx4
6O79 P!\@. Gkw_ov'Z\^[/FǶcqz/ֺOյmquu`| յ;QamzɚB+y }wi,}Zx{wZi:19beuR9al J
I1hѕP/mƀsMK<7_<"|`}{?goN}rvѴq+fY\@NQMGu{CCuko]ySMoSmպo5-6iS@[ֹ[ Qg|U ?9 0B@. !յ;ѳ/♸ǫѯ bW'nó/յ;^o4\]q =~QvIhEФG١Wh%ш+x}SDžqmg>O Uyi";ݡ /i#77M{ _ٶ:zk" }|] }ٕ6mƀ<.pUA㶿}lEI(p4[_e_ [:i gOʻviZ0.Z,<.M9~Lؘ ?m մ\/2/oõ-62̪9KoiR}h>0nJ VcN[+k \@. C*TPv _Zro˴ ^Ċmcxt#:7_)_[P@=tC&¾]qkj|w(x1 5{*xӏoq~N v%=|m& 66G@@fUV 5*^Ϟ^igOKDu!y+C ~v Ӆ:qVeT7Myܵ0 ëBq Wm 9xo ޢ< @?wJݎ&W\4]eh IZQݩ"I+qM C 06 y;LJ x41DǬUǭ,&$:b2W%H Dž-4ۤVڹhS82;!VJڕ'\ޕ9 8\@. XU xD5m<ƭb6N
uFK{`%dMYIh\UO='OL\E09Ny(-;~.K\6 MGC 9V۸f>|ߺ{ocQgD܍%I+nQ;ql Z0gC+|MS6e*q_~*lJRu|^|2W1z@
3l?"~ 3}Zv% O3Ҭ"״]G/>y"1.{Ic;4 \WSuMZJx7
VneզyyϵKp]yyVq=q<B;I=";2I: 4B@. !V $eס6D/
P\/6~m䏟f* MOU뎩ț^q=:gE>rczk3 |Խmjyx2&И
`X%){Ɋ*sX([&`Rric/N ¹E&^c0qײ4) O [y>C4iu=N;CqiW*j⽆?IQG@zeϲ:i^ &1NY mI]y&DywiY)҄:{/]L ! < 'ƅy%=ݺ;e_k؉ ȯezkc1- ȧҧѱ>7 ?`Z*yU ,}\9?}T[ @p['צN]y牻QATg@Ʌςqk`po 9 ?j~ :ڂ |n)n2_cfb[G@^טIc v+\T]L\Rĥ\y|p`EN CAEUC4q+
ʊ syvV>B!Wc D ۡ뒀:ӄm
ȇ|8//wixm뼼MC+nI7<(5%nN|;s> Fr9Z] ksx9E#PtvgƞƏw
>z4N9y":hwp"!w܊՚ߊC Z!t3'PМ$!yu9֥|'
F,EsMo++T92%sWKc]+b^7|O3h[@ՅߧfFmc*i1_mۼMCq
UV.^C/i1NL ! _ onݽ +}cqz6ANXZ@ӥھhfk}HXvnS_>飱}O vܺ ;hgώee;U烰oC,N Wh%)(z̺^ Ifw̞_ѼXe;3*Rlsw] [+u::I{:8Agz1|4{K'E[mRG@^ŵ(6qĺ_ X;3
h\@. CӍ{Qqڝhqznտ yW އMj* Os,CB!ԩv* j ;B/h]_etC4xvҗܿq.mKϓYW彟WHhU ڿe9my\ ' +ri :͏NM[͇7k4E8/?_P qHH55/okѹۃ+4?O/Γx/"4NwB㶋i @#r g/^ًFܯWHju( /| ^#hz B{Nn3*[W>ݡ.#j'4]v@ z@S t^Kq+Vڗ5NA
~x>,-ktھZBߴؿm
C+MFh2>C+ ȍ
+VJZ9,nayzE+((
yvR@
ӎϪO_v2{j:kU+yu¤1 )]ӆy
cl^V)mȳ&um^ 7r:yy˗4NC盀 h)\@. Vɟx S| _XתL5 țL۰m{N|w(:C߮?D͔y+7Ǯo4(ír#& 5s+*EWEXJ;) /;NIN x*F\zoc@>7 O*]ǭ yQռMK.f r9d_Xnݽ=~\m1%"O7y=BGjݶ":rcpc} PIA{WJ{cQ3s uz@ .Aiǿ1 7u LRvT1/oyėg r9vEkbPaMGy6z)K'iS+[oD~C >f>m|_5!47hbOѕCcH@
8FW튾Ccm _YV u,F~/?Iy\iȋ>h_oNyCK{n > Kͻy( 8x(꼣jUSB][6i* }Γ&\e)tve 4N@. ȡt^qs[e{/,7~" =ڀ|'>Sk=s,:rc {R 펎 }:{|#7~α#7oz`ltg ۯP%.()+f/e iDq/w§*bi
㮅iO@ }υV
\Wu= 2:f.ܔ:N@^Xk.p}kK ]+B[ 6# @g r9T' 5mzԽPyVW 7鶕?FBW[O(_':hco{B6_ ϠI̕9X@ձ 6HltɮBM(3 }>nuѝy,Fep) "X\Peky+] g}6JCUg} E{Nh|j5{uN/?;z\ ;s,}X@~F^c :+%Eb+CW~
q1CYϓ&9{y@uWd ]fH5-yseYZ@lF0kNISk'쫪߯V
/2?W8:{u^˺86gq9/k
qQ]ّM(iV u䳧 qr("j 븈;oHF,o\qZ2gyT(n V ӕ|ؖNC@ SBmxиi7i:-
q98?|yc Keno elic@ tV9Oj>m˼mL":/6.{ _q$>{sGgz#7${Nı>qscqzP,)X
OX˪ڲa F,₯AٛYѣB1J0nɴQDsRQveSs$/3m{@ Ve䓅VDnX3-72j˼`[xOEiI y Ǎg#6\ rBEa9m\]]K ( <,D յ;ѭ<_X-EK[V xǍϲ?hzm;}]еt
m 'mEscazJ>gCC7Ly}=s,?T7_ :)o06JL)4\GW Sen>[\9i @EJ[V;cD\(o]P*.Ȯ*0(F͇Wκq1_ڐ/Ǻz2_#.<؊Ce+ qO'A4 AphV
q4ho)|+\;M]/m E2#iا[噗f{<0yy]pdn~0ΗsϝfŭȞ6OK @gr9Fӯ6_Goϼ +ϳ_\mi㤀1zC<};BsGq!ѵ}ׄO.|W &.$quH|vx,/KخPeTӰhxq BHi\PjE,bϓRr%W%?|r<>_k\1Vqm1dT?$t/?{iI+>ٛ}vIrS845&ĭ볾H8tcQ~/I7)Ayk$e߽$ۼkn0M7h˼|t;l,s,siE]k奍W7)"vh_,-_\-XӨ_} >E׃ܬ@@δKZ8|lV,Y41lj*z}eU* 3u4
V4?Xȍҧ'>>Yt7 U䇾?0zGn76J I&u]"ni"_6O
BB5U*UW =w{<<>"ΤU6/> QK ߾Kţp!kHވ)Fxd gO%+sn~< E.YUzH+]&\uHylHkXsd|ׯJqEWs:6&" o r&ݨQ~h0Z3ą?Ds9|gZmQg@>{* "tc/JW
^17 eUܘt~=|B! J" kҪY >ɽ-{Ĉ拉'9|m&:ր\<d[%H C
<1~ǞF|iX|lJӽbZiϗ7"?/5 U{ k
:6B&]1G%|BkҗGQY
UDZm'D*nߦ^ok(y3<69 ymc&YS5/oS}U%Y]ވ|xV ruuu-zt#ߤ} IDAT| ]]]+u} =x$ve 卜/3#9ԫ|WJ3ib7_4~O % j|B7)5Ybյ;o#nrpCWGnoUȏAƏE Z$#ٛ?[tXUL*佥h+]ڨK_/ zgo#FWuyٛv^]!g07Yy7E^~6ط9/_6mWq>=:V܅9Xyʻ4/ .>)v\ly4˛D@>Ůebqv+] \^`t.^J #r RY\ r?zt#z: 6_g/,GOϳh)) 5;Xrվeѭy61&Oi2 ^<\E
i3bWn[ϒ?sW?8D_cr˟?}@xt|ǞN[9y":|m&=#7} S4bJe忹AA@si#>1ݮ?^:{s;m_! v֥bEVnhTtyK_ kRR$ VIʻv== [6U<,moip ^ׯlD[?W_~s\|Rk}ly\_o^_~>oNۢ^sCswݰzcpZM3[5':ƾ.& m4ùWù # Z r9/F_Xnt{۶yR@ M 'I w͆W!{X#bk {f?>M{Xttm߿pǃO>Xi:t#2WnJmY}`h4o @F#4
0-^ (|u7Dbt^ ar H!K@0mC5TV> xf m\}`ht uum r9 貦]㫐 ;sDZizoGh.>YW 76X\m|6 @ r HA@tY='OD
9QEo}_m ʻ=6]*d? ;Uoi᥍hוLػ8OK\tYP<>inatb: $0 <]^Ń|s#`i0nwDuCc ["wFf
^rUf'##KK @a N^]?t 49ｺnd'oc[ `8 y Cpyvcqw =Y7}ARgۜb ; md7v 9 4N lg'O{][ ? dQ_߇ ο 8;od쾷{{y }N/fvlB'oN{«j<<ț;>4j VD>O/gc!$2^;?m>LۯAqY} r}}1x)>sb5[g,9];v30yu"ϣO;ַ}ܳm e7 #>8WcUʜ?M4a߳R 9@!ϒl u_e?``\ e rգOo E' {7 AHރʺv #@>>C
L/
u,no~Uצ{i<0n6-R}UǢM]G
M& >=ϑ<>Sٕ랻4 9 @'@qO~J*-@3O -[\1,obcS mrQVijsͺ:桕bx &CUׯA\M={=ȳl2{ hV0l_㟻/ l6Fnr.5 z,>|"{Ǥcjrofc=n
tN\\\ q_}_
| _Y? W
4ls.:9 y_wݪC]
~s<<]^y>P yӽ*t.[\Ow_*|U'TVu_껽GИz ,cg6։+ŎG>Uo:ʯٵ?^5t y)u7ZTApܳc:oq_xzؖ GCr 4?οE#@ РIy.W }*:9 yy~|X;| ySEU"*!6] }0v[H? Nu^/v}zMƫ< ac'[H" .OឭN;> -WT}hkr|(@ 9rrrr C䐦y8~߳Kn_?0r -Nz88yhCNM%@~l|,D>ɽՊ뮌v,86
7۾CQk2@n *P6{x>g=<ŝa& K͋ [\(p agFPq];ˁؘkbhA!BD[ ^}Rg UW2Td tN\\\ 9 WO EA3 R< sUVK(șeSXl* )r= _?Pk+6 U;@o=8Ԯw_RT[ǎb>{Pig|1lM 9 @ ð heI}oNM-@~vs>P:ȫ _OmȚCc+
RuuL543.} @6zO횸6֡qϳC Rg =Y6f|1lM 9 @ȡ'ϿN^f'Oy??'?eޏ|;_^۾ޓVI*ǤkV\usT] ) ż-:&E]67H 9 @ ]:_=.d12IE'Ǧ :R[A]a(n ؙcrE>b 엚Ccqyǐ` @^i& R g|^R&}&:M-t[?&t rdV]>X}woNo?r CP(;y}}gA?/nÍ[ŗܜlg'O߾n_hOه w nNFkw,_n/Fm} N^^k+i d;{,|e}|ӯ*Ǩ̫@{
Jp hq%ݓ{'i}cS ¹ϲ$]oG(Ѵ:Ǥ~ՙEvѧ|x~;ڟ2Ǻ Esrcb<*ӇC09 &BeOsKQuZ =c5ɶ]o~u;{s5.Miܽ| / 2moG|?X~U 9 @!('ϿTϿ
}}V+0=
_OWCqs]*L z}j)ȫ 7R e mP$:$O~|w T{6 fmo0, MfBcB
PB}[=)UE')@> ﺆmN1<fYtۺ\a/}O1@~vOa_"YF+"4 _ VY-vsjGo,@WO6ֱͪ=[hQ_ROc?`{?8Zuc"R
}Qo G7v?m{ tN\\\ Bӟ/d1Ϗ+xUBī.
_}&Mh{nNsՋz"!])@~4yXu]
b|U@+χ-{j#Ѕ2Q-ȇW} 9 @E䡕LN?fu
aw̅? xqc/5 on&.uj<Q^ c(X)v]{PvM{7sɶj ]l1۩)/^'D ;Ȼ"/ _j tN\\\ B ~ c+)_eW"{Yvxrepq08&j|zx0|,w_ _ ;1{zx]=ڶV
(C!/d{NK#d{8C O1o t?wXܦϢWz
}FS/oَPݞ6F_F_Y:r ȋ))c?E&VｫWYY[Ƅ&W.趤 ͣOؙO츆xmA~=< /+4,cj
#C'￩ygH+Ɩ!@>ʴ5ͻolb|(@ 9rrrrZWW{
&W=<~Y)4[j07 >wJCA":./Pw__}/{A,ZخZyh1-R7'ǿ2+$VeV38JEV.ﻦ (L\\\ e`m\(P^(W%t}V8@>}J!f *Y;@^nN9(ϿblU2X}~䁛` CjLۆϙu 67K B'O/
6>%Mb֡&_gE'~fcV?+Mޯ?m XAߺCwΏi܅6EW<Z*ԗWCm<c8
Vٍ]0:z[qydvW<>" krϖwqj*c"D ~{jQ~Lx|.x{ر(
εk
!(/@>/YM]ޓm{ mjӘ>e7n~=gB 6µY6 yXV \BOkFq^Y:$I67+kTc(@ мŕ&.N-#nPlc'Wջu;iLAҹǕvp߾? ~M>,gjJ
P7(y^]}5R
4oqRIA.zbAjzWWՋotpV[ y(QeXdhPjM~Vʚ ,j#l:W~f~C+Ֆ;BQf! _ u䱚h%]]C}ӪvX&@컇u }Z}xU<8>*Tb* et1U 5,=qfm/w.؉o5 @a K?Vm{Ewpn,@^veڥ0*}ț8E?'"Ͳ7nRw IDATWV J p6 M"|vx!c+U]
p~BL!^oC}x#c|Uh-@ }f-j;@>9X
ϋ\Tk5 E^0X=ۭfU=4} wM P 9qUCߡտ\GźbA*6 z
nǿnm ~^p~]#-@zmto0|
=)>7X?tM _&1`+ ԙ,^ or}U~^,8Jh )@>b]
i܌ (zM,Sm]Mz, z4{>ͮM>h+{Y ?4ޱFXp-:oՃB]5Lo| 0xꪡu@iǟ "o߯xo>_| ˯u
z ҿ{IMh*m^5LV@}F[|zՆtK a+LXWM }=`26U5Ԋ ߜePE
)@ ݺ _|>S|Û_j\YQ4 Ɇ>S E}!FDY=,[%L> gEUݺϻ_j랳M/߿{ֱ 3
Yeڡ~Yp5MV>wv4SyW*}VG- 0 yxvyzx\6
}^ѕס=
=8b˻M|}
S[oT;rXזm=9mce!V:ʿ cɇ㭒6M>ha h 9 W^}|˄ȯ~>muuu V oͫ _gzՆtK iV
MW:Aix} Al_ y(Ygu>fZE} hfh
(-r>lUИrZ=NNE j:m}E1Nھg+S _{ 9 TO!q4{zx?)W(p8 >~{b߾g{OZٮu [cQ3ڞFWm.u 9 @ ]NMa
BuWE X lH5@tQLMR
Eem=8[>.w_ wOߏ.P b-t
| Ү65W%H51%$\c!>mݳ[~l}h bdr %@.@.@.@A)oN߾CzVz¹)|'`P>j+D.@^mR:^C y O6Bڰv곶[; XlVmKb\ yh:ȗ wiJ5@ {6uBAQ W1 Mcy^N ޅձjcUࡵu.}=[Y _|_c| 0hBe0vx69@ kÓק+/4)M _V\<km^}an%@ TP,bڣO_i~:c
=@^Cwl+-1 y=!hBaP?6 [ 8ŇVč=Ph(++S]uy|n't6٪S鷍qh k_M X 0rrrr
>~Y ~M}_}NSܡȯlgoߟE~UC1 :a+ښFEQyB}Gr̺S
v_ kN<}MbA/>5 @D y0ZۡpKYg S
Ǯ)+v
N2Qf+N/ßF˸3kuSm ք `х6٪H% ݖqA&} X2 y0Er P 95 /Kjd;? *_ֺCPuE'h <uGe׆ y/r 'ｋwq:ڶ&b@Oc W]Y>t PtHP96 TjW]ˬT>VL13 ZT[oW!MMcțoǪM7oG+}9 @e W
M^Vgʏw1@ ;OކyX!v,nN+}^aUk-_FƺȩO VJHwO߇h2(
WW )T~|UЇ ozEu j}V>} PX:'
E|4/r|4߄E wcRG=c} CP,o?+Z fἷςW 4S^ҿr|j7'_9[A
Y=ƭaȿ~6!@N1@~s>>_|ǹYZ "4M
9 ƢX(Ϋ4< ߺL}ĂEMM|xO/U :}fP>4gis_ TWϟg?7c$@^b]6l{1zHuP d[}<{*B1=ȦEFx]h_~8B iw C A XȸJp*}NUe~,~ o2,ACa֯߾6
v`~,@}š}9ڻsk]jCmSd;߾ òzQ^`qq2:tP,^UCثfu?3O(Z$}U( Qsb5Uv~֛8=Ucoګ k#eem J3 B|탳~Vm[,Y ac oΑynz9nvmjȋ =Y6-4ֱu=[YP .PDнc ףPmw05o3_ `!(/Zf:aU{} z7 < & h\)z^ phZ>{Oj,J,cm[e%6tc' r^c:G'sk @r}d:x(:v [߳~˼^Mk\}Rm]uT 7w]XyT=Cl{g `!(/@Kchu,+ ?wXZev0(Zt2BS5R4U+Uߜl멏jB p$x #u/4rBǩP_d5 t _uȲr Mhϼߋu%붴*rڜ'O/Qb:[FV [溫5}w5 PDZR{!}7vfA
Uױ& *
Uc
mU6OmE :w&vnk |{ 7ZUV!OmwVM)GMj|Ǔgh6+R*u 9ȋb!UڹoNbd1{oby+]]_O[߾7])A'ʲY嵶lg?ZR<.YV{=eC^<ˊc BQVmjS
rJ}&Y քVOM|
xLfY[AD!8ѧ٤!1m; R7@\F,lS89?ˊO o#,\;o@^ir0<}{9bm/f[ůn5@uhЪCfa Y_Zu]c-j슮c2 7宅
_ Oicyr϶ [}r2ıy"gS:NEer-"άƯ~Ưچݓck
!( _ }=;y}z-8_FCN_}/[_ySoah5+߸F|Xz[vxrxܜl ,+"sYyϲHjAX iՔqpC'jcC'K&W><~/GsX) TkCu߂&ݶ8z b0'obi]\mj+(֪_m v>4/C'IBX`z9ƭhS%}w_,ogٖ g
[GZlPHS,<\?sE rv]
7m, tRjE:g^Hc҇UAgYK`x
C py-tM}@96 u6 _^?8}^h}4qzX@Sg[5fZU 6ߌY,ΏZe7W ېw|cUx])
P??FW-*[uk"gU6ZΫʿu ^EgAмPpk Cƭ,Vh0ȫ/=mޓJRK67HK0ԭg N-&/N j1emc+F"*SV-M:_ez_]lphj⫶# mb 2.)@^eEEm 6ϗ>YQ K|]W u{[C + C=W
ǎs?{6:}WǮ6y ]S &@.@.@.@A yR˪ʝՠe(%@vx|.okf2_OKV8^>du/VnU
SUU۲]QX^}wԗrƭYh!@ $/z͛|W yr; (<8k'lVgxWw5 **mtu;_[*ǫlis_
C=@>V
+u,>_! c
Y#c
3j UXEO=W
>Y #rVw N}ɭm;'?pJ `Qv^߄c5 @a ߸5 /Y__V ~?RyC0>~&v_j. cw)FYW_I=@h&uTl8 *䓃괫V\yѫ~QU _?gCuT|cߵ,ϲjb+.^!ȧz{7;m:]/]{p1]Șo`sUm=,'%;aUd;1샳+?h3@^vT6xp﮾zmbu;>N_Ӭxs#4>껦 (L\\\ Wߓ$yUcBY6[)ߢ~v:a>m=~U@o ]: ;?*Ϗ+CMjO jpU X϶F_FϛX9y}Bd X6`_Voߟ];_ w &IiؙｚG C`O:Mhm_7vfC2 ȣOv0V0!@r w_ y>;B
]0cvk˃ccm"L74z> 1_S7v7>nprP`1c?BvMZ)R)ܳMf{{bG~7m j~Lzͫ <0op#w`} "d4w-p\c K6am:\v6jf] H!%@C}o 4a,>a, T6@Գd|r!Z } 4 C 9t_^-soߟ]C$@?x;<~6 rrrr n}t==<}H ~ŗ t C 9l_߾}t}}[\}Wǹr`~R *<,ֽW7 QG6Ԇڨc}Fm6 N C 93-evsܜlYe?z" y~[\} Cws}|+r d p8_Q
6X@m 5 C 9
-ivx2? ?˾~ iB)@^-ȁ9N^6 Ox(FHXm
QVBt8j I\\\ ȡPh_Zrm!d Rq @!H i"@.<^[C?\+ %@.@.@.@APW
˫a,ȁlgM{ '@.@.@.@APקهϳ?t.}=ϏٯeO{ޱ ` 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 5p IDAT #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9T79n{uN; 0"PIvY2ޭ} @%P݃gs> 02Pz(|$G FF\\\ ٜ^?f-ލn 02P@2ޭ N ##@.@.@.@<8 p7S #$@.@.@.@L/wO}|q^ 0BPz Y6oN{y #$@.@.@.@\O/b9@ H Cyή { 0RpNv|w>( N\\\ zK}; 9\'@ %@.@.@.@ ` u 0XPt99
wcg[G 9{r=>wh9@> Cqή { 0rPz(|${U #'@.@.@.@lNez`w 0rP@{XumBm( v!0i;19( mƎPjCmW$6q
6Ԇh6Izm|UjCm
Tmh6ԆPj&鵉Um
6FSMkPjCmjC&W6F Z'@.@.@.@<< {}pur()eޫvyzhʽW嶣6)s36ԆPekC&W6ԆPMՆ6IMjCm
6
m^8_ՆPjCm4U$6q
6Ԇh6Izm|UjCm
Tmh6Ԇ([@ȡA>ݓ.7-iQjCm굡MkPjCmjC&W6ԆPMՆ6IMjCm
6
m^8_ՆPjCm4U$6q
6Ԇh6Izm|UjCm
uݘ i1'˃/:Z~Iܴ\Em
6׆6IMjCm
6
m^8_ՆPjCm4U$6q
6Ԇh6Izm|UjCm
Tmh6ԆPj&鵉Um
Q6 C{}rr6Ԇڨ^$6q
6Ԇh6Izm|UjCm
Tmh6ԆPj&鵉Um
6FSMkPjCmjC&W6F Z'@.@.@.@ 0 @ #!@.@.@.@ 0o1\"ݓ^ F!ߣOC{ F!ncz Y:zy' rrrr:Zo9]~} 5"@.@.@.@q\?> ` CܣOC{ f!lcz Y:w_ f!lh9 { f!{u/~ XCz(ޫ{ _ 9, \?˲w/ XC 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9 #!@.@.@.@ H 0 9@9^e7e{vnN۲9 /ߝo{p\;.Ý kfm=:K)m>{
ݸb[Oi͘ aR:{ȁ&Lf{=AؔcvsF ?r )@=\x|] f~_Tv 9=} gcgb9C͑#:*y;cIa͘ e ,$@.@.@.@Mofc7; ivc]ݓaAiˏM: u?NI|Qh6>>mX 孂9]ͩ/Ôo=c X m|gsxiojo l\^m R~]]kj?54})+e[mJbofn1qUju>j#u{ 8Gm]}Ri| [^.@qyF1ŃO}{}Z}x^wg{u~ѬnG6u͟$j _᭣f֓+Eq7ϧ149G<1`hv
k@\\\ =YwhyՓۚ69hfb Щ /
Wuþ^ȋؙW0I> C?x⤎ } ~ t&Chz *˫c[Z}q}ȋ ئ2&K:Vmy9j#HH6ʅ ?˫ 62Q}߫|f!/fj#~~,V= GeWypV/О+Eqy(_Qhh%@ ! ȡu{U?"nr0Q =r x;NM ]qT^|O/jc'7Ň7y
2IV6V^
c`(Ѯ &*W6ΣT
;ᄎ] ئ4ku }OH66㮍jzcwlqy}U]F{Upg6 o oT1ntVr+ݟ0JI}z\ 9u
(L\\\ [ɼsE~||1-:d9)iwuӜڤb'8UUf/4kRF `|B{6ER.\c1D&&5WǦϣO!j
=ez~ulS5f<< MmXuqFF:ѧ yk"h\^m AFQ'G]d{݊o6я7X-zwx edcgϲeՃțSt =ϝz)@~r 6
jm2o 'obĝc6)GÏ* F;N0D_Ð 5^ sm -m%c P]~* }poo(V^]J} a"Zp9Ϳ r,WR{2+WM~x$-ETp:_m סViԆ yj#ژ cvOo
QTmtYC
8qxp~-mNCuGQm }b-_Iާ}br0ۏТ3)]C6
nPkr rrrrf&ƞWe{MIq?y ~T!N0q!rfyrJ$c ɀ]M&Ie"Z~E|(V^]*}
a"ZRp F6uz} ;vm"o{_rw4j#wL/g}U=㮍4jce/`\^m AF ?={8UÃ;rv9H:n*SNb U~'عۋ ysR /Y6}(fn/V! ji2oS< LT!N0q!r?:|qo&%bon_h^;P&u% &ˎ7bmGfc/F"mE-Se=QTmtY>:Zw2+N8O=@~l\ YE.E|}\[mQ;E|ܵ"m ˬnzvxT7j(6"5}τ~/ޜ u;*zqlۇ
2qqy} 04c 9nyCO8fLpÏ; 0G,B174oYZRhPݗ]c0hn'=ʅܮ2.M~[yu)c5h]Iunf,Rת\:jcX_FF U]Ը>
jg- yh:۔zmti]&Qg*,p&WGrh!CV3P:M!!`vn~ 1)nqY{fJ 6vf[G?49]{f}wClr|Ǩmkl?;gl|B4YG)Q/0. ru-\77Y {5_k{B{ '&)V jD{w{_}m(n)]^>ݭW4 N8 Je1q n1/jkj:
U~O =Ȭ˫ H6YR 1Һn ]I/`6Wu
Gv1|3joyd5@o_0HP:MػWƕ8Yᕊ
U
,)*-())(..]piia`M_' M_7kkyn I̡ b
1ֽ1/uysװvƠ5j |7I>/a>N^WBuj~t:z@qRN6ߥl[wzx:w~j9up_qXSu\ܾx:wzw9Bgv
ʞ#s|)9tx.36{yc7MGso9?]Sm^ܗ[3vP}e=VRwZ>iii&m >,S
BYu: }J
NmSmI\m Mm[PW}|Fݗ[GAP[msfo/}H_
}+tPÑۊui2`Pm=7֯CGTFˇ/ϥ^\}; k&Uplmv8R"uO<C_C-ImWmWm/jchjcc cׇLQTmVc=GV˔{m izض(mHۭus]M3`ÇmK
]Oy%X rrrr8ִhJc{HhBa&3 zH " Og/C :7 o:^v{6qG˶r| oyvݶ6
}nÍ돟w$,f> U .G5v/b}Fz J SQ@?ț[j<'t Z,= ymy b2:/ FS!->vu6b[}ܗ[9țUWl[U
!}nۧ*<~W8OU+SL B\\\ = ݾJgߏѺR4t̳E}w
? =|MJS[j{Qwv\c`sUU cfXCϿ 5 649}xZGj2}yVC?uj,6dFX9nFlr쇖ε5m ڨs&3
mi Fj =g9~߉ s 1XRuD=,e;QN1C uiOx
F uۜbf5oj9 g\Mڗ]NyQk{n!
b !gBX\pdٲ3
')~Pm em \bؾeXɱ_6Pw:MC^Zfl .7oB7Mx9){`9|p{=y[u_rcӇ2;9u RC\tޘB=M:1&eM6cț /]_wu0ejɾY7t=iA0v Z Ьφ3zU%{R46 K )EGYn<LWN1K W ?럏SK8wt s cK ]\CK>/r4 P
BK} Lېb@Y!䗛Wϻߏ}V$oiSx=^=מVg퇏]547T. b^&ՄZu'+K1iRSf`ȡ%w捅b6|^ӇCXQۋwr= uk{- {1M;vi;3:6= sRr: *1U WSـB?z -'.K =tvwBk2xyʥ>fi{NdS i`zަ
^];ȉI5Tcya)R@ esuf* }PPCo / <~
ZAGMy=^(rɆz/ji{vX;wgжڟl]Zk rrrrIg 94FcmnuH CxO|x9mC
8u;^s ojvF 6~{zӴ>B瘱 N)^29qGhpJNU#GhvCU<|L{Sɡ>fis|Xzj9(0yZq+@NL}vs_; snG u
ȁCCW~97]?cyɭ>6 e lF: >އx/Z/Z%tmj G"ͱ;sy=P B\\\ әw96i]]:L9H!@'@> z6m;:_
sj11sh 3@f۷X\F)F }ʑf"Vm~pa:B9ͩma y. ?R=MQlw~nYZT >tR\c mӶsPFXlY]l_'@{N%t
8p쒅/ uMȁC}?νLnC?8(uj.>|tn<=v ߽;V`]3e uOB6L? 2 I zy ?]Rgm#ť|]|'NCulw!r] c9t)@^vmRQFl MPPeԡ,emĶkzWm
t+ -SP= ?ǿk kl):ݽcinYRD䘋
^ ϡ{z y*^:;yܼ}ʩmaY02=7=e(?"}9,W_3sf۬CnLqLӜ\ /^c+{ c ä ð7Ecbꎦr
+Nc~i $h '@^]wf>!@ G}?T 9.v/nV 1 gksMMF ҩ1/syΩmagzάS [JXg|tmYRgB箦/9c8N&KMCC0+fn# v- %@.@.@.@C uz{Ür
+N9ޛun"_RK1Y?u\ y>tyi!!UÄ4 T L y79- f= #E-8rK}̒䡙^X[gw]йl.W3C >Y|̱>|,\d+;fC oCA|h?) yr䝣PfUig]ߡeI]Ut)@ }?T ]3b}z8 F};jM;~F]ơ:] Fr{: *Pj01G
S#m֥>fIBȻ~h'c9+Z$,]C/+T7KyAP[妺͠!g&2DoC83:̵>.fr_14V|erlKjL=^ к}/@~j)؈)k}Z~#XI9el s~O( #@MNm 9?C]/bԥmn6)E?H5 yNOvƠ!:߇R~vkM-@\BáwU_SbzBOX&öCAk\Cﾳ^P^!cK¥i%ud
9+>u,1, y_ 9u( X`Ce`Nk&MX7l
䱺n j^n¿?{%ekQxo
@ eK Rf˩m!g:+MG1G.Ɛ#j ~n_cvuz]HxJ+g}1)cAuȩMf*gB yw k+|țq .F|9;C;I]IVLỹ y31v{rrשBiS|~vcj.M3!Ng~u;|nB/د_Y^ |˜:yOM׆T>6zݿiPqamv OP7ju-2a}:Fަ]e C6 @zġ{IOAN/^CP Wǚ1z~%K]cnJq͈
Y}#\Z;V۞oben_ mۙJ{b5{9dI<@9.KK cT
clw vvws sQO({X -e\14P^_ϙcKä+֡c.mٗ3庴 =Fh7$Y{bpiKy76B$jcx\F\螥Yhб9'/?
wj#, ^նZ9]3n 6`1O_xuh y;9)t/1{гA@}Yձz{B rrrrәw-Cin#C졹Kߝry s% UжokҘ 7$k BRc5$ 5T< 5=~֯F!iuZJQmglߦ8Ct3n /nY rͤom ]n ȵƱ9GSuJ /<ƶg㰯MlOIMS|(Et/?ۛ=hoCm SlQb}.9 }ȳ]Tm /Tu iVsnno ~3ڶs
zK x2HCXo:G|=P:9L 9̻pۍ}l&euBb#l 55 kX-Ih5}2HBhO
c&/ { Mՙ2x>DC`X@6 P>>ۥB)_ or{bҪ M V([W|>Sg:bc넞
S?GݾugmTϘcէTh:yelUIs5v퇾ڧt|*dcWV@;نޕnuT[GʪywMߗɶ ђeB5x-Xm469TéߘSKm ۮce]OFm3!Umg僸̩} ڠc:F9˶Nf۽YlSu}}ZֻUj_uCu {6hҧ C@0Sִ3 h Z Lb M t:zr 6 ?mB 6s(d;ul U=~U=jnmvYڎv^l6۲8EHR^_s
]l߸~Xo>= o͗?ր?ř^ngoxuj_ޖ @X^7l7K皺b β9>: A춞P-#XmC({N[n_&}Oj|W?gm+)nmOHu~sAεm6v>ӡ.7y-jlزS=-k]s-:_&74j#ݶuTmS5(ljT,Ru%P65K//}m yoMOM3~չ?{l6:r<{cen- ]M]C.D?6o.sv ǟ~|| ve]}03Ғ[(rrrr u}vyv >v-/o Mc
ś!ịUR/K,vdS&"iBush
?NGEp~_]mc v/- eژ ,:z._e IDAT.# ]z
xNh Q8eo϶m8bϠg\nL J '65ڧ>:žkudy%v2e3,SQu4,۽U=!bh,k
dX6; C682TSy[cϿNZuJU+퀦[jm y.FHkRRkc.[ E^=?_u∥ݗYBm }ȋO ds y3\}b~]}?T]c=~uy&)
092'C.m?PH>}B螺ɹ}f_nYCQwە=4 =GΟs;W CμئO{v"nDer
CXbjK.ƾhhu~u6#u>:(VA˴m0BNiH-@_6!}Mw1Nmq7ǎ 0Ŷ{ ;U5+kg}FHy_l cޑhg<[Oͱnm+4KjmjomYwMr u+(Vɲ}WRm>PxeLi.Ͷ`6-:_sRFf Wu 2f Wg}`c4v>iٮ1{㹿:4t|3k? gi/6Yȫ cri[omsϿyiҮU\qr|P6Ӧz)R 9Rs vikiN*eo^_-6FS"S Zm4צ]cus䡲J|aJPK_nlw%)vr۟ۻ~v>~m՛d 66R"tO;L 9j{{bCC[?/oxH7#@[m`T{u x j} ?4&]how:C>$[|~wH]7 5vCC3Vo;N`.ul;n5FlI~^+ CYX'7cmc]8|GmSArsZ)s{S*\_lo_C΄]I<uܷAs9 =NI ۜXu>d 2dIaɵQMm^}y@mkIߗ3n kjLؽryU6¾ȒϡgĹLkMFhfձ_ R e5rhwuIun߿;ۯ>^/7cI+L 90%M:
/B {DΡk[ђ;B]Ĩ
b1jcǻSˉQPh:TҟX_jd S$@ KI|" ,EYp
LSqȥX!Ĩ
b1jĨ
c/f>g Oq1 S"@ .7ǥŎ,^ 4Yǚ<:^h
bk|puA Fm㾜Z02*Ht N6QĨ
Bܗ6b@ p8 @*)t4"@.@.@.@L 9 st~~Ь{O_Y^/r *t|I PZP뿇Pu @m7Ĩ
U=TK ǟAQ<7 S"@ C)uG
ty}u D 9 @B/^&s9d5`O;\Q
}s_ڀV]ue&t~z^=\@c0GY ?wAݿ]=g~/pϽ 9 @V]gC:|/}iՑ۷_ \Q
}s_ڀmAL _\]= 6(
L 90% Q(@f%\^B ,ճ4(TqGm6P}9j[
u<|d F"@.@.@.@L 9 s"@.<>/uo/+ @3wl:]q~Sjq'Fm6Q/'Fm@=oX _ '? D 9:߽@len7/' @.wIyu {9 gĨ
b1jĨ
v~t~?@~M43r S"@]nv/ ov!Pݿ_0W Ͽ
J\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `&ȡ>Z?Z~~u n^{gO_9 Њ 9w~ {ǟ>| 03f{
y? 038Ϯ֧z `fȡ@fi| `fȡ@{? c v6Pkǟ{ .7ǁ }~ 0Cq |4@> L Cswǁgoߎ? 3%@.@.@.@V* o}ٱ &N\\\ }u '@.@.@.@ ` 9 L 9 .7Mg_ 1rrrr8?{| __ 1rrrr8~ g `ȡ8~g `ȡq kB=?_ ̜ 9sz 4@>wZB}h ,Cl0M?q~l9'PjCmWI~6ԆPj#Um'ǫPjCmTaO jCm
6RՆ}>q
6ԆHUI~6ԆPj#Um'ǫPjim z~=߾?{vٻoNC4YYC*7[II6ԆhZI~6ԆPj#Um'ǫPjCmTaO jCm
6RՆ}>q
6ԆHUI~6ԆPj#Um'ǫPjim z7u/>~ uC1-jCm
Ѿ6Um
6FڰO'W6ԆPj>o8^ՆPjCm
$}xUjCm
6Um
6FڰO'W6F z'@.@.@.@_nbn^Oo_z>k^< Т6ԆPk>o8^ՆPjCm
$}xUjCm
6Um
6FڰO'W6ԆPj>o8^ՆPjCm
$}xUjCm4
wߍp1yh9Em
6׆}>q
6ԆHUI~6ԆPj#Um'ǫPjCmTaO jCm
6RՆ}>q
6ԆHUI~6ԆhZ@A fB\\\ `&A fB\\\ 叟 v `Aȡq(ǟgޏ?{> Cj} 97 , 9]=Wg/7= `A!ǟ@G7ǟ} `a!8Owǟ} `a!l>?}}w |/ , 9]=c , 9s 7ￏ?9 Cq(g= $@.@.@.@O__}j} H\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `& rrrr fB\\\ `&ȁￏݼjoKw.pvz^^^nv]}' 5rrrrh4 =֧= R|_=}U{}rf?ܾ}V{Ͽw:Nk7w}Vvny tu<ֻlznnMR:z犇ݶk[eos@ ^1l?{|: :~m]w!!l] ?m&!]SwͿX]Uޛk~T r C{ŰmLŠKpWpjlFͶ Ua6%7 fO1{lYf8Sp ZC #9oߺv㫪6oߚ 9 @ȡbx5bǟ:3?|삕{eaxlB\ o$m=ꊅBs M5ZUMUsggnUmn 9 @ȡi06 j-, KбWF&o Pgp/ dO\\\ )7gC63lfAkpl( UWJWx( ߾5M }} W],;vM֭ ycf6zɛr j Qj ?~ D\\\ )NoYsP]ñoYcP7DZ'@6 7
-ft0^ۇ +9 Gxq3 yq&MĎ: 7r C;Y"&3$L>uo:K|(}Uτ O s ylԙ=$4Stݙ _U'
݆c; Mڇb~ܮ6C{T sCm7 : 抳\] *O5h
oי8Xǟvw. fh3E yl{T-H(L : 1 3/= dO\\\ ֻibP-e {cb!gW [oYx44yٖ,E8ffwKYPm D` }S3:[Vs> Ȟ 9 Q0mmĂ]
GC:Ar6yl B&%N}f tlt=U6:/@ =rrrr8&@~ǟ֙];Pȹ6 Q7U
^n;n^ucaȁ3 tˀjݾ6C~o 9 ?
L},C
^=7LS ]xn݂}3 .ۡwVfh۷ I 1SfN-4[g#@~vq
n<43{mp})@ :VMgSAl]ֿ 1ٖj.@ =rrrr/4[&̶WC Ё>!.ӳz}g yhͶ6{?:mَ)ǩ/ζxmoʃ}3fp Ȟ 9W,
m+{,x\'<fo֭n<U4x= y:ݖ{ cW /P> yٱR'@ gl7 5߽?{6a,tچ 6>@PlU]>}Ϡ\o^^ S y[n?m߿~i=V!C ~)B AӲg@pNڄ66\\ ~ymm~9қnȻxl>xt +c dO\\\ cf k -BYݚlP fnX.ێ] q
op},Uw!@~,? v 9S9>PS'$@~Ix4TW֭-x_ uwt& ?wP`8zWm CB13v rrrr}w/[ֿS ]C"@ =9~ݻzN= ?t2 fI} ?u~v @PO10xlq6!CɩCQ:E<}8A:5@^ -wl6ۿ uujJo ]ۯp07 {!@
v]PkM3
0Ql] <}fo [3u|~< BgNQ/zN[c8 9 @! 2 ^G(` }h;ۄGaK CPvr" ", LOx<2DP~lSCW Ȟ 9Wc6ᦆ
WۄGC Z6 ͷo>W.vT!،۩fFK0ܝ6Wq$@ =rrrr o}RY,} \m }<*Z~OhfЀ ʻj#Eb/~fۭƺ϶Áj3Eڼ}; *0萳31sfn
-~PpglZ³%ToSߧ?gp Z I Cb 14g7?P*&m 5:އDcچGC}09zkxv{o /[f!j"|RU]j}~r Ce3T߽
m`m(vO_f
m:m* ^0ocNk)ȋçjKm^ճ 9 C\(Lz |1\nXHw`m(6
._wuã l n=bw `N<K
5🢖3wt.@ 0w|\ß
͐;FOWݩfn
g/M£ſ/TSC>*enX} = ylR o}SnqRvfC"@ rrrr"8n!NA! Q AP*&BdIa&H Ҙ&E\xVAmuzaX2pD k B 9rҁ~6,z⢨!ɵ8 UBuЪ ]nU
˘ a5r3u6gw}o,ArU=k]e}3{xg?HF]Ԧj_ r 2i٩
'Vgv2k;LkkB[ru5ҟEVjuj6kL#@چi\Q >6 'Zt / i~LǺn"@/ "@N 9r@&T[)`h,: ۰;x: jPI7-й|F߫
Fnripߑ6 @|ViW\V8Hɵ8^Q &˒imERWeMZo 9r~@0R\>yK u@Xav eH7Mi WH "жE,MmtBҁ,ii A!@N 9r@ G&!SW3;n>SVPw
O݇t͚lMS ,BGvAeЉ5*@>2o 9rȁ^ͪ0XoMg .5 ^}w>\*@>2 v -&Z jF,#q=Ͻ&o 6 b|d<^]m|hߦ u< 3 Jc1zνCjwlǟwvY}o"ǝ puZ$Ƣ yv\q
FoV2}ͯ<*|9 zkE' {щ0㻻err|>r0F 9r PJe o?).Fzm?} }"prsW{Ň .^^)|ynވ^ ,ӹ+[(S\Z; X+:|~Tq[{g縙wvs Pv<@_-4cM촡U С|w\3 S /lz!@>2;e` 9rȁLoFK0F\sn%zvP.zPȁ0 z6wKa_~6 ՙW6z
l ϵW~'r
Iܼ
F_R~ҵWOgKΗh2]w1 -td9Z,Ň=@ =a'ڽ-|/z /b 'y.լN6)}wv묡{|JAժu 1YǼ۵vtbyG|si y6Fص1ю6[>QaX+^ U[>۔".ￎCDm_ {O>763Zw-ſ%Pp߾F\{>^"m0>6< +|vx>*eoU '@N 0vь<ۉ> ~E "j 9&7|l GǙWSrCw'3G'!7ˏgZkgJ'@F F:BK_\;gbL Ѥ`wvClT:5a%/W NȋݶtD yy yB8χ6: (Om66y \ۭ#APjGmt&|~_| øRmǷEat, d;MgVYh+XuԆ]}Tq M]wOr .r9ͯPaD yk#DFX1bn REFW/8kQ
u}{jS'c-nOB
:}]j;ѫ#OoӺS\Z- 6 GRO,Ǘ
BGh뷞yb7"@ ҬyrF_ yw
ܼ}1f* 78nވ.> op ʙ>/:f2J[EeVP; bުsMtL{HqvDx.,i:$#x,Y: Tv0nPCmn#ZQBp j ypNmXc vޒ"PF
нnڐߟ%u:6Nuw?n/6z!I;Hk?Y:VTd͚U3glf= e ūc\`j r !aP t rHnPťtpw5DCvvd ,#hklQCj υ%!ͦQe62 JhY_|ML!6 ܪ*KG< x|]
"BByn vSaXK/!/ȫ]!6׆dvӑq)=֑ (Qdm{F_</@>2.ϊtPMKuUWr uAm9 IDAT: Wk@?G '@N 0F0e@ C yC2toX9vy>o)o.CDt֨A 9HB>RԩFx.,!Mgt
md\Lܺ ѤiB ܪ*KG qjBYW[ֱm7QڐFѨ
1֒) \ۭ#APj#{faOnB K3fYkHuo'eogQ\n +54V !@N 9rXY|t}3~?O8_G=]M/?(zl2<+ͧ=d}iaP:[h! X7܊Uv#A9 ͯm9#@m/E 3`(:7{li;}kg
ܾ}?нxt՞vՀw]~|^Vv '@>9 7֊vF *B yێʮA::)N|)#* Z5:~K-6kq{lWg2uD+B g4i}.T8ۭc nj\!/ȩQ~kcjCn lHu:6B
g>~/! j Fz^:\&rukwZ^&ڽg-,y2] (% zV% [|}:w9k*:( ve9 ~}-uy^]Oɧ/oREȥK{^WehFOhǧN:!#/"~ь_~s~&_SIF_.> fSvEMq h /T]5ߝYjۆ5fϲny!@N }$;al69#A J SuvS)bQ@!Y:cXթΥ,>>_eꈦimM;RtG4U{UzKZmb{6%\p>\ 4Ge ~%mJq]n.˥v>j,:aW1
ؔ ~v^ݽ,ߓg;V͗ߢ'ϲHsbm (_am9BF|Q ,g_^5Rh\ 춛i-FŷMǓ:U1@XCw]hEy#~ }ytI6Km
RB(6aO=Ge ru$JmV~$ۣdh+ e
6T tW-TEn k-X>twrMw߫k|d\~_L '@N 9#W ܊uP7ϿfN:aͧҜ[,ߛ|c^6utlfVv#)@^#my?o? C7f!pN\ϿDhQqy>I"@N֊~x[soȥ M^#H:1yvEwDf7qL OG̽^ٖM5? e 7Z Nx\1my-ov8/[\u Wy~%DvF8j_m_yFjHԆP
>&]S'I@j@ vH6|Y:8]soz& *QW Yʆx+zSe㺼r6\>6W<縪singiwyAwZ)5{m
A 9r@G0ݓg;}a;K~2M4Vm?G =h}2hTj}7*O*^>hF7o-:.:@ޜ[Qּ*{W AoWm/_E_*ͧ`j1Fq4Z<7YFs^\/m/0ZE[^Fsި]7Ǘګԙnވ
+g
U}5:7{EImͳI2 7o-OڻdtᠸN}8s=uIouwߝ,4
C A y 7Wt|DzG'q}_Zhw8 d{5?&?_:HO4{m- Ph.Ewm79~h Rٙ][ WNV\C: \UX>Tw\SGBe눖P;-@ H)8K]ubNԆȺlrF
ar\6UUu:6B${`!Z{#Yo^E}{cQNm>-u:.w_mgƢ |ڽ6ULgucQ ^:p wv'ힽZ)56 퐂7i9K|mU
G~(Lҙ9"~9/.ix;Y:oE}*@]EQZojc P4 fKG*Jh}>Y؋; R jP=Vu͕ͣ~ɺ=F axZmU \ǥ .ޗ'm.Ґ@}(߹PnEȓf[-"@>іgĝڈ_u?V"}{{
ˇo tZuk\Q,vSb{F6 X/;j[ l6y;J0 '@N 0b&XÓg;=n2ceRhfЂ+eϯ7ԩÅ8,rѴA$K-JFlamS.m; >ukϯ"@N 9rXhrP/̵&Ee3[4هe /v_]h4/_9.NMg_,O9/ւlY?KzіQsyR\ź np .^L})}q*=?mu y8D\V S|]凐zsH#_V 6rt, U-BG(T3UK5Ϳ_.[\
>lןr([|d%@i`ӶO P
RP VD|{_P/ y( ۫Ա|/Wi3X:s |WsQ窱ݽ>?}5;T{(ϵ կ
C 9r䀱6?Wڄ}h9Ҿp1#K*Mq=mf O[vYi7F(˳iJoF@^@*U3 oKUw z7NfZifw^
X^ R~ՈhU~K<6@]G; dVD[AD AȥSǛ4pFRMnUى ;%R@܄" ȁ
P$SDq?5@
~"@N 9rXhFs61!fg
jC }|OYW |n@7m^ey^sZR".hˁ^e
ڮO$@. y*zlIoF?m;i $ 72P p54ˬS VC) :- I>r;R6ݞE2uҠ7YnUٻ y;e:|Kd5 .uhFH r>t&^t:2Ȼq ~c 6twcc1%оDZREȥg&YK癴LlʺimE ":@ '@N 9`, ÅF3Z|G?A ѵW!٬B_|\GG_yOg +aC䡶`aCŴ0@2\\u KFqg !9_c].:-1cGL66L^ WU-x$-oc5SJ Z9&!%/?0 P^ -3{[׳EUز+}8n&o |lmcq2}:_:mQH۶LB 9r䀱Yg81(}1tgnesԔf~~َ6rwv G4(Kw[6BY )"6}ylr[hsW:,N<3. W[ʥDw=z^r@|Y$cf穎ri?';̽}폺\dl 4Yw;hc wlf;67k Q|_fw'W j pAFgp d$/ȁ @ oy0 6֊Uj ƖWۏu}}6u?nES[%ݿO"GٖarMvHYHϛtO rG 9r䀱Yf?Rv/~4txь?|/[l|kuunPGz=yfG ig\:娷 "(D2AʩJ OqQ]K/ c J 9rcu Ͽ/G}I/3ߎ +3Rezb|%hC˩jZFqˑ6r3K;gG@<۹ @ '@N 0V *3 ҫ-s+ѓg;џG?e
w_c^?)v#mkyW69bg k.PYBߝ 9YH_< &2to*\=`(P =@wv7e .nRșCP`y~ fz]p y/-5z-@ȡC
,^̆$/ȁ0H6]-3kfT%J[u26aUzTrҎYi
@ '@N 0V {=뷨9byҫؖf?_My_:sWAIڍ^Y>_5H>v?Ж]syBhw\5gܾ[x(!7e鷏Ulǃ Ge φ Zc1D3\g
e#Zcm܆d:U lG
=@D-@a]Q
c-N`t/n[
:&+hg"g&"y+(ęag1E?SwL5
T-m,ǖf鞦 W '@[o=T3?{C3 IDATؖ+i-}- '!%i76N?_ yYBX&C>Kͺ |"n>i G φ -y(:?wpSuNd&JtёrNOg;cP 8zFz l,ȡKH
JعT
#/?z1i-M{:_[ @ }\^ϙp,V,ifr '@N 9`NFs^ ~LjY|Gٙ(Y<Ӭ%C 9r䀱:ȥf1P,-uܟڍ>֟'u>̻-G K,߭):r o\5%7tou
f ԩjC#u ]mI C
˸Y=t.nrgf!xJ>GOl}YҀ e
>|Dg)S\n= ZVgzڗȏ˰k( @ }{a_'&}禦 tߨ}dYA5rO3h#@N 9rr ϙU
Jːe&uLoo9 +?{>ֿ߶nmLϿ݀Uh;/iW3}w[zR\5St,C_; ~0|G_}U|
^
x_i}icס
遪le҃WL3ձg3)숦
`V-TXשZ>:K3۽upqΐ:Pvzf
9W".1m{/U;'Aȳj9M}f~5DwS4}[@kCuaz~Pݛ@\CڐIgB
jKEm{kۿ3b(>VmӪ~SXi[.o;}("@.|ԵEy. ݣ
(3 F 9r1)@YB XT
F~CaѼ?߄ЋRv}muk7B
2|M=HEQt}S>Z[z -@>gfE'3fZ"Y}F<&nˏ|w'אɱ
E?#r^L`!9@d..wzUH#u@pљWEvnuøKա* &r2:n'Zց2 |CN
9 _Nή;ywΓfOj re1(ޖhewrj"DA:.F6IۤNrjTAjCMf1m&
:V \ 'Agw7a/3!UP1֒wڏ*3x~%_ =X]ڪW"6I_m`W!\EzQkB '@N 0?z:Uκ\9/v"7BE8ҫ,2IrT fZ"#˶aft6O[!F~k|f Ҡ_~~Y:7ӷF?}ksnP>"0:xY=6p @ U !iUypR{~J 9rcOxT+(뷞5
JW_f
:點Mw>fƕf.*ỳ~ 3M=FK
17äsrJ/K[ ?12.P/?>o?2<"0z ݤm[B\=T?mU}' }LA6ϊe c"?}k4 1HSSY9R7abAr:Pu8ѱY(Cܛl#ޫ&Rdž:UK8+Xh:
3uZwm!G5jpyu )c2/V3;J35RM|6&j"Du:ϧjpf[>%Jmmc
=76zBiUT?U^`P'Ԇ>
~~d<}*ߐ~k'U j]}ܷnl[>:uځQ|ei69u5׳UX+_!pϺgl;o@R( E{Ti '@N 0
l
J3GQ=yGy9 `zH/ ۲3ѓg;F܊
LfͲQEЀFS\BiVNUɳBI
ԭ6lۗߢ܊f"Q &Lz٬K]rԗ gy>}k4}q'GZu <0W}v 0w'6sWę;gS˪0w'gj?}kٙWsWTC3
,6>Wr(tEni6VUg
avU:RR:˺SigU #K9ST U?&舦
VkWUdm, nV:'}~^3j{ }7&[i1J8̻-Pu9wi4m;uZi jP u@, ۶MuUWU}u:ϧ:JmTݠ6mG
=itT)FmRU]g M \^Fjÿ:;]3>ig͛N*P'valb=Ic94ynvTm y**@>2Mtw ^Yl5yOm ?u]oe\Kp
P7R[ '@N " uf4U
6bH.@Өќ/4=qHIݙm)0m?_<=:PM:/` V\/*P n>^ߢ__L=f]kuYs+4 PGQ!!F^膟UζNFs>Z| Gf{ե-G}JZ Q1 Nnވ/k`撴K:ҶOgSG'(L\^YMnMS?ct`Ͼ \]|83B%y#;A{ǖkptyu
ûN\(r "~A ɇi Jo M uƢܛ!*_셽'?g ?N2ܭ4[ᥬ|T-<MQ;K TJqt /19 i|\vOaiv7Wi
7ջ|wwZK;o?
8ѬDZ4| ^59uB{ӻm'm]U4ѯݪ=`t*ץN%Et_k5RImK'xg[Zu
ι.ۢ1֒gF'CS鿯Lhu.OSo#@\] dU <˩P;_ Mv_}tW +&2P
Pd"#(D~ ]Smiϛ;0Lm cx0W@z2-+3;J"Uk
"@N 9rjVmk_AЬyufѝ_y ǶL Rڼ--,r avaFs{nL#F?OX-Ižl/eԖ
?BUaZٷS[RufXG'^ %qmֺ -@нL2p07X'Fv!@UP߬EuD
>,4yPr;H kޑ&hN]eog& ù,&ljGYwLս Ewi Ҙ,KLAZlU%@>>
r}u:Q 6L09:2{ni'@ =>
} iZyר5G{Uխ {Y6WY]eYJٌz %C 9r5ۀhY7gLKg\c[ 8lέZ0Bw>ycw-h7¬lwvNEGvs m{cyt A&\=K)SUm@ '@N 9M@#v/{Bw7~-oF)|: >j-_^М[1
m +̯<=w6g#h}UXv#w&4@ީOVj[ֵ-G}~ 6^|8 {UPګ\.> 4n@m=BͳߝN^{EW !@@QSzCfwv >,Y~;N
.:
| Ѫ: ymX+Ÿ:c]Fo ?J_r$ߗgYn,3v fw5#f!De
/ ? *I =l_>Pȩ
S1:Ն}Ini3t. 7Z kv[0뽷Q| 3侨Ӑw4kK) 隠w '@N Bo>^
╽Foѓg;f6(~:_}?Gh~R}3zvo=f?} u|َVX/,톏Щr6V_BjPֶ vnJI7oDٙ{nJt1.gZ>1y/?> Zaټ[! =sv֨=gn_zWCա _~!uHۆ_~! SeTc>y_&@i?Vam'ywӇc _:9D2tnpi ]ˇ1mmYu^oRՎ !gj#ntڶՌZv-ݜފysA w:Fg8֊^z
ݏ_U~ W\dQdr->K \Y^7j#?[ǯ
&= W2uX UڐMյϝ~o+mwֹ
%No_&BoXq繍* ۩ݸF]mcwv;$M2[A~tjgWٶw7>qs{uh: @ '@N 9FsXI2_ڍ%<Жܾ_]7X {O/.NIu,FJ3Uμ@%- G]Bm@ڀ
.{8rP:@ e%
`c9 G/ivk@i '@N 9 P{ou
@$;e
ugx_& Б3P6Bm@ڀ
P6&zgL@hZg{^Qr1J 9r ~Xx= J,f@W :&Ƿ\ Xڠ#/rݥ(yP6@m o\ 썵бt xB 9r @o>/8Ͽ܊e #:](ˇtT8Cڀ
jˡBm z|?V0 ~g#
D 9r @h~ 6v܁r !<j*T
p]j诱ݍ !ݍNL_ j 9r P '@ @N 9r Tr " '@N A 9r @E '@N 9 * 9r P '@ @N 9r Tr " '@N A 9r @E '@N 9 * 9r P '@ @N 9r T
} IDATr " '@N A 9r O87{r @ME'V#3w,kwYfoCD'6zDr@99pfGXх=˥"]^& LZщ>Aό2\J>Ki u{ #@N 9r Pq @e
Krg6Vtbz!IC l wg-4cM촡U @fC{f N( '@N 9 a_~A rI S \;(mvo$o˩ dޣK5ӄ)Uցd Ci6юN̽wi y۶m:l+yu,SRլv|aM`[yFصfmQ Mi,~ֱr kbaO ~ϽQi9 op\؋u
_h7ҵWB.oWe<\ZVj 9r D i~ HK_\;gb$ >٨htDS:~<ԱAm[<jEWgZ>*F(h7ʵW(B.ڰkWʦ.r;'@tb 9r D i~ 6Z`p:H ɪÌ3=jyhv6hۥnm-n:v8'@ yu,SR宍]36BDmU[vmG7u:6,텯{0}l>Uu;Jauh7]^! \vϽm۴ oz> 9r D i~ 4}z >[3XR`Yꘟ쯢U E tD.U렚\imܖ|ao/erN9SaF5 vm6A7˰#vH(6}:˛. ~o;uPW(:֡wBu\|5" ^u
| F 9r
"@z`? J\SGH!H>^T헡BBl K:%6jhֱ γ:^&y<Vm bm4W|_ef[Xr]nu.6©2ȥG%.^>[lj| ݰ[:ru,\ (FҀ\Br * 9 #@ (9bLvDx.,3`QIyH!v6hۥj TJ[EvXY$Mj:֡6¨
U} vm6T3 p:˳0W:Ṱ?Z~Gv/K煢:ouPKmnUіۭc :g6UvX6Zz3JjF
!
>2A\nrOruu9Nm̎;@./h gE_:(gmv*\ۭ#rei˥ Ul/
"@N 9r @ GZ=c $gh vz\υ%!սlYym;/%FMTj^Bhsn <䶩Bp[:FjCjSE6XKn LHdV#p]nu.6U {rb\42^E݀
vH >_xW '@d6(m?yͨ96VG=e4(j4 | 2o>W y' +нc
GfD7oN/,˙WssWzhP.ۡ 7sWCǶr 0N {M TŎ kdf;~`mj#!遼mGeW Ÿ>efMȗP;5Hwv!@?Ԇܱ(6kqEjLfC4βyùs][v3m\=\˯s"yuCMm6 9Q4jomLmm,~\ۭc ˩rՆ yG% W
Q(Rۍ<'M{
=J;[u:5@D:fg-,:mkg_@) '@N 9`e}i_o{Cɳk}oEѧ{۽o_ѓg;ΗGwtEzR|p4b\{5]~|>\d}:뤳L^
DClsWˏm]ܾ]wR\ӷFkhvj @0g|XETTc{ػ99VAPА\\r se.9d
\<<(DO!#{@a~h6_gLBy7mA)W¡ ]/%J!v>f4<^tݜdu/%?;YI
@ƣDŽ:G9(:ggZ <{mo[eH:MaYeMSz+" +O(tE}] vau4m8I 26u gaim|ﰺsl<_l bbYIEWm4WEjnj ?;~;?Tt]^lAFj h6 ymj{mԩ
Ǎ<_,vxT90!{.f?纼zX6j2̯>f'5@~\ ~3 C&ɣ'CI2
<3/ᯥfB?5H翕eRۤWt ZNAgCUl2?k Ƕexw^/] P:¹U6[UljckNj,o$kеDl@" ˋ- h[m4 y<cPۻRujqk\> el勗<[4;h|Qx|Vp,ϣgm@-a'ɧDvq9ٿp*\&@$ $|0;Ѷmñ3?o:5s={S =9?ڿ}CuũFr*:@Ӛ Boy=ywwo&oy=yǗ*
O _J +
ǒ?^j;/HN쾙>ONGe;eB۱eJ&'v, r y~u6GzNVDã聾FA@|izr}8]o:1!m[ NPym}>t ϮUT<֩l|̜hg鸖wYҶQ]hl{ãr!6 ۤy;q ynYc?+iǏ|enCŗ!t,.Ym4[eWUoQ'\m vζ-j⺼2
F{QWigk{mԩ
Ǎj~g EQ;w O?Xvq]^u~wyCmyvv
m[׃xp^ܚ̾ZiX^ãd&@.@.@.@^0p${N
6|. Ҏu2i3Y=r BGsф/_蕏V2{?H?
PdP9->׃o'ECΡvKg _Fx<]~rj}
ϯ yNV狌 ?DPjr{"[Z(1<7;`7C
0tyƝ& ßmK<Lk;ǃهcy/ 6]Y*g.[u?
$g_Gs :fd} ho\ /Z CԩyʳƳ5)~ wrw;ePl,yK/<>˅H08-@uv ~05 zٿCB3o
YW&< X Ox|,4NR f͈}6$j>ȫihr{f1n6EQ++'OgeB w}:^/:38sn~2t~u\w:;f=u̳?xbRl%WWU3t>t / y0Ls%@ }>6j axF G6XgS1hX
=;+r6z
[ydށB[y6I/3µP Ta0P[v"6v-o;B\*g
0ظxݥ oP8ozm K\o*dvd
f^/ }oљzo B m y# :cvu"[ y[ZݶX;o]:\ٟB-]VAnjpaO}> }.LM>WWOvm п> 64w_¶˙s2tۣ &:5PO b瑺-@ 0Ut Rt}Teu,#4CޙvƮ ߟlX֖yC5#kOB Y 9H k,a6m~9F5> 61pXh ,
B <X}?H}k m:7 ſ x( ן ޮmcwpCEgC|cg%o}F3oym 4r5Ż6} fX-:|WG; LuDBt[Vf`Bhd=Y]e
K$@:%O T y\˴-@>{نTpuN z E[ʮNEu "vR!(nԟ Wg'@A;~g"Y
kz۲^l0/%?;Yj ?ON'o}F)yȢr}3 2i3 /J 2;caZ`6\} : 6 kj{u@ŽEsBOϦ;)@ ;Vut<
wFRt() ]˾ Uױ:VYv8u {YP Lrs g ?(^
e#@ 3 =y K[~n znv#
XPೱ hERG
ظ] |[wJ=g럗Χ -J {Wӟ U BUUMaej/HRfw/7^ @/F' RucU, 9ݺucuJyvd$?2P|Yu߽9}*wK~(@^t*o}F䋼Keb -zi M,C|}$eC!T@, 8)ev oT,>댹yJwR<}EqY+-)y S= ȡ?(?\v;\3Cj[cgwvG/
oO; ǡڰ -$ ybeH:@^ m!@.Ԧ`kUX:O|ߣ'f' g
OzON6ȫu|Yض?T ևFOi<6FHW:Y5@>CI;'fe KgZ>1\
&hP H:& \k@-+@>{L {vն s
myn'D>]W`yCGϹޞGziǞлga CP[şvgɧ$[2
6.' =l# sՊy' ~r Oy _J/?y -3@>^ϡVfemr KӦ_P>ϜutoaH dpUGhZdu vG~(ק y Nk2Et`e5\9w_:&
4|2t}g̠ б+KkgvЦo! U7HŻŃמWfȫv y: %@.@.@.@AmlD>!95}ve:5H>u'CyB#^zۿ>~79䝯^MRCmBRr#CoSskm/@ =&@^Nҽ V" okհ9ytAsQ!>C3Hڱ<1U7˶/P\0ofEt`e5B4W3ٰB y[ٮ WIf ?3,̡yFw`wt/8_s AziǞб@: 9}M7| lGٻǖ ع|ͽz0uvPl ~}3y7߾znC;}nHz=?l{c]& r&;,
Wmr{TݡaY G8ۧ y#Z W=@^C%-vnҋ,c!Pg9BucYp3qg?3vv
4 ymƙYmuxEarE*I
m: Bǒ>ȫ^R CPˡ '_f3_lۧљԳ.Oh]1,@]kt䕏f6C!쓟.Ԇ>~w)X;6{B r rȳx7Ѧ>Mn/_h{-6Guy /),9ut([fǹgd?sιo
> `5iЬF `hb3Ο/yϖB3ƮX-w*> 3뾏<3}jSi<_;4pTVU_л CP(jm/εh`#^v|lcz0Ddۇ?4^'u cNf|tt{҉7k
a аia @_f gm3>kD y m
VY p|xT7 wTegPU
:UǿZuG\[|
]с',3癩~Ճ'K'v]u;R%@hwssEݶ sxNR2|:ح`}a CЗ ilC;+@~L<|jQo翍 ,C(pod}̹/ި=@~̹w/,# :(ԩ?mT_:KP茚m LU3UEVG3gO^c,~&g+{
J= ?˾uJ.1zA)I6+t?yuO ?@TVFA< Z7nzvdگ y[uCύ( zwۧgm L\\\ 6vη|][ ?zrx:Ks/%? o{ o`#ٿ0$IH =9p ;B/Tc/C/ MzkL[grFIMͤªwD`wG먏ղ:]U3b3dY URca:U^cBECҵQLvԽxv5.RegY?㤰oC1d/6bBǧ?
^pgCLt]Ne=W*Aг*u`msãv|ۖi՟6ǮVs+ ;PG-BZuDCgTmKro CԳw.~_ٺg
6.+Io}Hs=߆B.
ի ^.'?9 lXZ,3}3yON7^kmtjyu_ ye#d tXoyT +
+ ? :x xrdx#e{ 5y_|ͽ9+I䧟5F (mM [f$ u hksA;K^WY Yh ZWq[}.3:g9oByyNSyUi :*Vy\ϼa3zf:mum#q4 ] ]о1
r6>ƴXPex`}j> e>up2\OoXv>Uz:{4}l.7V}(
]z"ڼO:ߩ[ϹCǫ|γma CPhؙQvc
~?sޢ ^ dB3WlPWPg.
ȪwD[W7ffsXhCWڷbՁLǧy d=o>SuPЪ;(: (ł*]H6X_BBCAl6f e樍]loJ[X_j#ߺxaF]j#>pX{йgvMq]>--Էȿn>>T 33qAƺ: y/-0-@cϒ\t~]p]<m|} d
ԯi ã TY$I}C`r $>{꧷7K`#y`.h=/k[&ã'Zm|IS֝Mof>\>~72~Ǘr
جݧ?;o_\`;^,S zڶɺOl{ =+ MNv3 j%@^t hlB]\}x4z^uz^}@,Ti3jo yE V3牝;:V6 ˚,>MvJP
ur\F;B];e #t-ĔEF *':/:.UFwPէ[E]_v u
uqCm[7]:.bI]
yʢ.:|ڢ>
6cU{`tLs<3=TݥfWLWM> ht͗&[>w8:;W>:}3yљ'!@Ggq'?? ulؙsONG'wĂ:9`^4
Ks
}9rm_;e T9g)xͰ/C}Ũ߳> NUe;m͝ǣ [yCLlŦkNB tJh?n퇗 *#i3,m?H?vVa.ޝoէ;>}m gvm547.y-ioز hڢw7z+֡rM͜6 <@6.w]=9@6Μ _w]O.ݣ.&e əs W<꺼̺+ۆKyj6痹 n0w w?fͼ; Pelx|M͋kX}UȋǏiOؙra߽<5Ky3?r ӟ 3's 9 ++K{:.w"Kg2/*
l"@z)ӡN$}
/>LMKW /3[&YM.h?+R7Eo8X丞-k; v7<>vvzƦה"tscz+TEum35otOhZj#E}
6E|uȢL3F y}gmsL,vw%@^4<~\K-6g9מo3y]{>ZջUzst 92ظal$>aᬰ=zrPhڵa`7{s
8fW
Ц 3\8^\TUؙsk |)sؙs+ -=;_t]E N XY^=>dcև靏zY{^Y_o,pvE;5Ti/.u^wt*;c6wwvէqh\}g1w8>w\/ږb Ҷ kF̱.ȳ/=7 #, G6][.I =n7߾6F^9*SmysyOIi3t vI ja5h}|3-,fENh^=O-3Pa?e̚ IކoG窢?.3*ߥ5A ﰂȡSo%/& $|]u=Mo {q9ٿpʗ l\Nn:gO
6[wN =9X oqM;_z24K $?;OvrjԅGgӟ4^N^'R9 Xqk1~Y;}^!&QK}:>|,40[{#5[/]1 u~էcXmҙomƏW{ܼxw ksѵ-.3T?eŻ;6Um1;st,(tpuκ9y~^:Z< rhi=6e4ljcy.ޝֻrпu6^83=p֧Aib~]9=C|6և˹Xصr1mޣ͚
%yOGQfy7w %.4Rmj<1jAq8u91j -mӖg ` n3-}Lk2 h?
?o -0ltץ{u6d1;Mgayb1jArb,vM fmsz|f 3 rrrr Z꧟Mo6 Y> 'B }86QĨ
b\6 ف̪ f2HvW7 ?
rkm Ef;I
B& a<1jA u91j
hH"
tv 2_~s/w獷 u1 9ku1<M
`79vQ 1yj.Gm@qg,Q];|$ 7 Ӆ
+K\\\ l[wo rn :{ IDAT"
jes]ڀ6
Y\{n h 9 -㏞ $ X;G:]cޡ;؝/ t 9䷵? ?{| @G C~WWy<٫Oo? t 9L[Lnx4
y a6 aӁ:5 a 9 ,rrrr&@ +K\\\ ևakpe ãg/ܞm6 aݕ@gw O '@.@.@.@
C[ Nҽ '@.@.@.@٬7`wo6 qt |0ًwMQ~c6Y . |X6YTjCmՆmҾmbUjCm
QUm&&W6ԆPUՆmҾmbUjCm
QUm&&W6ԆPUՆmҾmbUjCm
QUm&&W6F N\\\ t:8ٝӟr|:s>_o6n9 @9wiu` 4}?MGͷ+ `;V49w ҽwt L\\\ E Km [v #[ȥ{~6c o*S 0G\\\ ο ] vms4Ա0kG *^Y ul;l-G.X &v Q /?Ⱥy ϐ] ?sje8ϓ{|G ҭm]]\vRbx^e004 {~0z & G; O NX Cq[G^=pU: LQed疦D}YeNװNAt()e ++\uy/y,;#@?0m O ~>CbE>
]Q:KM4y5sUv #@yn{Ty}} @ȡt2@>ٙ旭tph u60) :h%ŖQ U5;a xo,ޱ8 v tiH좬\\ޮ7ѽm uͷ謁> vP\_:.#@3rD 1i+!8.%ŖQ U>?:دmvg?tg-;@>;$}Uok? Ri]1OLi.tYEOG\g=f4 vPL:[#!_=
/zI3Etp"@s Ob(X*Tp{\ꝏYĽcqCYOLĄ6G?cc(zhj e'cpTn@h]!`[ɬ* 9ӧμ y[[QϽ NhBPRl XEf
\{|rg vOL Ż fmgyb6g!p]ZBw|4Qfj/.z< am3~l~63Gׇ N\\\ Sg*g^B:yVK'I[ 4qt()e g'Yf; w)qav.ѡ2
j LƳDžUr_^nk e /vشg}Ǟ41~첟[#@/Eߡ˾du4 kPM6} d6)tݞv]Tg \>M0Ц닶-,'}g> C~}[u<6 !W^,c=] <{[GSv m*U -+9z隥>G/gQd-bX ֥{v<.ꮍ,/ KCWYױm ߜ jI5 uӡ2%X Y]_>Jkq=_:
vˏ]9p6;VyLOX<뺮<]|wYv{ 3GϺܲmfCUs`מ7U q!onA5 ~peM3*'sF{n eQgK}5zZkeRߍwǸ.~}s* 9L4fgg_}e:@ ,/^8*>bkKnWf/~cãbA,
Ydm3[G$Dm^̿} Ѧmv\
^7ڏvm%ŖQ 6
fg/UQ|~rtmسe'oӽc|H^s =ӶU
oٖX 7f9B-lvB*%tYuT~n[ oX]o? bǤ&gYMl{P}7}O6螴u{kbuY^nxz0Μkw-}7ܷm?fPr&Ch[ 9L#]'Mȫ>eG5u^osb &YU$U yݵwLdmWMFxD"Xn$¸m
gBmP6 Dw#Yu() I@]UVZ|Z̽*#,ooӽcWV iIїw`fKI^
^tϾ6rjKE 6GŪw٪;* o6˲?L WbrUj#BҽX4"|>m
5u,oжu蘬slcy,]شPzt() y6MCgG{Q{U /+ .Yc2f>[ yM>A6=k5-p)S[ߗgPU" iuڟbU?X{P{u*#sƅ kEg=r]6wc=l g7XU ; 0M<:).%ˌm|eQ[ NE%uq ѲmOwiXvV&^BF{ynl3 o6b Xg/ zHk`7%k(w}~ m iYU?q,o,cqf5,ĶTtИ6С2
&4}gCF{{}`wªcՋ̹ѽ=poӽcg
מgms]k m}c;L }iŲclM}ΐP{o-T;SD
ڦǪߊߊX;͠cK1hslY.g>ڳs]C_w SB3}:(zU! C}ڙ7Uj;PfhlcSC5`P')ΐrvyk#>i]F3KN'g뛮_ܯCun-vPRh6TAt ST_ǻ ľm瞩R WL虳l)?+g}ϱ6w=OrzLM Ϙ;%@ ro yt٤zl *{nSߌJ<5vFb
ߦסC I 3o˗1'o3vm 5t +ԉ,&U>iF.#,ňCǮ9^u SuGNdNs]k yN! m Mf :CV
gj٤R? CUB Sc l ͨv6Tg#{Рuϓ$6!tPx
Ů/ -7a;@~zWǦ37N>~3 xOl:;Ԟ۵r[y #@.@.@.@ sgަ
Mqkgƫ<ech5uPG)H jA$T): ϡ6BCܚt wǎ QUu
Îs{6!a.n [ֻkG:s9Ն ܯCJY:T' kq `(噌] {v)km S<4Oc@wyK:}%x-';+hSw): uCM;B _Pnx\fCn 9 f [3[= st/rh?9鶅 ؠ} `ȡrHμV j]4]V7<7մ*(}ܯp8DVo.~m;(f d j# yNζq:@~r|H;Ze}X gs,l : 1۬^\k7 ˗C O]g)C]??.6BA:rzPJom#N 'bͥ /㩿{pCryf
[c OĮnm 6rrrrI::GU4bnxib,Qhu: /R 1CFj#e'>js y! ]~C-Ϩ U;$ =:vwtOS8({@pIewku}<
Q5@F(
&cMa__n9c foKA` ?2}CY?xbc ? z%@.@.@.@Edh6We/_\28/QʻjӘ4xՇhʥ2CR:7هijs Y!.49_cB O }:_5ɩjvNlYNM@B~@1C糧<1@؇L]d}poB\2 hs>Ĝo
s}ÔզU3[yE'gyc -rrrr1e
9ȫ~EdU`jP.WÇ_D\!s1 yun؝mr) yʡf
q3
B:RuLAFa>37}él}667 oNȏGc+;~bm/o+#@^պyCbةݦ-g}G tȡ}, y L 9 KVm3ֵ|HBR}&Bg &@>=lu.S)@ {/v{BȻ~~hyw8UǤ
nv Mm%t
ύ
_~]&4xyy"@!Wshj#61B.s(P>>rh?9gЯTA^z 6rrrr ?$ ylD C4] :R7jb>t r @>=-sD'݀[S
˶};TsS=欏w8߹GNr|/4h(\rF &m(&7BQefBߟc;P Si63!{9{}>r%@ 08rrrrVn(39C3tiꣳaT рanB D6B) j# yN!@V!mGC CS 8.{{=1:4W@Bwc۾h~5{sceؠs 8A Mf*+:ֱ{MmBCL y3MλMMk[luwB(sCY2T[)Ύ5 @mP<3LU\; O g gg6TV{3ٶ\C;@Cm ϩ6Z>vXKC u (Ъ)wES!@~Ln`gX5y wm}I]WsC;$o9 Ŷ Pn4țӹ26:6t[h?q!ν g.Aimo&p 0)3oanX͡;lP s:Òԧl;4]9s
a%slYkLAuBoz^ m\Soh0W>qgϿrDCOY c#}ڷVI;6 : uϓ,ϟ;cOĎwӰ]l !C59v{KTTLMN .7C1v|նio"@W69( C\μC7% yDb RvflMf J;s Y{FNjcԵ9>}Cb3~w T*x{H~jЌMߋBu?'>o9K]}/ؖj2|l8ku?{VǎGu[BX{;Lr @^zݽ}Χs[la \oWwsms#@^_~-̡}" Tbйo|X_c? 0rrrrәCX|nVf)4 | pH*X 묝ⳇ~v =/59Gy"\M]ߡ純%mש] ʇjٚ Jm}=vF/swc? 8rrrrәC<֨ܤb զn۟b{f;諡5֡.b):\ZԳuYskc_ׁܯC Q b3y ChϪ{T%@^y5t*=ƳccVMֹlCߕ;Rc\P(qUb&b 49OryO?E(tcXcWͲ9dS;)gZ x.ֻ>VOv vڭ>b7rߵm\n)9_Ϝuj?_7P c? rrrrkڙ7uLNr;aYPCuIl|Nb3U7/_v;N)@Yоxn-_6
);K~ 6r RO[u s*@s3Fwv?R ;ޫ "t_
=ۤ>! 2>h +lgX|<7y z7XVس[Zuj*4u:6wǤ%o C)űC ԽoػC])bcӤ(h ]yo\,?~O2fXhj9b3E}7NϰMl,~u6h bm `!,(;
~uzߐq>|/~qklج/N oiZM#?w,8&]B9d/lB
gk
u c
c<ژB|~5ܯC
5"t ߪGuk} yx lcϭ={pȐώ'g]ߟh.U 6SBǧ+OwUaպvnN)9 ;&u;UO}FsvoSp(3ϙ?Oow[s d99b6v&5cc bm)}.VŶh۴ ~m L=$K|{^7q9Ð\nT~ݝ-ݛ]gU߾~ϑ93vM P 9\'gg̩cy#ԠYSTN4MA˾jӸ]5{OS팔VRwRl{̦PǮ)ȫH]S%dh;D_\;6 SmUݓӦ|92}C|v<9t^gOR8 QmWw)75췭`M17y\I/rWgF9
-u]~Xg ?9+]`ؘc\m˹[|c]<}~_.}7Rvw]!^:vM P 9 3oNe1]u;8 U/]U̩OΊx)f۴j# 1 Y&3kPB}GUHd T=z NWώ._?C{ΆW/_owy=g}7Y϶(ھ\acoC;_5 Ų;qHyM>|>Tuc `LŽ3ٟ:t5ԳY<~? 9m@&xty;:ݼg:*1/ ]jb۾ͻ9XS>fi 6j]9_+cm)B=Ħ-%vv*>=1ޗouȡ}~|XgM{lzx/ @R\Y~w}R_n2|<އ;8G `X[]^R:U> upari-n?v_ fG\\\ @V -?V @V Ȏ 9 o }x pwweow} `ȡz7~_{w_ !rrrrh|)-o ̐ 94w_^^ )rrrrhs7~_cw?_ )rrrrصXxZo?>~_vm ]ϻ! 0qK &K\\\ v d .r ,rrrr| >_],| `ȡ@j _e?@X
0cPn 3 0sPj
~/? ̜ 9s
?Z~ً fN\\\ ~
?~Ǘz]-EMu
sg=NG_dTjCmj18_ՆPjCm
$c|UjCm
6 Um
6FpL;&W6ԆPj18_ՆPjCm
$c|UjCm4
wPϟۏ }]]~.{6we6Ԇh_I~6ԆPj#Um8& PjCmTwLjCm
6RՆc1q
6ԆHUI~6ԆPj#Um8& Pjim _MZMkx˗e=e6Ԇh_I~6ԆPj#Um8& PjCmTwLjCm
6RՆc1q
6ԆHUI~6ԆPj#Um8& Pjim nS߰C.-jCm
Ѿ6 Um
6FpL;&W6ԆPj18_ՆPjCm
$c|UjCm
6 Um
6FpL;&W6F z'@.@.@.@ 0 @ 3!@.@.@.@ 0P ./{j= j_w} pD!n
?|/Z.{66 ˗ b^| GD\\\ nw_ev} Cn(= ? rrrr[,wO??._˗z C~(_ϯU^o﷾sW>X,Y|Ŏͱ# 01~,4\,JO;_??qZ ^~e.|o |PqϿ|k:~Ǯ:tz5=N}Kc>lQU! }vqk ` 9w 0-{ 8jVۮRW}ϯv_[!w4 yH `~ =59] x.w?|u}/mǡhs]N zlR_G ȡweˡ͇>u1kuZ,[..f0*t8 yc >W_B4駟קM}Kq~4ߧe BF _Wö!C?W]x[7 PXMku>?\wuqh=Wk{wS ~;uA 19"@Z7?R P>o K hȡ~X,6bPW,pxV_K?k"/ }K<& E@jb=CWOwHl~Nl{rpvx&Z Ų:eеjA6UO]M/W}pQ}-E~ 1isnQgPXBh.οcs > 0rrrrhm?d[e?Xvf1Mqoplgca2 nX63V/EroRc[ϩ6}uiH|mظ<- kUbYn燐5v ǨImLtF5QWA
N% 0rrrrh 8/[1cI>9+0k f,[7iI`16l-qȻFu ɱ
mwAn? 6._C<mۮߚ
<1Ɛo
\5&@ v!Ѫ a9tF㱥
螜zuܧi°WϹzm R)!6wZ[ba&!K p`m1 ,
{Ї4 yHef%|^
f V_ft1FP֝)α1 HN\\\ +2\5su9*7!PPX0νyOB졠bݐ oS!YUDtXٱ=_
[cC?5xs]z6 : ]e3 >ǂO?grOicv(t}c* I ]Ich槟YfC?~wۮ:~ o?~~ޏ̺nj#:סkFg
}n W; *=Pblj]]M-u Ȏ 9w l
JfQYʀn,w( &H{H,XVm_Ŭw7 o[}5q &+m=
]/_ rO1d|N1@6RwV
S yKqۄW4KO1F<4{ zʁۏ }] E i`^ yЇz'uL)@6Rد1rՀ}=@m?P :uc YmD-Fc)@ zʡ˳ٶ K@[3SeSS~T[x\|ol} & | $1>$XйUm] =rrrr(f|x~ B^/{챷6BA߮X04±} / 6b6 x)wc:Yf{+@~r ρM>W F!@.@.@.@fMmm#p رx4U UXq#3owl%@^U'O?!CX1A\zIq @~H!}+@^OCGoBaۡƜ'gL]$1cGMq6r 9 CH8vNfhߡ~eTB3wk, oWېkl r>9_,< 1\7 lf\ou848Cm Q !9q7y7PQ|ur;qP˾m
A9s };@ fGm p@9V5[0Z.r 6mC g t_>غgo736E? :W _aˡͻ? B'g١>m eB xA)^r:q99 1Cu}n}C3 Jm P!&|/_81u r gUnYa}
S}ț^YCDzmm䬸vec ձ9sn _,v}c6r Ȇ 9=|՟[`4g97bú3Ɔf)_}Z% )n e>;{xy6\"?/n >vMgLSn m76CsD !@.@.@.@aYNe^߆Tr o uBW~Kb.Mjn3.[ nTR]bomW xNRaж}Z 0O7ۄ^wXv
t8Wf6˗s Q'|VH5+}4]5H )/]r 9g
q]f Q!Ძ4:a:">f g *:t],mic. 9]7 ?&]jN?( P 9g
ƕMCɹ!$ rZچ |;
u.:S
WotݘKz%ͱ@ @/a}bl 3I)pձl /EKp.eG}X7 zYm~>=o__n ?9+7]K9ȫhh ?9+g pȁC"Wg_oEh ]U7 C Wc7{ Nß4H 1 L}.oZX:mjv}s2t>|w^5um#+z9 3 @.@.@.@ L 0 ̄ 9 3!@.@.@.@ L 0 ̄ 9 3!@.@.@.@ L 0 ̄ 9 3!@.@.@.@ {Wv(~E`A/
,,^
X~I RpbAFF<&
* [[l0+9w{Gii9q2{ \@. 'r r zB@. \@. 'r r zB@. \@. 'r r zB@. \@. 'r r zB@. \@. 'r r J(6C~ϒso]/_,?~2 Yo%INvP_?WEve9 ]1n[o 0_Ws__5 s@ Fr\@@ rM@^̧k_&'[ Uw@
?9a8j{bC,x;v'.wmo 퍉KwN XG;~`NZ4n- @r ̛IBk_zOy~m21# lo羊{c 9t@nwWFg_E`xVFɹg?" _<rl2߹ _5>/pkl T5W?ůWgl,kO_;Q 0oؿC *' gȻ*~Z@ |O~. QNA 9Y\wlG@NLy_^BQۿc#YZWuh }>-vW' j$ u;i# J>]2;?: s_H=Uo}^r -]8`
_ݵ'oY/ _\s/ F@xt{Ńؾճss m]q[a};9 P#\@. Fr|{-r@ Z}~ hc_h_^=`T@ Vҽ~/+S8V<>: _ c>D66lo {㘘 "rMi[ @r yϿ9s,~O9 BKw~yy}(#k* _\ȡ,y?[$\'H8x0|e(ccm8W&+q( #I9 0? @r y}3?9 ^7m i# rf' o } eC_ >Fget<>Є9h @r yuX ht/Oړ,9ȋu~ܷ *Zcauh|~o{>6#kc ͑XM@ H@. w[ ֬~yyef? / gyqrNOY.DM o8]m06W>ieԽ|BxU/?s& j$ H@NȻ B@ @kWL[Q~~Y@,tkq 7aIx WN(ul\?kOyk B!曀 \@. Cidcvh>xlln};0'V-۵uv>Kww|dcvk|{
sWVrs{\M % O?}|e}vʧk_&?W L*i1~F/뇧]?>O{eT ϞKwNKw«.B@>&>&2}>EWl|\SՄ *ϋ6{? .LMMjr^ <|4uj{^%]
c .+NÚhk( r9ml>>;;~w d'?Hv w ?ɻ {Nmᰒ|{s1پ/+Cd{~p z Y[3JE*Yѓ?sҠn?}?O~OlǴ?E
U*2V& ,/._ٍ} hC_6|/{/O2f9~hMsu>wa( r9
= &8 .Jw- i'h>ґqr~00^# ɟ/k C?u_\1}<܀ ?/I: cA@ UbBadidy[u. O~|yJYs|'[e'֞T?y|!kTWs[bQe̍UUWvvbao>ؗ}c<4w&Ӯ _{Tyű1}/~`B.nS羭y{>ONZV4=/|uyyqTݽlYQy@Wr `\@. CP( ~b?9t!ybPmHky(wcvp7 z]*N ׅ+9.Iys`:S;\ p)}rϊOYX&"{ϓsK{zB+W|,jU3Wd?|:1| _?AO|QYD. ? =! &7OXxhM"y 5f8i|1+ >5 g9 '
]gC_''}{{:v/?4O\PT}C䘌ſmCᮍ{H>еiA
c+sɴ i+ƂI]8 =hd{~4T 7G{ _Ew?$O_';g;ɷ ? Vz-~fcdfy
FU,z@?}O1'C}GɏU|eԯw~vԿ9)6zP0_?ϼ
?o* r gu ȯ Gn ~x'QXk~/]GWvOGye4~P0Y];1-EĢ/ïzz Vy PdU=h gŎ{h
mKnB[_ c_? 3.罷Ǯq|[fKw?y ӲC翫>{kr ӟe}K ˫$6t2.:'js^%kn䍦梓SyͿăxwNܥ9`5# &
Olܟ;{Acy(=?ZY|Uhbp}+q"p
9_\8cQ+*WB9z;W{V ?EEd@ [;?xس χЗͯ<%<8ڛP#\ Ď絃j?t-u|V̲GTyϬ#-:оV :*V>kܿB H*s]:qǣy> gC wal+J@ gӶ}^=/Ϳu"Í{]U D4GE,r 5e/j_WoBާ~gWt- ?iI?>ڞ?;7?]wIy(.н$mV.@ 2 rE(W<\|e>EAS@^et!yb>Vӟae#t}/=Vn շ}BY}?^Mtu7 6AY6CqGmcqTa>Ety^%Mu܋&v]4}2 @@. !( z]-1dcv)`Xjd9U 7/w?<;Sd^u;y Me0 /_$}Yk?B@ @$sWv &֞ g֞㙦E
ȫ Wv۟WH(*dք:iUۡ2K<ǵ'-c5<-R{ 7yc#tnI˫k3- wa^ Z{bthEC㮌/3㛣? ;*oImu?~c Ƅ ( \3d *V]4>+uJnO :eV:\>uU ޫ+?w0At{M}x5ͳx؉P++OD~=8ys" 9 Y[<%; IDAT+m
!`MXezbE
C!7%>e}hufyvN@-ЌҝSw :ok%t Bp x5167|K+]ȧ벋.W/mNו9 @r\@A'yIݏ7w۩_.u wUغ|A1dvV`8q:F({b@*]/yZbY5ѵyyȫv_m? ` r9 # oq~0L{s]f14n$;/|g"X轈 , TF@>txӵ'v"f?m~ wի'vQchZ+ eCD躨{ھ䡱 ?N 1bth*m(VVUwl?el4=Go$}z(;um˻ ]m\] d Է` @g]3 NƫmE/qV3s@~`<} $) 7M@>ꎦs PPW@,jy
ȋDP%=v=CǷoJSsnI#ty,+0BPxj}D'Wϔ&B6k]7#ԼKWFݸv \@. .W?I2Wu |y5ou]]Rw@tȓI] d ԕ<َX ;u>|W$"2N- ? ]g_t(l{Ǣȱ PPMnW tI+gd@ z,QDhˢP4Oy* ٥s Cǰh
^'BU0*~B糩Uj /].,^cU
ü˗Wݦ pR缼KȻ.Ϯ 2 rJ@^v<}_(i+ mK$`ћqGswlT{n|9LٿYe;ݰs?9|o; B_};Bn-yUɀ< y_#*g9 UçW
" xWelu^ضcBǬϑظ*: 2U~-B
s֞{횮ڡq6h]8UcoA+| 2 rJ@>\ߪ$h
EY^g̀<:?}Q˒ 'y~_g0V$|!4z& Z.ӵ/˿*} 3w.j}Oj@_?oش)$I;o ܙ+&!T銺PQ$*rdޘ!ef}X|>,utU [V T8* SGm
mG1Uׅ J3 dtv$< 8q4U yеRux;}1] cAgCU[k^%Mkc+s@ r [
;3Wn3 =\8Rcbc#\:χ^vlo|¹ _V 0?[??
[?6m=fB1 XhdZ8 "Ct' @!Cf(9-̨z|B*W0~F$-Z^ձP>t,GbsnCqh<>]Fk9G(~yުib+۹G= {`ͼ>L=[缼KcCb'M?+s@ r >k;\ߊ>$6رxC|<};k+ y :ymUȷw'0'[hw$=B+K~R |/*Y <"|b> Nhϴr̋>*e_/4"X]W`P&X^
wc1_/u{U `c66zV W-]6-sT16b.kOY^d,f$ چ8˃61^+v ڼO= v0 eW0N Am˞ ˻{!w|~0Lw:?mˡյ%O \?&_?,B@?~^e ȟhx
yZ=9^6.!]ۡJ<q?0U"^]hH,62z lyX;:Nx U fPJ%UNYsrVz8ߍw*dؾ|b
7ݮ"qRHi$ 0uڷ1Ko?/ ㋷ u&'3<&9.z :/ {嵃^__ou;>֞W_szd=v] rR@~~0o&v3fOx<=9 '[τԃFu;}
'ył7Go 7n'R!yW4O[|OcOs8? $IoɗUȳt\G3/_$?oݧk_&;?K~Oj [ܿI}|eTͳ,> zaiQۡJx \
ӡGgil=o}XznߵQKlO[ WK2B秎 Y&Vd
nBy2\^=ń":BGδ+P/Ưure7|M^#5^>^;էςY&~Y|UZqsv?_v쪾we9OU}] Ooړ=OmmCՙ+IY?WӎA]d@t!< "tO{!td\svq\F]ue ! ԥR|,?3ݬB@~nBsHis5\ߚ|s$(re~_t!OԸҧ|Q8 ?i},U oi_bG P tyZU
y}*YZE2yhb|=^yk.I{ eN^+U K ':KW#W rqjcYÿڞW}Nb ;e1/g>t9qcץ9 @\@. CPsKYlh;fOW2?m"ʄ8u~BNۛ'zo+ ӦOI}~ Szgv E?w ״/EW OۡJT\W|z
͚
cOnGS*7;>Dбd82gp\Y{v9mule" |1kPu屑yӮj{^^9)ywA҅}8˃7~K . r9u1 ?/}T
gOsKahJ܇^'w eO@ Q(;g@9P &!D֟ ^U, .~d# fC(ҝ= WγEx }5me/0*2>Wdx]x}r$սs Ǯ.4U+j]ӿڞ_-?> ni^6cX\ێ=\x ] 0wÍ3a 8, Cϳas?S@m~Rd WNU
6nGŶuVr $;:NgO_%} P=~$gb'/YeI)V'C_H~ǧ1SO_췾M @
/=E\; MK|,!^Z^MrE^#ޅbyuWg-ekt8Kwc'tM9'_?<{?+:qu=uqrq_߳jUo'G=dJڸlwFLu~_ NI:>ơϴϑ29.'58r~~'65ϛ̍~X `I@. ȁo2n g ?L6 O_
ȷwM @#- ]34FI>FW5 ?M?PYw-=?mlg `r `{T@~~0l} `B@. v 흊ǟo} $\@. 2غL o $ [w?w ] 0.J}47#+7 ,\@. R>; ] 0D0?\@߈16 9\@. w'oa sOtHc r 3ַ r9 s? &ַ f r dcv Y r9 =! \@. r\@ @Or9 =! \@. r\@ @Or9 =! \@. r\@ @Or9 =! \@. r\@ @Or9 =! \@. r\@ @Or9 =! \@. [ɹoӮ TWϾ{]={NFoW̵{V ̗{gu͇) \@. [y(PȖWڝxkߵ}7&.9=&~8c !9iѸj 5 r j6n$o/'߹SBڗg~R}z xt re7+AI_F/H_0_<+ M/ 9]6\ݏ~p/ Yh56sy*˫ Ck36`'ٯ r7OߋmX r ju;yb?|aD{Q@ h:" /_! 'N_@|I :1}>˫PH2jul>K_cn #'ҝbj @r llNM@^l W L[ӿ/#+t.|xzv <G
'֟n
s8.x+y' j$ @@4y} Ys ˫gwW
JWEve7 ]1~*ϊGkAz܇|Fuo } CD ;:t \@. P9Q@ f:K .9eq|q ȋ; 4op֞#6Ϣf8\ `>ơxl[̏X$x 5 r j g>
`Lzt49 ȋu~E7>?t f=(
_malLߟb=Ws W2: mghB |\4r Fr\@@
LG9 ,#K_ݵ'oYrf' 4o_;U.9꾝N&~}lLG{[2ڛ#(!曀 \@. P9Q@ det+6y9ȋu~Gw!n8
|cǩmzO+K«_y&C79 P#\@. r ȋ ʁi+J^/: șE@^-#&= j EW߿w?b@ cmCh9| 5 r(lcvs?}wdcvr~0ld;Ídcغ ars{vi|;t~0L6n'w < )r ȋ t?g:o}~x[y1 dWFtyt'"kcr-n\ ǥ;=N _YM=!hslLqb@ zTԤ&ϓgJS]ҥ
`OqnwWK@v@ { }|῟7C h17r\*3 UG-cm= UOcTx 8z IDAT}R\7uoO{x|/?0-EYǍ4O"V _V}ȗW6Y_ҝmճs.c5˗W}z\zϯ Vr79/<6skO:xVQǜ s@9 0E@. !VX;q~0L =/Egw <̵ ^jEۅ? ^^@μG9 dP5Ykڥ;wVe&_6_^=R| =) e $VFC鉵'O; x+_5mՕnܖXTsgU|XϨ*%tߩ= ݾI/F zyktqlL˦ ŀTok^~^ϓ֟?&M˻~)3_]^-~^n Uw/lwԵj .Е9 " 0ʂ2QEĞ$IUcyx|d(z,y} @O2u ߆F@?ܝ.+e_@ 2* /?_@ zF^{FM]۱y* Z^^RE״:V
sey+ @<6BO_cPL}sXoc^^kyyTUQT6e]κwL B rH5\ߚ~)iwxC8|:wF䡀<m~Cշ`Vb1⍣71Ԙ~ŚQĬx|t<\VG׀|V}j0<}*.
F4~s6 G{,}Ch/olݎ~7g_bpN0>o>`\v@>n$[B8|:oSXb( gu ȯ Gn ~x'QXk~/]GWvOGye4~P0Y];1-EĢ/ïzz Vy PdU=h gŎ{h
mKnB[_ c_? 3.罷Ǯq|[fKw?y ӲC翫>{kr ӟe}K ˫$6t2.:'js^%kn䍦梓SyͿăxwNܥ9`5# & 5nڼw lGZĞC? ކ$Y֧/?L%9c|g^3Ϙ'M8 |>l~/.W@%v< Tkە<`UEgX=w|f= i]AlWYWjex(YڞX@UԱU> }C=+t BXX c#^
nWX8yyhUdI[tNyyTu:ug pgNwB1ҕ9 @
\@. gͼDTd56$Ix|"bv֕0Ű YM=v, h `aV:n(
bR/Os
ʬ[/b@ : 7 ״q=oy,f/_^ :Q c8.B:"]lӶe ,ot!|wu塸q-: K
<*Y?cu"Gd9M f r2-:?YCOĂpg ;7w I@^O_# UBȵ'K U E cc2o8L- N"1T,x)duUshlly*Wy{@Ucbcާx,oϮ~ߏW(ޣ<-qԟϲMh.i|>w>%6o*oбwe 0\@. CTy(M+~O;?yw?dX@^d[B+}Pӗ 0gBqV,P KՊE}JӄAWE CAEU.y
c+
檊,`"ӕP1פ=ोBI3o]#u} =[+tqbv) lړ~=yy9yy4yWβݳo>Y!{W r9DmY* z]Y <wP@^4ahm1Qnn_`X\
`LY:ڗU6BU蚲hyh<
C0Oy X>XGtEuhHU&ݖݞy{H Vӟae#t}/]1>kEщQcsS<ڷzjr_Ь㼉* V0c.k 㕪WP>I@ލiCǰJK7xw;<'eǢW]if](!}k>ǫ} l y>SOmy еHy҅buWyl{^V@q\2 @@. aɟ7Go - q(mOƖ # Z2ʷWaC Rח~>O2mY="䡐] >:7"ު6]!2 @@. !CWawS ywF
Zy" Zt_8']ۡJ]c̗h8s^h4y5v&?Тq9Z:C+
wM c#wu1 _^
ײBHyaZbY5ּkc#D@^bo M@. !Vr7Gom'OD. :w?zMyw4 ;ӥPkW+=?) 0ۅiȫ^= Cʬ c@5X6/O2+f<4c :]ilV x+Ѓ&5#u.y[kA|Bw]" ^ڜ+s@ r J;?&7w{gO_|)X@>
ǡl`* z zG@>th*m(VVUwl?el4=Go$}z(;um˻ ]m\] d Px3n|Voڧ*Wގp}s7Ǽ,1}U& 璘 wg^B.Z^ GpU5 /EBPLXS@ ߾*uNϹ'͟}o籬P
Ca= \1>>S ouݼ/? "t bZS.; _uںۍ+s@ r j~0̲pz~0le_ Ȼz h¯w|q X(_Nt@ 5T钕Q8V WmEWx-ETSy
CL ;UPf.iwIT^ysseCdc|>|y5ou]]Rw@tȓI] d PPx5
GшIغhؿs?zE9)
y .mKWv߇PK^9&XPd"B+XBy
ȫ W'W.M:EP: ʬW:MR|Bua" W@> }^6:]D@ޕt|ve \@. CBtֈ6O_T( /NAg+a8l/zU_UڡmH_& @D ұ/|VmrպE3J4#kB,#jY"*W|^ 6Vp[U9WE^?t>^'Wfu
¸ECa{ړz]ձP;4u|a^ : M>P`PǺ} ]M=he־Օ9 @r\@
E~ 7a`~tv_$>?&8ZYW oemCי
߽ M?iЕ]A\tE]j((TgZ92o2N,> l?nucVQ
Un b#϶阪BABhh2:m; ld 8|llݮX 2F'O ۗ$)%\ @-ȴ`q:O~8AW 3r9D> [!N$IE#`lO>xcy$_c\4-rיȻy z]|L~8V
iq5 }UZ_&h
LUEޱ L^1;6b!_ߡ=bll ZR9:.Z,mZ:bl\ӟמнXH8ֵ
qm 6c{W9 ]wISyT#˫9[ BWhGnW[p8ʇӂTyB:oؘʀ|Wǟy[AhzE}w zx =]wES҅AƯ7l:ۃ-].=txz2 Hq: ؟
\@N
b;>Knn ÍN~4ͺZX|$Iw`u;<}9z{o? &7wN[OE߿ksdީq~096 [
=I>}ll 9㴽s?uwھiy saiQۡJx \
ӡGgil=o}XznߵQKlO[ WK2B秎 Y&Vd
nBy2\^=ń":BGδ+P/Ưure7|M^#5^>^;էςY&~Y|UZqsv?_v쪾we9OU}] Ooړ=OmmCՙ+IY?WӎA]d@t!< "tO{!td\svq\F]ue Q& r\@N?Zu;O@x"-X.S& ~ ?{w"Gv0zx? u`5 0 A%
NO8Pf3֙N 6ha1 vgA_ϩSuNU? Ob~u !V_c pٝ O+ @o4A|G s;T)AUUEB THv9S}W`n%Z$uqO.cud赒b_.`^뺂jR#W Oy1vXsPKސ{^t]<c^^
e>|n9q}W @@. !*e@>$ _?km W7?{ե?rP j_ԭl o3Z ߔoh/ `QBkM) e2fU6(4*>O0'~K7W7 Z;wH:ePςp<5KmmHD>փ/ c\%uJȻ~*<1=n.L ߹[m 1{x~,J l rW_ 2n/?(noN >jE߰ǟ~ßq֯$Z)Y9
*c?{|WeWPbzO ?̽_@/ڇ}z͆QE nv
f;*0}Mh-0s~ BA IDATcC U]K{U=qm EocAckfsNhfݒ/䞗? ~~>{7캙Ӽ< :\Y_öaW:ηlIs@
r|)y\@N?O7oow+Nߝ>?~. NQ_~6ou?ُX?ß^ xw eOo;O?`mr ófoEU!ml
yAk={7,*؎j;O!QYs赺Yn E ]CɣX1qX Wcu1 L-x~8!+u唟^}:>^ڥ1k(}xq^GG;8q3s$98yy.iV ϓ6gwݨi?zv_4 # hUr- gOo~qɗY症?ٞmS@^ S)8 Ln; P3(cjs:~~APYNvO؞l fK* @D r r9 s @ r @@. ȁr ~r hA@ 9 !79 s0J@ަ r9 % @ r @@. . Ѓ 9 9_ar o@ ]}\@. C@. X\@. `!r ȧ k#r M \@ @#yr |O݈| 9 */ & [rxy\@ @<y r ȗ3\@ 0E俚A@_π!" |ny'yI5" 0YM]ox\@>kD. !yZ@>!" PX@. K@. . r 7
[Dr9 9 r jr9 ! q@ i?ǟ~ yX@. >wٷ ;r\@NgOO} K
[GO} :\@. ! _*_} 췲 \@. > u 7]@ ܽ?Z (|y |H@ O?[ (|yH~םUٷ Ox\@. k@9". /'_} S W@. ȧ v"Oo r.y_~6v G@. O 7DrN@ o s
ý|/U@_~睈 F@ r|_ v?u \@. z' ?e. `r9 <;?} " $;'_f6 `\@. S?N@ξ] /, ҂ s_;7oo ?Zm8yV@. K
\@. 'o} \@̀uD. ' 9 -?{_~6v mg* 4x; :v C@. I$/} ! y@ /y ~-b\@NN< o _ryhI;5v K<. + o ? yx\@. _ ߉ \@sb櫯oWٷ ?a| v}u OM* /6 ȗ◇w];v iyS+ S?;] ~ rx;ٷ Ory< wȓ
|N<]e. `-/ wmv=|U, |Rە t C<ryfr?8 Paor|?]~ @qiƈ;_@
[D]ʀ| 9 I;IVyM3=4 Ӏ os@ & c\@ @7Y_ r9 H@ N®s9 i\SMnx\@. J@. w",yMD. mh<^T@ |/j
&O<. _X@^7Ȏ\> 0y@w6sx|y<"D je\@. }vro/ s9{^ܶum ˳wE `46mk/) ow98"r9L@ ؿ|xU@^J ED ! g <Ԥ-|\@8 Y\@ ?S5^2gs:&yw gTs|h0ݙ Du+ 4 wEM B7 ?P!g}$ ; ߷x}wF Fs ţ u@ Ꚍ?V7m<. )^}zUg gȿK3[Wo0O@Ngؼyަ9 ງ?:z
˹Qqc ymPrt' r5V ߾ۿ9BUP'r9~Dj3c" _Q> ¹>M-w@slajϽq J@. w 'uڽA4v _K#m' }&R; =!-oND@\}^K=M{[2"9'+ _kMὈ}tz{-^. zmTyS+ i@^7Ў. Gr _Ljet76Hm /ל" #o5 ^ n5sɷ}_ չp|Q/spR= n|weɺkr
R
yS_- w k"ry۫RխHͧ?C_Mڏ^F@>>9m5 ȗ.^?*U;ZyGs97ǧX: o cI;~ 9 @T]@ "i\@^egc73
- ! }&RS2rӫj wBҎl^;E}) `NŶq Ж9ļ & IqXy<{@" vo
wVƕ&vE)A\@N_5ͪʹ#)Vusc{~zzU|_X{*M3 b Qx|>y-' iW!/`#soҔ|w)A\@N_5cZV7 R/4cbH9ļ `yʀ \@>ӫq!+yɷUe}VMޥUu?zуW}}c>]mˏeهzOŲR U~XV b^pݞ5ctfx>'9ύ>PMmӔB9u!B'Cyy)JB踬Tpp=a9q9 X^y5U@.: 3 _B@5" ȇڎ- ^v67oR]T1P^i7yo*%O ol~~3'նM`dL^~CoT@)uSשǻóܪ;W7{ Rhs}M¹%_% 6cƳwc l^NP ;t}u ,= &< ]zq[]oXr/w6뾚B
B^ _Msj^^йRڝ cENq~]as9 X-g|x@""?-"ryzјvo ]-B`g7#M?Tv_VB@o n~^}|.B\1;Z rℶ' w4gJ=&GnQqA sg{)o
͍SMKCU=*9=%ǹqpٲ kR6
ݠgNIϓ1s榞t+;'^?\Y P@ ,H, @* gD_ oE}CqMM7?vޫZ& ﷏b7?/AyAm} y}߿^hu6cK)h?_ϑR\'wVWmپnr ߮X)|̕ז w7=#ǹpkzċj<} n03˵2uR^9%)5 fkxa% yyǞ6Y@>B<. du WLI@o n~^R@ٻO-"]^5? ?+7i5 _sCpL¡M8Mԍ]sCqh :˒gj(߾CY9.X )mϼ6bsnp|^!>4 z.sm>'+Ko^ݜok^^.sعy Ns`k} % yy!"#rJϪ_n2tz5|UȹGԀb~m}Ms6o꽗vcJf r&J CGەVG3B%9GVI\gdHشjenEڶWl{bSƐ1 <6ƜChsc;
=%|_XϵBRszo[zxV0mFl s>//Ŕ[}Go;7_CkjM_ `_R_wȧ;G/lGu7MVY rIuSmU`7ỏ>zq,YݵfMswB!xS) IDATXr~br]Ѫ27S P`%\}u uN - ˧WO, a Kc_gC\5P'}~庇_w{Q %
ۦC6ߔ>//Ŕ[`MU~V>WC;mե ,x E, ۭB{ ӫ7n;mgMSC7!?~CQ,$"vⶩVkk<
]?bI E.}>;bªIsˊuǣ}k躛}RŮyP]ϵY|I+{|iz/ԅu|ϲ˃cR XRLuR 6!-CWow]9 ¥_}\@. /9 o ٰ}SnqX7g W :^-'sCBXpD|+ǔ LyMNO
\N,?R}LBgV2/Ͼ!Ul{ߡ1V zh@ r1j8% z6Į>3)\S Qh 9 χ MO+e pJb-+n7mwM>z@>v<. O7Dyn6SnY۫Lژ EJsֺE핽nrްzn Ĕf{B7O"YuSĂM Y.)g؋agh) !LǢ6519ZB:볲_ҹzB14㱶%)k(m{peu-V r ߡkg; t)e^>yqeo })MaBcб+e F5m@ j~Gȧ;Gy("= Bozu!ymB@o nۊfCBӫj̱D<,S@
&f*zuLRF=?Bqu37÷|9 hoxGs? mJNW xeskbiy N9v651I:XwydʹɷimKm 5{}fv #n=imSڇ|3Ƽ|"6+ ϱ_چwϗp f*ry1"O wrdjc?;f yxV [E.
%(&о:E]cMWlkk"w@
,zqLBQ@>ι ~ʒ.yh?V
)x5L;F,yV@gL
/n]u?_ #>. Q= ?vo YPM¡/ 9 ]^WuRGS^P $ OvixD1;3Vq_KcXc`IFl{/ mS} Uo)#.a^^
8bP `
kx\@. _@
B^B@9GfM:n wBB@ T7Jpk"w@ z!cQ(t{@>ؔWnc ԟQo@^|jաqbkbyhUUp8"uFlӔ+geN%szm5//E<:S_-e 6Pk:( xc@ oxQޫ 4ۮ n^R" ﷏P{/ó435|E^?}ws
SȾclCoKO"0BP']" Cʾf ^S^
}1El91dPx16Ǫ}ϩ|}V>ߗ]V*Omyw|R?t]/m "{^^): ܔP% fK:, O7uȧryIjWpr3EukhUMuRW # ﷏ @@>~LXLyMb>cA(" n؊s
CH(dsPx}y O[&lˡ9*KSFKWc_|9 m9//[(5 N@. A@3"P$V?7^ɼγwU{_$ ﷏P<+goH.6#jxϩ
c)WڌE}qYZP51 W}~\o;n}g Мx0nQtlNuЃ^ s mγ sK.7漼Sm!<4{~^qȍaw?z=
ƥG9}" Och5tM}GЊ]ǩP"'vۆjv< cd9UYɃWibm5 9b҅ v>/nNsG^}U9{h<\s9<>g֟yFL)6 3O~pN)s@ Ky Wm"Xg"MupR <=t?nR> B<95䊄cQv}ԍu.6vG ٥7惓5cSHZ|ګt;IgoRLó~m~:W tkoCZ+],gնm]Is@ S#yCD. t}Cמ9
cN
S1^}Cu _4g嶮1E
1eub>(nu=zcƝ.]luMu 2| C# j^Vvnk9Zz%|xl:Ǥ zem
]uuun' ӫXgA,8ۖr^۴CKӊ۩}x 6E|S?qJ=W/hz!pzq=6?z :?r(! >.T]>NoGRLyG }cc{{ _hq>zA}W `yxuH@.biź:}£*mW :Emwhq~7 e[brfc2\CJ}Q(9zh_XsI5SC-! s| %s RE7uݎ!9
]%Gc ӆ*cE*' }b #4u~ In˃W#1dɦ8&}^c3tLqܹ[ SGwK,h:Ni_HiƚtݤJ>7^ew.' ߹;yy rmCَi gߕ2 X##ryED. .Tg/v,{'~h#y5>^
ίNڭ oxtp~%Mrlxwp>ގΣ>7>k{cr|>zWd v_WRb̵JF+=cg; LjOK?7^ λ 3 ?ZUϐ˼<\[sίBa:<U5}AIs@ HVyπ|x\@>N@ !\7y U=)ыǎqeD^5 U0urxVWV {Y: ]t}ߏ^WflG㳽!CѣU֝LuL
_+?TE~NkkiGPNƛ{ 8Rϕfڱk !LJ݇ӹ~kgq^ϽbɷãS L}1 ü<1zSL
Byqn~7j=PkIs@ W@ ovIޫw
ț"/,AUB@N °Ȓy:Z8Fɦ~B?ȱ >ʶ= @2x|`@7 ^>}"% YP C|%}cK9 i 4V!|Vy:6ٻn" 0ī [Gy|7"3{ G8 mM i#y|7"Cf 2V O7y' O7D/jyM@ 9s' H@ nyi7VW@K g^o@>xr9 S>3 5
ȧ\}|y|o݈< @ZV ߳m, + ir9 ! pqy<*}2 -"r9 Z־ySo: x<}D|7"& bX@^ H+㟏x|K ȓ#ryU T}W gX}\@>r@ <x+ |g@{y\@ 䁆u<#䑈< @ZV S@cySF
;dy\@ @|x|!yS/=y<=
\@ @<o݈_D{ $x1yW@~[5KD\@ @b6wmz@>*=ޫ Hly7Ey눼aL sM `% ȇS}QW 䣮>. /$ /` i|79\@. y0 ߍ `9yW@|2 /n)6|uD. | "E
y瀼)"oyA }< ȇy]N@>m- )"oF HknxoXg@^ ޫțh>
y瀼)" x1 |6y<" Ȼ y<* Қ>
xg@ j3B>4 /fr9 S@> 6 o\@ ozݪg@#"ߎ|+" `w@~% 7Cw\@3 G @ 5d}\@. [DcB@ IDAT[D~{* ? V7$ dF@* 7ȗȏȷ"r9 v]ǏrFD< 7"> hf@~]6 >>o@#"?8[! {@t}@@~ V[[ `fyyFSfD. B } V=xY@V& B! ? {Dr Uu
O3mp h+xɀ|O<4 ]!z"" xj+;y @[\@>$ B } Vh@("ȻV Ӌ 7C}qֻY@y~@ߍ# nʀ~ >) _!?3]e|~< J+G^+Ͼr iݏ{G;C _
En
`ZM=kx|ڀ{O
+ mY % ?>. / 7\!> h+\@^3 /B. λx hx|x|w@㉀
yӀqDjB } ֘V@{}\@>8 ϹB } Vqyd@."oB~) oB } V\. 7 ?>. o_\! JـL+ o S
ȿ Lt<+ >>, o + m\ _l- DG @ g}@@~= ?>- w
G @ Z<" B>& B } |y
yPD~ n6~}p@~* gȻgVȷx# gjx
y|
y @[䳯 ȓVȣ ڲ>|@ G"ty>y~ Ψyx|H@~: _[! Bg? B o\ OG[! fg-Ay@@>j+9 ,Y>ĺ!~) ŋ/v.w 3
/VȯD/_SA @//˭F7Y!S+ }RǛo+9 @u/x-w}\@# ?7Z | |O ɛ9w}y˦Y<^0 Bq + U%KVȫ >yQbyV{˿ P ﭏ ȏg"~^* B# B." ?iY ? >. OB~C}]@^|& ^:w ;sg"VC"> D{7O P+j}<[yx\@ gX!?_~ O<}=| |_|O/^} z ^/Tj}@<. $ /BWo~O | >yo>O/_ƭ g"Ȁ6 ܉7xxSy V;_ȅKr9 PRtװ! GF㫆 xyCDkEH>J:(/ {
ѽl`S8 Qu
Ǯ++ w\Dy*yxP^>8 SGFr3x
y wLJ#GS#y+5?=ȅMbA|) p_twPBt:O Ǭ_wv}7rV""C1A `0 ' Ӭ DyP@~;"_! >FCyʐ|UUr9 8ѝxp|J'o w] ?ؿLJyt@>d|DD BnDf|uX~OC
`c+Mxp"xր[<̀
y|! "ѿ WɇG k }E-ZQ]Ot4 Ⱥ&$|y"KyѽC;ph6 /? Wǭ 3* X!_
c#+D'CyU YDL),~ L!
!Lb(2o?څk|@f F xak<>̀tD/ B8"ϸB^2"OF!$ H»q$O wʅ D K`P80 Ҥ
X \ /'
GE"R| / ȫEB!1 (*g="
sU$xtD>i@."."W~bra h"/w
gxP8. ; _( oO
E"!|P.0?(a 'H. xx݀L<}@." ObrqyoI ~nfh\8' k}{@n
\D4"
3~ {IE/%xK w
FBy5Br1 â{x^pE<^o}YkD8$ ~ T݇0A4J8& G[xx<_@!"uJDȅCQ1 @kѽT4? qp\<6 dCyr+"_v<0" D? yEw: xY@= >>> BnhD>, EB1urK /g`C`Y4b8~3 X M! ?W E#!|ڐ|\P* Ȩ`|h<{8
yo~JW3"_f< "($ ʅ DsӢIO tX( 3G"cD;"ɫ r9 T įsEJv@>e