Re-render readme manually

Author: pitkant

README.md

@@ -1,3 +1,4 @@
+
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 
 # sotkanet: Tools for accessing open data on welfare and health in Finland <a href="https://ropengov.github.io/sotkanet/"><img src="man/figures/logo.png" align="right" height="139"/></a>
@@ -7,7 +8,7 @@
 [![rOG-badge](https://ropengov.github.io/rogtemplate/reference/figures/ropengov-badge.svg)](https://ropengov.org/)
 [![R build
 status](https://github.com/rOpenGov/sotkanet/workflows/R-CMD-check/badge.svg)](https://github.com/rOpenGov/sotkanet/actions)
-[![CRAN\_Status\_Badge](http://www.r-pkg.org/badges/version/sotkanet)](https://cran.r-project.org/package=sotkanet)
+[![CRAN_Status_Badge](http://www.r-pkg.org/badges/version/sotkanet)](https://cran.r-project.org/package=sotkanet)
 [![r-universe](https://ropengov.r-universe.dev/badges/sotkanet)](https://ropengov.r-universe.dev/)
 [![Downloads
 total](http://cranlogs.r-pkg.org/badges/grand-total/sotkanet)](https://cran.r-project.org/package=sotkanet)
@@ -35,90 +36,104 @@ description](https://sotkanet.fi/sotkanet/en/data).
 
 You can install the stable release version from CRAN:
 
-    install.packages("sotkanet")
+``` r
+install.packages("sotkanet")
+```
 
 Alternatively, you can install the development version of sotkanet
 package from GitHub with:
 
-    # install.packages("remotes")
-    remotes::install_github("rOpenGov/sotkanet")
+``` r
+# install.packages("remotes")
+remotes::install_github("rOpenGov/sotkanet")
+```
 
 Development version can be also installed using the
 [r-universe](https://ropengov.r-universe.dev):
 
-    # Enable this universe
-    options(repos = c(
-      ropengov = "https://ropengov.r-universe.dev",
-      CRAN = "https://cloud.r-project.org"
-    ))
-    install.packages("sotkanet")
+``` r
+# Enable this universe
+options(repos = c(
+  ropengov = "https://ropengov.r-universe.dev",
+  CRAN = "https://cloud.r-project.org"
+))
+install.packages("sotkanet")
+```
 
 ### Using the package
 
 Load the package in R:
 
-    library(sotkanet)
+``` r
+library(sotkanet)
+```
 
 List available indicators in the Sotkanet data portal:
 
-    # Pre-defined list of indicators to save bandwidth
-    sotkanet.indicators <- sotkanet_indicators(c(4,5,6,7,46,74))
-    head(sotkanet.indicators$indicator.title)
-    #> [1] "Mielenterveyden häiriöihin sairaalahoitoa saaneet 0 - 17-vuotiaat / 1 000 vastaavan ikäistä"             
-    #> [2] "Toimeentulotukea saaneet 25 - 64-vuotiaat, % vastaavan ikäisestä väestöstä"                              
-    #> [3] "Somaattisen erikoissairaanhoidon vuodeosastohoitopäivät 75 vuotta täyttäneillä / 1 000 vastaavan ikäistä"
-    #> [4] "0 - 6-vuotiaat, % väestöstä"                                                                             
-    #> [5] "0 - 6-vuotiaat, % väestöstä, väestöennuste 2060"                                                         
-    #> [6] "Yhden vanhemman perheet, % lapsiperheistä"
+``` r
+# Pre-defined list of indicators to save bandwidth
+sotkanet.indicators <- sotkanet_indicators(c(4,5,6,7,46,74))
+head(sotkanet.indicators$indicator.title)
+#> [1] "Mielenterveyden häiriöihin sairaalahoitoa saaneet 0 - 17-vuotiaat / 1 000 vastaavan ikäistä"             
+#> [2] "Toimeentulotukea saaneet 25 - 64-vuotiaat, % vastaavan ikäisestä väestöstä"                              
+#> [3] "Somaattisen erikoissairaanhoidon vuodeosastohoitopäivät 75 vuotta täyttäneillä / 1 000 vastaavan ikäistä"
+#> [4] "0 - 6-vuotiaat, % väestöstä"                                                                             
+#> [5] "0 - 6-vuotiaat, % väestöstä, väestöennuste 2060"                                                         
+#> [6] "Yhden vanhemman perheet, % lapsiperheistä"
+```
 
 Here is an example of data retrieval and visualization, using indicator
 describing private dental care use among 0-17 years old in 2015-2022.
 
-    library(ggplot2)
-    library(ggrepel)
-
-    hammashoito <- get_sotkanet(indicators = 1075, years = 2015:2022, genders = "total", region.category = "MAAKUNTA")
-
-    # Indicator title tells what this indicator is about
-    unique(hammashoito$indicator.title)
-    #> [1] "Yksityisen hammashuollon käynnit 0 - 17-vuotiailla / 1 000 vastaavan ikäistä"
-
-
-    # Some data has to be retrieved separately
-    hammashoito_metadata <- sotkanet_indicator_metadata(id = 1075)
-
-    plot_caption <- paste0("Lähde: https://sotkanet.fi / ", hammashoito_metadata$organization$title, "\n",
-                           "Datan päiväys ", hammashoito_metadata$`data-updated`)
-
-    plot <- ggplot(hammashoito, aes(x=year, y=primary.value, group=region.title))+
-      geom_line(aes(color=region.title)) +
-      geom_point(aes(color=region.title))
-
-    plot + labs(title = "Yksityisen hammashuollon käynnit 2015-2022",
-                subtitle = "0 - 17-vuotiailla / 1 000 vastaavanikäistä",
-                x = "Vuosi", 
-                y = "Käyntien lkm",
-                caption = plot_caption,
-                color = "Maakunta") +
-      geom_text_repel(
-        aes(color = region.title, label = ifelse(year == 2022, region.title, NA_character_)),
-        xlim = c(2023, 2025),
-        direction = "both",
-        hjust = 0,
-        segment.size = .7,
-        segment.alpha = .5,
-        segment.linetype = "dotted",
-        box.padding = .4,
-        segment.curvature = -0.1,
-        segment.ncp = 3,
-        segment.angle = 20,
-        size = 3)+
-      theme(legend.position = "none",
-            panel.background = element_rect(fill = "linen")) +
-      scale_x_continuous(
-        expand = c(0, 0),
-        limits = c(2015, 2025), 
-        breaks = seq(2015, 2022))
+``` r
+library(ggplot2)
+library(ggrepel)
+
+hammashoito <- get_sotkanet(indicators = 1075, years = 2015:2022, genders = "total", region.category = "MAAKUNTA")
+
+# Indicator title tells what this indicator is about
+unique(hammashoito$indicator.title)
+#> [1] "Yksityisen hammashuollon käynnit 0 - 17-vuotiailla / 1 000 vastaavan ikäistä"
+```
+
+``` r
+
+# Some data has to be retrieved separately
+hammashoito_metadata <- sotkanet_indicator_metadata(id = 1075)
+
+plot_caption <- paste0("Lähde: https://sotkanet.fi / ", hammashoito_metadata$organization$title, "\n",
+                       "Datan päiväys ", hammashoito_metadata$`data-updated`)
+
+plot <- ggplot(hammashoito, aes(x=year, y=primary.value, group=region.title))+
+  geom_line(aes(color=region.title)) +
+  geom_point(aes(color=region.title))
+
+plot + labs(title = "Yksityisen hammashuollon käynnit 2015-2022",
+            subtitle = "0 - 17-vuotiailla / 1 000 vastaavanikäistä",
+            x = "Vuosi", 
+            y = "Käyntien lkm",
+            caption = plot_caption,
+            color = "Maakunta") +
+  geom_text_repel(
+    aes(color = region.title, label = ifelse(year == 2022, region.title, NA_character_)),
+    xlim = c(2023, 2025),
+    direction = "both",
+    hjust = 0,
+    segment.size = .7,
+    segment.alpha = .5,
+    segment.linetype = "dotted",
+    box.padding = .4,
+    segment.curvature = -0.1,
+    segment.ncp = 3,
+    segment.angle = 20,
+    size = 3)+
+  theme(legend.position = "none",
+        panel.background = element_rect(fill = "linen")) +
+  scale_x_continuous(
+    expand = c(0, 0),
+    limits = c(2015, 2025), 
+    breaks = seq(2015, 2022))
+```
 
 <img src="man/figures/README-sotkanet_example-1.png" width="90%" />
 
@@ -127,15 +142,15 @@ page](http://ropengov.github.io/sotkanet/articles/tutorial.html).
 
 ### Contributing
 
--   [Submit suggestions and bug
-    reports](https://github.com/ropengov/sotkanet/issues) (provide the
-    output of `sessionInfo()` and `packageVersion("sotkanet")` and
-    preferably provide a [reproducible
-    example](http://adv-r.had.co.nz/Reproducibility.html))
--   [Send a pull request](https://github.com/ropengov/sotkanet/pulls)
--   [Star us on the Github page](https://github.com/ropengov/sotkanet/)
--   [See our website](https://ropengov.org/community/) for additional
-    contact information
+- [Submit suggestions and bug
+  reports](https://github.com/ropengov/sotkanet/issues) (provide the
+  output of `sessionInfo()` and `packageVersion("sotkanet")` and
+  preferably provide a [reproducible
+  example](http://adv-r.had.co.nz/Reproducibility.html))
+- [Send a pull request](https://github.com/ropengov/sotkanet/pulls)
+- [Star us on the Github page](https://github.com/ropengov/sotkanet/)
+- [See our website](https://ropengov.org/community/) for additional
+  contact information
 
 ### Acknowledgements
 
@@ -160,7 +175,7 @@ laitos, THL).
 For information about THL’s open data license and limitation of
 liability, please see their website:
 
--   In English: [THL’s open data license and limitation of
-    liability](https://yhteistyotilat.fi/wiki08/display/THLKA/THL%27s+open+data+license+and+limitation+of+liability)
--   In Finnish: [THL:n avoimen datan lisenssi ja
-    vastuuvapauslauseke](https://yhteistyotilat.fi/wiki08/display/THLKA/THL%3An+avoimen+datan+lisenssi+ja+vastuuvapauslauseke)
+- In English: [THL’s open data license and limitation of
+  liability](https://yhteistyotilat.fi/wiki08/display/THLKA/THL%27s+open+data+license+and+limitation+of+liability)
+- In Finnish: [THL:n avoimen datan lisenssi ja
+  vastuuvapauslauseke](https://yhteistyotilat.fi/wiki08/display/THLKA/THL%3An+avoimen+datan+lisenssi+ja+vastuuvapauslauseke)