v1.0.0 Githubiin

Author: markuskainu-kela

.Rbuildignore

@@ -0,0 +1,14 @@
+^renv$
+^renv\.lock$
+^.*\.Rproj$
+^\.Rproj\.user$
+^data-raw$
+dev_history.R
+^dev$
+$run_dev.*
+^LICENSE\.md$
+^README\.Rmd$
+^app\.R$
+^rsconnect$
+^Dockerfile$
+^\.dockerignore$

.dockerignore

@@ -0,0 +1,7 @@
+.RData
+.Rhistory
+.git
+.gitignore
+manifest.json
+rsconnect/
+Rproj.user

.gitignore

@@ -0,0 +1,10 @@
+.Rproj.user
+.Rhistory
+.Rdata
+.httr-oauth
+.DS_Store
+perhevapaavertailu.Rproj
+Dockerfile_openshift
+Dockerfile_shinyproxy
+aymp-build.conf
+LICENSE

DESCRIPTION

@@ -0,0 +1,42 @@
+Package: perhevapaavertailu
+Title: A shiny application for calculating how sharing family leave between parents can affect your family income
+Version: 1.0.0
+Date: 2024-06-28
+Authors@R: c(
+    person("Eeva-Maria", "Keski-Säntti", , "[email protected]", role = c("cre", "aut")),
+    person("Petri", "Eskelinen", , "[email protected]", role = "aut"),
+    person("Tapio", "Isolankila", , "[email protected]", role = "aut"),
+    person("Markus", "Kainu", , "[email protected]", role = "aut",
+           comment = c(ORCID = "0000-0003-1376-503X"))
+  )
+Description: You can use this calculator to give you an idea of how sharing family leave between parents can affect your family income. 
+    This calculator is intended for working parents whose child was born on or after 4 September 2022. Please note that the results are only indicative.
+License: MIT + file LICENSE
+Imports: 
+    bslib,
+    bsicons,
+    config (>= 0.3.1),
+    dplyr,
+    ggplot2,
+    glue,
+    golem (>= 0.3.1),
+    shiny.i18n,
+    metathis,
+    patchwork,
+    plyr,
+    readr,
+    shiny (>= 1.7.1),
+    shinycssloaders,
+    shinyFeedback,
+    shinyjs,
+    yaml
+Suggests: 
+    knitr,
+    rmarkdown,
+    spelling,
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3
+Encoding: UTF-8
+Language: en-US
+LazyData: true
+RoxygenNote: 7.3.1

LICENSE.md

@@ -0,0 +1,21 @@
+# MIT License
+
+Copyright (c) 2021-2024 Eeva-Maria Keski-Säntti, Tapio Isolankila, Markus Kainu
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

NAMESPACE

@@ -0,0 +1,17 @@
+# Generated by roxygen2: do not edit by hand
+
+export(run_app)
+import(bslib)
+import(dplyr)
+import(ggplot2)
+import(metathis)
+import(patchwork)
+import(shiny)
+import(shiny.i18n)
+import(shinyFeedback)
+importFrom(golem,activate_js)
+importFrom(golem,add_resource_path)
+importFrom(golem,bundle_resources)
+importFrom(golem,favicon)
+importFrom(golem,with_golem_options)
+importFrom(shiny,shinyApp)

NEWS.md

@@ -0,0 +1,3 @@
+# perhevapaavertailu 1.0.0
+
+* Public release of source code under MIT-license

R/app_config.R

@@ -0,0 +1,43 @@
+#' Access files in the current app
+#' 
+#' NOTE: If you manually change your package name in the DESCRIPTION, 
+#' don't forget to change it here too, and in the config file. 
+#' For a safer name change mechanism, use the `golem::set_golem_name()` function.
+#' 
+#' @param ... character vectors, specifying subdirectory and file(s) 
+#' within your package. The default, none, returns the root of the app. 
+#' 
+#' @noRd
+app_sys <- function(...){
+  system.file(..., package = "perhevapaavertailu")
+}
+
+
+#' Read App Config
+#' 
+#' @param value Value to retrieve from the config file. 
+#' @param config GOLEM_CONFIG_ACTIVE value. If unset, R_CONFIG_ACTIVE. 
+#' If unset, "default".
+#' @param use_parent Logical, scan the parent directory for config file.
+#' 
+#' @noRd
+get_golem_config <- function(
+  value, 
+  config = Sys.getenv(
+    "GOLEM_CONFIG_ACTIVE", 
+    Sys.getenv(
+      "R_CONFIG_ACTIVE", 
+      "default"
+    )
+  ), 
+  use_parent = TRUE
+){
+  config::get(
+    value = value, 
+    config = config, 
+    # Modify this if your config file is somewhere else:
+    file = app_sys("golem-config.yml"), 
+    use_parent = use_parent
+  )
+}
+