- Number formatting
+Number formattingformat_num formats numbers according to a locale (either French or English). format_num() is just a wrapper for the base-R format() function. Therefore, it is possible to use standard arguments of the format() functions such as scientifif = TRUE/FALSE.
library(tricky)
format_num(x = 1233.123, locale = "fr")
- Contents
+
+Contents
diff --git a/docs/articles/strings.html b/docs/articles/strings.html
index 8acedd0..2d68ef6 100644
--- a/docs/articles/strings.html
+++ b/docs/articles/strings.html
@@ -9,7 +9,7 @@
-
@@ -28,11 +28,35 @@
+-
+
+
+
+
+
-
Reference
+-
+
+ Articles
+
+
+
+
-
- Articles
+ Vignette Title
+
+ -
+ Numbers
+
+ -
+ Strings
+
+ -
+ Tibbles
+
+
@@ -50,7 +74,7 @@
Strings
Vignette Author
- 2017-04-12
+ 2017-08-04
diff --git a/docs/articles/tibbles.html b/docs/articles/tibbles.html
index beec27f..0dbf89b 100644
--- a/docs/articles/tibbles.html
+++ b/docs/articles/tibbles.html
@@ -9,7 +9,7 @@
-
@@ -28,11 +28,35 @@
+-
+
+
+
+
+
-
Reference
+-
+
+ Articles
+
+
+
+
-
- Articles
+ Vignette Title
+
+ -
+ Numbers
+
+ -
+ Strings
+
+ -
+ Tibbles
+
+
@@ -50,7 +74,7 @@
Tibbles
Paul-Antoine Chevalier
- 2017-04-12
+ 2017-08-04
@@ -65,17 +89,17 @@ 2017-04-12
library(knitr)
-
Contents
++Contents
diff --git a/docs/articles/strings.html b/docs/articles/strings.html index 8acedd0..2d68ef6 100644 --- a/docs/articles/strings.html +++ b/docs/articles/strings.html @@ -9,7 +9,7 @@ - @@ -28,11 +28,35 @@-
+
- + + + + +
- Reference +
-
+
+ Articles
+
+
+
+
- - Articles + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Strings
Vignette Author
-2017-04-12
+2017-08-04
-
+
- + + + + +
- Reference +
-
+
+ Articles
+
+
+
+
- - Articles + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Tibbles
Paul-Antoine Chevalier
-2017-04-12
+2017-08-04
- Find keys
+Find keys-
find_keys()looks at a table and returns a data frame with the name of all available keys.
read_csv(
+read_csv(
system.file(
"extdata",
"table_deputes.csv",
package = "tricky")
- ) %>%
+ ) %>%
find_keys()
## Parsed with column specification:
## cols(
@@ -105,18 +129,18 @@
- Standardize table names
+Standardize table namesMany datasets have non standard variable names including accents (ie é, è, à, …), spaces and so on.
The French IT Dashboard is an example of a data set with column names in natural language :
-read_excel(
+read_excel(
path = system.file(
"extdata",
"panorama.xlsx",
package = "tricky"
)
- ) %>%
+ ) %>%
names()
-## [1] "Ministère porteur "
+## [1] "Ministère porteur"
## [2] "Ministère nom complet"
## [3] "Nom du projet"
## [4] "Projet interministériel"
@@ -135,16 +159,16 @@
set_standard_names takes a table and returns the same table with standardized names
-read_excel(
+read_excel(
path = system.file(
"extdata",
"panorama.xlsx",
package = "tricky"
)
- ) %>%
- set_standard_names() %>%
- glimpse()
-## Observations: 293
+ ) %>%
+ set_standard_names() %>%
+ glimpse()
+## Observations: 57
## Variables: 15
## $ ministere_porteur <chr> "SPM", "SPM", "S...
## $ ministere_nom_complet <chr> "Premier ministr...
@@ -152,76 +176,64 @@
## $ projet_interministeriel <chr> "Oui", "Oui", "O...
## $ description_et_objectifs_du_projet <chr> "FranceConnect o...
## $ en_savoir_plus_sur_le_projet <chr> "https://doc.int...
-## $ debut <dbl> 41456, 40725, 41...
+## $ debut <dttm> 2013-07-01, 201...
## $ duree_previsionnelle_en_annee <chr> "3.7506849315068...
## $ phase_du_projet_en_cours <chr> "Déploiement", "...
## $ cout_estime <chr> "7", "52", "26.3...
## $ cout_estime_par_tranche <chr> "entre 5 et 9 M€...
## $ zone_fonctionnelle <chr> "Gestion et cont...
-## $ financement_programmes <chr> "Coordination du...
+## $ financement_programme_s_ <chr> "Coordination du...
## $ lien_vers_les_projets_annuels_de_performances <chr> "http://www.perf...
-## $ date_de_publication <dbl> 42677, 42677, 42...
+## $ date_de_publication <dttm> 2016-11-03, 201...
- Detect missing values
+Detect missing values-
count_na()returns a table of missing and non-missing values in a vector -
detect_na()returns a table with the number and the share of missing values for each variable
read_excel(
+read_excel(
path = system.file(
"extdata",
"panorama.xlsx",
package = "tricky"
)
- ) %>%
- set_standard_names() %>%
- .$ministere_porteur %>%
+ ) %>%
+ set_standard_names() %>%
+ .$ministere_porteur %>%
count_na()
-## # A tibble: 2 × 2
+## # A tibble: 1 x 2
## f n
## <fctr> <int>
-## 1 FALSE 57
-## 2 TRUE 236
-read_excel(
+## 1 FALSE 57
+read_excel(
path = system.file(
"extdata",
"panorama.xlsx",
package = "tricky"
)
- ) %>%
- set_standard_names() %>%
+ ) %>%
+ set_standard_names() %>%
detect_na()
-## Source: local data frame [15 x 3]
-## Groups: variable [15]
-##
-## variable n_missing share_missing
-## <fctr> <int> <dbl>
-## 1 ministere_porteur 236 80.54608
-## 2 ministere_nom_complet 236 80.54608
-## 3 nom_du_projet 236 80.54608
-## 4 projet_interministeriel 236 80.54608
-## 5 description_et_objectifs_du_projet 236 80.54608
-## 6 en_savoir_plus_sur_le_projet 274 93.51536
-## 7 debut 237 80.88737
-## 8 duree_previsionnelle_en_annee 236 80.54608
-## 9 phase_du_projet_en_cours 236 80.54608
-## 10 cout_estime 236 80.54608
-## 11 cout_estime_par_tranche 236 80.54608
-## 12 zone_fonctionnelle 236 80.54608
-## 13 financement_programmes 237 80.88737
-## 14 lien_vers_les_projets_annuels_de_performances 242 82.59386
-## 15 date_de_publication 236 80.54608
+## # A tibble: 4 x 3
+## # Groups: variable [4]
+## variable n_missing share_missing
+## <fctr> <int> <dbl>
+## 1 en_savoir_plus_sur_le_projet 38 66.666667
+## 2 debut 1 1.754386
+## 3 financement_programme_s_ 1 1.754386
+## 4 lien_vers_les_projets_annuels_de_performances 6 10.526316
-
Contents
++Contents
- Find keys
- Standardize table names diff --git a/docs/authors.html b/docs/authors.html index df40d31..b2fd82d 100644 --- a/docs/authors.html +++ b/docs/authors.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@
- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
- + + + + +
- Reference +
-
+
+ Articles
+
+
+
+
- - Articles + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
-
format_num(): format numbers according to a locale (fr or en)
@@ -91,7 +115,7 @@ -
str_standardize(): returns a vector of standardized names (remove accents, blank spaces, special characters, etc)
@@ -99,7 +123,7 @@ -
week_of_the_year(): takes a date and returns the week number in the year.
@@ -107,7 +131,7 @@ -
make_node_node_table_(): transform a node-link table into a node-node table.
diff --git a/docs/pkgdown.css b/docs/pkgdown.css
index fd7b0ba..209ce57 100644
--- a/docs/pkgdown.css
+++ b/docs/pkgdown.css
@@ -34,13 +34,14 @@ img.icon {
float: right;
}
-/* Section anchors ---------------------------------*/
-
-.hasAnchor {
- margin-left: -30px;
+img {
+ max-width: 100%;
}
+/* Section anchors ---------------------------------*/
+
a.anchor {
+ margin-left: -30px;
display:inline-block;
width: 30px;
height: 30px;
@@ -56,6 +57,13 @@ a.anchor {
visibility: visible;
}
+@media (max-width: 767px) {
+ .hasAnchor:hover a.anchor {
+ visibility: hidden;
+ }
+}
+
+
/* Fixes for fixed navbar --------------------------*/
.contents h1, .contents h2, .contents h3, .contents h4 {
@@ -63,6 +71,17 @@ a.anchor {
margin-top: -60px;
}
+/* Static header placement on mobile devices */
+@media (max-width: 767px) {
+ .navbar-fixed-top {
+ position: absolute;
+ }
+ .navbar {
+ padding: 0;
+ }
+}
+
+
/* Sidebar --------------------------*/
#sidebar {
@@ -81,33 +100,64 @@ a.anchor {
margin-bottom: 0.5em;
}
-/* Syntax highlighting ---------------------------------------------------- */
+/* Reference index & topics ----------------------------------------------- */
-code {
- background-color: #f7f7f7;
- color: #333;
+.ref-index th {font-weight: normal;}
+.ref-index h2 {font-size: 20px;}
+
+.ref-index td {vertical-align: top;}
+.ref-index .alias {width: 40%;}
+.ref-index .title {width: 60%;}
+
+.ref-index .alias {width: 40%;}
+.ref-index .title {width: 60%;}
+
+.ref-arguments th {text-align: right; padding-right: 10px;}
+.ref-arguments th, .ref-arguments td {vertical-align: top;}
+.ref-arguments .name {width: 20%;}
+.ref-arguments .desc {width: 80%;}
+
+/* Nice scrolling for wide elements --------------------------------------- */
+
+table {
+ display: block;
+ overflow: auto;
}
-code a {
- color: #375f84;
+
+/* Syntax highlighting ---------------------------------------------------- */
+
+pre {
+ word-wrap: normal;
+ word-break: normal;
+ border: 1px solid #eee;
}
-.warning { color: red; }
-.message { font-weight: bolder; }
-.error { color: red; font-weight: bolder; }
+pre, code {
+ background-color: #f8f8f8;
+ color: #333;
+}
-.fl,.number {color:rgb(21,20,181);}
-.fu,.functioncall {color:#264D66 ;}
-.ch,.st,.string {color:#375D81 ;}
-.kw,.keyword {color:black;}
-.argument {color:#264D66 ;}
-.co,.comment {color: #777;}
-.formalargs {color: #264D66;}
-.eqformalargs {color:#264D66;}
-.slot {font-style:italic;}
-.symbol {color:black ;}
-.prompt {color:black ;}
+pre .img {
+ margin: 5px 0;
+}
-pre img {
+pre .img img {
background-color: #fff;
display: block;
+ height: auto;
+}
+
+code a, pre a {
+ color: #375f84;
}
+
+.fl {color: #1514b5;}
+.fu {color: #000000;} /* function */
+.ch,.st {color: #036a07;} /* string */
+.kw {color: #264D66;} /* keyword */
+.co {color: #888888;} /* comment */
+
+.message { color: black; font-weight: bolder;}
+.error { color: orange; font-weight: bolder;}
+.warning { color: #6A0366; font-weight: bolder;}
+
diff --git a/docs/pkgdown.js b/docs/pkgdown.js
index c8b38c4..4b81713 100644
--- a/docs/pkgdown.js
+++ b/docs/pkgdown.js
@@ -5,4 +5,41 @@ $(function() {
offset: 60
});
+ var cur_path = paths(location.pathname);
+ $("#navbar ul li a").each(function(index, value) {
+ if (value.text == "Home")
+ return;
+ if (value.getAttribute("href") === "#")
+ return;
+
+ var path = paths(value.pathname);
+ if (is_prefix(cur_path, path)) {
+ // Add class to parent - , and enclosing
- if in dropdown
+ var menu_anchor = $(value);
+ menu_anchor.parent().addClass("active");
+ menu_anchor.closest("li.dropdown").addClass("active");
+ }
+ });
});
+
+function paths(pathname) {
+ var pieces = pathname.split("/");
+ pieces.shift(); // always starts with /
+
+ var end = pieces[pieces.length - 1];
+ if (end === "index.html" || end === "")
+ pieces.pop();
+ return(pieces);
+}
+
+function is_prefix(needle, haystack) {
+ if (needle.length > haystack.lengh)
+ return(false);
+
+ for (var i = 0; i < haystack.length; i++) {
+ if (needle[i] != haystack[i])
+ return(false);
+ }
+
+ return(true);
+}
diff --git a/docs/reference/count_na.html b/docs/reference/count_na.html
index 189f3f1..8b15053 100644
--- a/docs/reference/count_na.html
+++ b/docs/reference/count_na.html
@@ -23,14 +23,17 @@
-
+
+
-
+
+
+
@@ -49,10 +52,34 @@
- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Count NA
count_na count the number of NA in a vector
-count_na(x)
+count_na(x)
Arguments
--
-
- x -
- a vector -
+
+ +x +a vector
Value
@@ -91,7 +121,7 @@Value
Examples
library("readxl") -read_excel( +read_excel( path = system.file( "extdata", "panorama.xlsx", @@ -99,11 +129,10 @@Examp ) %>% set_standard_names() %>% .$ministere_porteur %>% -count_na()
#> # A tibble: 2 × 2 +count_na()#> # A tibble: 1 x 2 #> f n #> <fctr> <int> -#> 1 FALSE 57 -#> 2 TRUE 236+#> 1 FALSE 57diff --git a/docs/reference/detect_na.html b/docs/reference/detect_na.html index d0699c8..4240c07 100644 --- a/docs/reference/detect_na.html +++ b/docs/reference/detect_na.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Detect NA
Detect NA takes a tibble and return the number and share of missing values for each variable
-detect_na(table)
+detect_na(table)
Arguments
--
-
- table -
- name of the input variable -
+
+ +table +name of the input variable
Value
@@ -91,33 +121,21 @@Value
Examples
+detect_na()library("readxl") -read_excel( +read_excel( path = system.file( "extdata", "panorama.xlsx", package = "tricky") ) %>% set_standard_names() %>% -detect_na()#> Source: local data frame [15 x 3] -#> Groups: variable [15] -#> -#> variable n_missing share_missing -#> <fctr> <int> <dbl> -#> 1 ministere_porteur 236 80.54608 -#> 2 ministere_nom_complet 236 80.54608 -#> 3 nom_du_projet 236 80.54608 -#> 4 projet_interministeriel 236 80.54608 -#> 5 description_et_objectifs_du_projet 236 80.54608 -#> 6 en_savoir_plus_sur_le_projet 274 93.51536 -#> 7 debut 237 80.88737 -#> 8 duree_previsionnelle_en_annee 236 80.54608 -#> 9 phase_du_projet_en_cours 236 80.54608 -#> 10 cout_estime 236 80.54608 -#> 11 cout_estime_par_tranche 236 80.54608 -#> 12 zone_fonctionnelle 236 80.54608 -#> 13 financement_programmes 237 80.88737 -#> 14 lien_vers_les_projets_annuels_de_performances 242 82.59386 -#> 15 date_de_publication 236 80.54608#> # A tibble: 4 x 3 +#> # Groups: variable [4] +#> variable n_missing share_missing +#> <fctr> <int> <dbl> +#> 1 en_savoir_plus_sur_le_projet 38 66.666667 +#> 2 debut 1 1.754386 +#> 3 financement_programme_s_ 1 1.754386 +#> 4 lien_vers_les_projets_annuels_de_performances 6 10.526316Contents
diff --git a/docs/reference/detect_siren.html b/docs/reference/detect_siren.html index 85db98c..8838616 100644 --- a/docs/reference/detect_siren.html +++ b/docs/reference/detect_siren.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Detect Siren
detects if a data frame has a column of SIRENE identifier
-detect_siren(.data)
+detect_siren(.data)
Arguments
--
-
- .data -
- a data frame -
+
+ +.data +a data frame
Value
@@ -93,7 +123,7 @@Examp
library("tibble") -table_datadetective <- tibble::tibble( +table_datadetective <- tibble::tibble( v1 = c("123456789", "234567890"), v2 = c("1234567890123", "1234567890234") ) diff --git a/docs/reference/filter_dups_.html b/docs/reference/filter_dups_.html index cce3756..a8a5819 100644 --- a/docs/reference/filter_dups_.html +++ b/docs/reference/filter_dups_.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Filter duplicates
filter_dups_() takes a data frame and returns only duplicated rows
-filter_dups_(.data, .groups)
+filter_dups_(.data, .groups)
Arguments
--
-
- .data -
- a data frame -
- .groups -
- a grouping variabme -
+
+ +.data +a data frame
+ +.groups +a grouping variabme
Value
@@ -92,16 +124,14 @@Value
Examples
-table_test <- tibble::tibble(v1 = c("A", "A", "B", "C"), v2 = c("a", "b", "b", "c")) -filter_dups_(.data = table_test, .groups = ~ v1)#> Source: local data frame [2 x 2] -#> Groups: v1 [1] -#> +table_test <- tibble::tibble(v1 = c("A", "A", "B", "C"), v2 = c("a", "b", "b", "c")) +filter_dups_(.data = table_test, .groups = ~ v1)#> # A tibble: 2 x 2 +#> # Groups: v1 [1] #> v1 v2 #> <chr> <chr> #> 1 A a -#> 2 A bfilter_dups_(.data = table_test, .groups = ~ v2)#> Source: local data frame [2 x 2] -#> Groups: v2 [1] -#> +#> 2 A bfilter_dups_(.data = table_test, .groups = ~ v2)#> # A tibble: 2 x 2 +#> # Groups: v2 [1] #> v1 v2 #> <chr> <chr> #> 1 A b diff --git a/docs/reference/find_function_in_file.html b/docs/reference/find_function_in_file.html index 3eef2af..877b8ac 100644 --- a/docs/reference/find_function_in_file.html +++ b/docs/reference/find_function_in_file.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Find a function in a file
Find a function in a file
-find_function_in_file(function_name, file)
+find_function_in_file(function_name, file)
Arguments
--
-
- function_name -
- name of the function -
- file -
- path to the file -
+
+ +function_name +name of the function
+ +file +path to the file
Value
@@ -92,12 +124,12 @@Value
Examples
-
+## Not run: ------------------------------------ -# find_function_in_file( -# function_name = "detect_na", -# file = system.file("R", "tibbles.R", package = "tricky") -# ) -## ---------------------------------------------# NOT RUN { +find_function_in_file( +function_name = "detect_na", +file = system.file("R", "tibbles.R", package = "tricky") +) +# }
Contents
diff --git a/docs/reference/find_function_in_project.html b/docs/reference/find_function_in_project.html index c51b362..90e42f8 100644 --- a/docs/reference/find_function_in_project.html +++ b/docs/reference/find_function_in_project.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@# NOT RUN { +find_function_in_project(function_name = "detect_na", file = "Rmd") +find_function_in_project(function_name = "detect_na", file = "R") +# }- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Find function in the current RStudio project
Find function in the current RStudio project
-find_function_in_project(function_name, files)
+find_function_in_project(function_name, files)
Arguments
--
-
- function_name -
- name of the project -
- files -
- type of files : "R" or "Rmd" -
+
+ +function_name +name of the project
+ +files +type of files : "R" or "Rmd"
Value
@@ -93,10 +125,11 @@Value
Examples
+-## Not run: ------------------------------------ -# find_function_in_project(function_name = "detect_na", file = "Rmd") -# find_function_in_project(function_name = "detect_na", file = "R") -## ---------------------------------------------+Contents
diff --git a/docs/reference/find_keys.html b/docs/reference/find_keys.html index 71debde..63f52b5 100644 --- a/docs/reference/find_keys.html +++ b/docs/reference/find_keys.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Find keys
find_keys look at all function in a table and returns the list of possible keys (ie variables which identifies an observation)
-find_keys(table)
+find_keys(table)
Arguments
--
-
- table -
- the name of the input table (either tibble or data.frame) -
+
+ +table +the name of the input table (either tibble or data.frame)
Value
@@ -91,14 +121,14 @@Value
Examples
library("readr") -read_csv(system.file("extdata", "table_deputes.csv", package = "tricky")) %>% +read_csv(system.file("extdata", "table_deputes.csv", package = "tricky")) %>% find_keys()#> Parsed with column specification: #> cols( #> nom = col_character(), #> genre = col_character(), #> prenom = col_character(), #> nom_famille = col_character(), -#> date_naissance = col_datetime(format = ""), +#> date_naissance = col_datetime(format = ""), #> lieu_naissance = col_character(), #> circonscription = col_character(), #> sycomore_id = col_integer(), diff --git a/docs/reference/format_num.html b/docs/reference/format_num.html index fb7510e..7113942 100644 --- a/docs/reference/format_num.html +++ b/docs/reference/format_num.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Format num
Format num
-format_num(x, locale, ...)
+format_num(x, locale, ...)
Arguments
--
-
- x -
- a number -
- locale -
- a locale ("fr" or "en") -
- ... -
- other parameter to format such scientific = TRUE/FALSE -
+
+ +x +a number
+ +locale +a locale ("fr" or "en")
+ +... +other parameter to format such scientific = TRUE/FALSE
Value
@@ -94,7 +128,7 @@Value
Examples
-format_num(x = 1233.123, locale = "fr")#> [1] "1 233,123"format_num(x = 1233.123, locale = "en")#> [1] "1,233.123"+format_num(x = 1233.123, locale = "fr")#> [1] "1 233,123"format_num(x = 1233.123, locale = "en")#> [1] "1,233.123"diff --git a/docs/reference/french_formatting.html b/docs/reference/french_formatting.html index 9a20072..9c6033d 100644 --- a/docs/reference/french_formatting.html +++ b/docs/reference/french_formatting.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Formatting numbers according to French conventions
This function allows you to format numbers according to French conventions
-french_formatting(x)
+french_formatting(x)
Arguments
--
-
- x -
- the number you need to format -
+
+ +x +the number you need to format
Value
@@ -90,7 +120,7 @@Value
Examples
-french_formatting(11000.12)#> [1] "11 000,12"+french_formatting(11000.12)#> [1] "11 000,12"diff --git a/docs/reference/index.html b/docs/reference/index.html index 12d95b9..ec2c879 100644 --- a/docs/reference/index.html +++ b/docs/reference/index.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
diff --git a/docs/reference/is_siren.html b/docs/reference/is_siren.html index fb9103b..4cc64ff 100644 --- a/docs/reference/is_siren.html +++ b/docs/reference/is_siren.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@-Function reference
-version 0.1
++ Reference + version 0.1 +
-All functions
- - - - --
-
count_na
-
-
-
detect_na
-
-
-
detect_siren
-
-
-
filter_dups_
-
Find function in the current RStudio project
- - - --
-
find_keys
-
-
-
format_num
-
Formatting numbers according to French conventions
- - - --
-
is_siren
-
-
-
str_standardize
-
-
-
studendize
-
Converts French formatted numbers into numbers
- - - --
-
week_of_the_year
-
- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
is SIREN
is_siren detect if the variable match the pattern of a SIRENE number
-is_siren(var)
+is_siren(var)
Arguments
--
-
- var -
- name of a variable -
+
+ +var +name of a variable
Value
@@ -91,15 +121,15 @@Value
Examples
library("tibble") -table_datadetective <- tibble( +table_datadetective <- tibble( v1 = c("123456789", "234567890"), v2 = c("1234567890123", "1234567890234") ) -is_siren(var = table_datadetective$v1)#> # A tibble: 1 × 1 +is_siren(var = table_datadetective$v1)#> # A tibble: 1 x 1 #> x #> <lgl> -#> 1 TRUEis_siren(var = table_datadetective$v2)#> # A tibble: 1 × 1 +#> 1 TRUEis_siren(var = table_datadetective$v2)#> # A tibble: 1 x 1 #> x #> <lgl> #> 1 FALSEdiff --git a/docs/reference/make_node_node_table_.html b/docs/reference/make_node_node_table_.html index f21a67d..3f3e116 100644 --- a/docs/reference/make_node_node_table_.html +++ b/docs/reference/make_node_node_table_.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Make node node table
Make node node table
-make_node_node_table_(.data, node, link)
+make_node_node_table_(.data, node, link)
Arguments
--
-
- .data -
- a data frame with one row per node, link -
- node -
- name of the node variable -
- link -
- name of the link variable -
+
+ +.data +a data frame with one row per node, link
+ +node +name of the node variable
+ +link +name of the link variable
Value
@@ -97,7 +131,7 @@Examp
library("tibble") -toy_data <- tibble::tibble( +toy_data <- tibble::tibble( node = c("A", "B", "C", "A", "B"), link = c("a", "a", "b", "b", "b") ) diff --git a/docs/reference/make_single_node_node_table_.html b/docs/reference/make_single_node_node_table_.html index 13cac97..c675bc3 100644 --- a/docs/reference/make_single_node_node_table_.html +++ b/docs/reference/make_single_node_node_table_.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Make a single node node table
Make a single node node table
-make_single_node_node_table_(.data, .id, node, link)
+make_single_node_node_table_(.data, .id, node, link)
Arguments
--
-
- .data -
- a data frame with one row per (node, link) -
- .id -
- id of a node -
- node -
- name of the node variable -
- link -
- name of the link variable -
+
+ +.data +a data frame with one row per (node, link)
+ +.id +id of a node
+ +node +name of the node variable
+ +link +name of the link variable
Value
@@ -99,7 +135,7 @@Examp
## Toy data library("tibble") -toy_data <- tibble::tibble( +toy_data <- tibble::tibble( node = c("A", "B", "C", "A", "B"), link = c("a", "a", "b", "b", "b") ) @@ -109,7 +145,7 @@Examp .id = "A", node = "node", link = "link" -)
#> # A tibble: 3 × 2 +)#> # A tibble: 3 x 2 #> node_A node_B #> <chr> <chr> #> 1 A B diff --git a/docs/reference/percent_formatting.html b/docs/reference/percent_formatting.html index 351e425..216f626 100644 --- a/docs/reference/percent_formatting.html +++ b/docs/reference/percent_formatting.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Formatting percentages
This function allows you to format percentages
-percent_formatting(x)
+percent_formatting(x)
Arguments
--
-
- x -
- the number you need to format -
+
+ +x +the number you need to format
Value
@@ -90,7 +120,7 @@Value
Examples
-percent_formatting(0.012)#> [1] "1.2 %"+diff --git a/docs/reference/reexports.html b/docs/reference/reexports.html index 71425b8..48162f7 100644 --- a/docs/reference/reexports.html +++ b/docs/reference/reexports.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@percent_formatting(0.012)#> [1] "1.2 %"- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Objects exported from other packages
These objects are imported from other packages. Follow the links -below to see their documentation.
- --
-
- magrittr
%>%
-
-
+
- magrittr
%>%
+
- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Set standard names
Set standard names set standard names, ie names which can be used in programming. -set_standard_names(.data, prefix = "var_")
+set_standard_names(.data, prefix = "var_")
Arguments
--
-
- .data -
- a tibble -
- prefix -
- name of the prefix for names beginning with numbers -
+
+ +.data +a tibble
+ +prefix +name of the prefix for names beginning with numbers
Value
@@ -96,36 +128,38 @@Examp
library(readxl) library(dplyr)#> -#> Attaching package: ‘dplyr’#> The following objects are masked from ‘package:stats’: +#> Attaching package: ‘dplyr’#> The following object is masked from ‘package:testthat’: +#> +#> matches#> The following objects are masked from ‘package:stats’: #> #> filter, lag#> The following objects are masked from ‘package:base’: #> #> intersect, setdiff, setequal, union-read_excel( +read_excel( path = system.file("extdata","panorama.xlsx", package = "tricky") ) %>% -set_standard_names()#> # A tibble: 293 × 15 +set_standard_names()#> # A tibble: 57 x 15 #> ministere_porteur #> <chr> -#> 1 SPM -#> 2 SPM -#> 3 SPM -#> 4 SPM -#> 5 SPM -#> 6 MAEDI -#> 7 MAEDI -#> 8 MAEDI -#> 9 MCAS +#> 1 SPM +#> 2 SPM +#> 3 SPM +#> 4 SPM +#> 5 SPM +#> 6 MAEDI +#> 7 MAEDI +#> 8 MAEDI +#> 9 MCAS #> 10 MCAS -#> # ... with 283 more rows, and 14 more variables: ministere_nom_complet <chr>, +#> # ... with 47 more rows, and 14 more variables: ministere_nom_complet <chr>, #> # nom_du_projet <chr>, projet_interministeriel <chr>, #> # description_et_objectifs_du_projet <chr>, -#> # en_savoir_plus_sur_le_projet <chr>, debut <dbl>, +#> # en_savoir_plus_sur_le_projet <chr>, debut <dttm>, #> # duree_previsionnelle_en_annee <chr>, phase_du_projet_en_cours <chr>, #> # cout_estime <chr>, cout_estime_par_tranche <chr>, zone_fonctionnelle <chr>, -#> # financement_programmes <chr>, +#> # financement_programme_s_ <chr>, #> # lien_vers_les_projets_annuels_de_performances <chr>, -#> # date_de_publication <dbl>+#> # date_de_publication <dttm>diff --git a/docs/reference/str_standardize.html b/docs/reference/str_standardize.html index 48a9609..bb02058 100644 --- a/docs/reference/str_standardize.html +++ b/docs/reference/str_standardize.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Standardize
Standardize removes accents, blank spaces, special caracters from a string
-str_standardize(string, prefix = "var_")
+str_standardize(string, prefix = "var_")
Arguments
--
-
- string -
- a string -
- prefix -
- a string -
+
+ +string +a string
+ +prefix +a string
Value
@@ -96,7 +128,7 @@Details
Examples
-str_standardize("2017/07/07", prefix = "date_")#> [1] "date_2017_07_07"str_standardize("code externe de l'action")#> [1] "code_externe_de_l_action"+str_standardize("2017/07/07", prefix = "date_")#> [1] "date_2017_07_07"str_standardize("code externe de l'action")#> [1] "code_externe_de_l_action"diff --git a/docs/reference/studendize.html b/docs/reference/studendize.html index bffe698..97c2c0f 100644 --- a/docs/reference/studendize.html +++ b/docs/reference/studendize.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@-- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Studendize
Normalizing a numerical vector using Student's normalization
+Normalizing a numerical vector using Student's normalization
-studendize(x)
+studendize(x)
Arguments
--
-
- x -
- a numeric vector -
+
+ +x +a numeric vector
Value
@@ -90,7 +120,7 @@Value
Details
-WARNING : This version doesn't handles vectors with missing values
+WARNING : This version doesn't handles vectors with missing values
Examples
diff --git a/docs/reference/unfrench_formatting.html b/docs/reference/unfrench_formatting.html index 56e8f24..781ddcb 100644 --- a/docs/reference/unfrench_formatting.html +++ b/docs/reference/unfrench_formatting.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Converts French formatted numbers into numbers
This function allows you to extract the value of French formatted numbers
-unfrench_formatting(x)
+unfrench_formatting(x)
Arguments
--
-
- x -
- string containing a number -
+
+ +x +string containing a number
Value
diff --git a/docs/reference/week_of_the_year.html b/docs/reference/week_of_the_year.html index 611e6bd..48adcc9 100644 --- a/docs/reference/week_of_the_year.html +++ b/docs/reference/week_of_the_year.html @@ -23,14 +23,17 @@ - + + - + + + @@ -49,10 +52,34 @@- - Reference + + + +
- - Articles + Reference + +
-
+
+ Articles
+
+
+
+
-
+
- + Vignette Title + +
- + Numbers + +
- + Strings + +
- + Tibbles + +
Compute the week of the year
This function allows you to the week number in one year for a given date
-week_of_the_year(date)
+week_of_the_year(date)
Arguments
--
-
- date -
- date -
+
+ +date +date
Value
@@ -93,7 +123,7 @@Examp
library("lubridate")#> #> Attaching package: ‘lubridate’#> The following object is masked from ‘package:base’: #> -#> dateweek_of_the_year(date = today())#> [1] 16week_of_the_year(date = as.Date("2015-10-21"))#> [1] 43week_of_the_year(seq(as.Date("1990-12-31"), as.Date("2015-12-31"), by = "year"))#> [1] 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 54 53 53 +#> date#> [1] 32week_of_the_year(date = as.Date("2015-10-21"))#> [1] 43week_of_the_year(seq(as.Date("1990-12-31"), as.Date("2015-12-31"), by = "year"))#> [1] 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 53 54 53 53 #> [26] 53
-
+
+
+install_github("hadley/rlang")
+install_github("pachevalier/tricky")
A bag of useful R tricks
- Installation
+Installationlibrary("devtools")
-install_github("hadley/rlang")
-install_github("pachevalier/tricky")