cleanup R CMD check

.Rbuildignore

@@ -13,3 +13,5 @@ $run_dev.*
 ^app\.R$
 ^rsconnect$
 ^\.github$
+^\.lintr$
+^R/_disable_autoload\.R$

NAMESPACE

@@ -16,6 +16,7 @@ importFrom(golem,add_resource_path)
 importFrom(golem,bundle_resources)
 importFrom(golem,favicon)
 importFrom(golem,with_golem_options)
+importFrom(pkgload,load_all)
 importFrom(shiny,NS)
 importFrom(shiny,shinyApp)
 importFrom(shiny,tagList)

R/app_server.R

@@ -5,6 +5,56 @@
 #' @noRd
 app_server <- function(input, output, session) {
   # Your application server logic
+  ns <- session$ns()
+
+  cancel_btn <- modalButton("cancel")
+  cancel_btn <- tagAppendAttributes(
+    cancel_btn,
+    class = "btn-success"
+  )
+
+  observeEvent(TRUE, {
+    showModal(
+      modalDialog(
+        title = "WeLCOME to the PoKeMON APP",
+        "Do you want to start the app!",
+        size = "s",
+        footer = tagList(
+          cancel_btn,
+          actionButton(
+            "continue",
+            "Continue",
+            class = "btn-danger",
+            `data-dismiss` = "modal"
+          )
+        )
+      )
+    )
+  })
+
+  observeEvent(input$continue, {
+    showModal(
+      modalDialog(
+        title = "The     N1 poKemON APP IN THE WORLD!!!!",
+        size = "s",
+        "Please confirm",
+        footer = tagList(
+          modalButton("continue"),
+          actionButton(
+            "cancel",
+            "Cancel",
+            class = "btn-success",
+            `data-dismiss` = "modal"
+          )
+        )
+      )
+    )
+  }, priority = 10)
+
+  observeEvent(input$cancel, {
+    session$reload()
+  })
+
   main <- mod_poke_select_server("poke_select_1")
   mod_poke_info_server("poke_info_1", main$selected, main$is_shiny)
   mod_poke_type_server("poke_type_1", main$selected)

R/app_ui.R

@@ -25,7 +25,7 @@ app_ui <- function(request) {
         url = "https://pokeapi.co/static/logo-6221638601ef7fa7c835eae08ef67a16.png",
         status = "success",
         date = NULL,
-        "This app use pokeApi by Paul Hallet and PokéAPI contributors."
+        "This app use pokeApi by Paul Hallet and PokeAPI contributors."
       )
     )
   )
@@ -89,6 +89,16 @@ golem_add_external_resources <- function() {
     bundle_resources(
       path = app_sys("app/www"),
       app_title = "shinyMons2"
+    ),
+    # custom font setup
+    tags$link(
+      href = "https://fonts.googleapis.com/css?family=Press+Start+2P",
+      rel = "stylesheet"
+    ),
+    tags$style(
+      "html, body, pre, code, kbd, samp {
+          font-family: 'Press Start 2P';
+      }"
     )
   )
 }

R/data.R

@@ -0,0 +1,22 @@
+#' Pokemon API data
+#'
+#' Extract of some data from the 151 first Pokemons.
+#'
+#' @format ## `poke_data`
+#' A nested list with 151 entries. Each sublist contains:
+#' \describe{
+#'   \item{name}{Char: Pokemon name.}
+#'   \item{description}{Char: Pokemon description.}
+#'   \item{shape}{Char: Pokemon shape.}
+#'   \item{sprites}{List: Front and back sprites (images).}
+#'    \itemize{
+#'      \item{front_default}{Char: front sprite URL}
+#'      \item{shiny_default}{Char: front sprite URL (shiny form)}
+#'    }
+#'    \item{habitat}{Char: Pokemon habitat.}
+#'    ...
+#' }
+#' @note Have a look to inst/app-doc/data-doc.html to get an
+#' interactive overview.
+#' @source <https://pokeapi.co/docs/v2>
+"poke_data"

R/shinyMons2-package.R

@@ -1,9 +1,12 @@
 #' shinyMons2
 #'
+#' All the first generation Pokemon data in a shiny app.
+#'
 #' @name shinyMons2
 #' @import shiny
 #' @import tablerDash
 #' @import echarts4r
+#' @importFrom pkgload load_all
 #' @importFrom shinyWidgets pickerInput prettySwitch
 #' @importFrom dplyr as_tibble summarise across all_of rowwise pull
 #' @docType package

R/utils.R

@@ -122,6 +122,9 @@ get_max_of_max <- function(data = get_max_stats()) {
 #' @return A chart htmlwidget.
 #' @export
 create_radar_stats <- function(pokemon) {
+  # R CMD check stop crying ...
+  x <- y <- z <- NULL
+
   stats <- pokemon$stats
   # Prepare data
   data <- process_pokemon_stats(stats)
@@ -200,3 +203,7 @@ select_pokemon <- function(selected) {
     poke_data[[selected]]
   }
 }
+
+# R CMD check ...
+globalVariables("poke_data")
+

README.Rmd

@@ -25,11 +25,10 @@ This project is hosted on Posit Cloud in this [space](https://posit.cloud/spaces
 
 ## Work instructions
 
-Each one of you will be working in a group, an ID will be assigned to you prior to the workshop. Therefore, only one person/group will have to commit the code to GitHub. Group leads will be randomly assigned prior to the workshop and communicated to you.
+Each one of you will be working in a group, an ID will be assigned to you prior to the workshop. Group leads will be randomly assigned prior to the workshop and communicated to you. Therefore, only one person/group will have to commit the code to GitHub.
 
-1. Create a new branch named `<group_ID>` (1 per group!).
-2. Run `renv::restore()`.
-3. Ready to start?
+1. Group lead: Create a new branch named `<group_ID>` (1 per group!).
+2. Anyone: Run `renv::restore()`.
 
 Please remember that you can run `styler::style_pkg()` and `devtools::lint()` so the code style stays consistent.
 
@@ -49,9 +48,9 @@ Please remember that you can run `styler::style_pkg()` and `devtools::lint()` so
 
 ## App structure
 
-This app leveraging `{golem}` is composed of 6 modules. The main module is `mod_poke_select`, which returns the selected pokemon (picker input) as well as its variant (shiny or not). Those data are passed to other modules. General pokemon data, namely `poke_data`, have been pre-processed for you so you don't have to focus on the data wrangling but the UI design (This also avoids us to flood the underlying API with too many requests).
+This app leveraging `{golem}` is composed of 6 modules. The main module is `mod_poke_select`, which returns the selected Pokemon (picker input) as well as its variant (shiny or not). Those data are passed to other modules. General Pokemon data, namely `poke_data`, have been pre-processed for you so you don't have to focus on the data wrangling but the UI design (This also avoids us to flood the underlying API with too many requests).
 
-If you're more curious, browse to `inst/doc` and have a look to:
+If you're more curious, browse to `inst/app-doc` and have a look to:
 
 - `data-doc.html`: htmlwidget showing the data structure for the first pokemon, so you get an idea on what is available to you.
 - `flow`: app module structure, powered by [`{flow}`](https://github.com/moodymudskipper/flow).

README.md

@@ -22,13 +22,12 @@ and deployed [here](https://dgranjon.shinyapps.io/shinyMonsUgly).
 ## Work instructions
 
 Each one of you will be working in a group, an ID will be assigned to
-you prior to the workshop. Therefore, only one person/group will have to
-commit the code to GitHub. Group leads will be randomly assigned prior
-to the workshop and communicated to you.
+you prior to the workshop. Group leads will be randomly assigned prior
+to the workshop and communicated to you. Therefore, only one
+person/group will have to commit the code to GitHub.
 
-1.  Create a new branch named `<group_ID>` (1 per group!).
-2.  Run `renv::restore()`.
-3.  Ready to start?
+1.  Group lead: Create a new branch named `<group_ID>` (1 per group!).
+2.  Anyone: Run `renv::restore()`.
 
 Please remember that you can run `styler::style_pkg()` and
 `devtools::lint()` so the code style stays consistent.
@@ -53,14 +52,14 @@ Please remember that you can run `styler::style_pkg()` and
 ## App structure
 
 This app leveraging `{golem}` is composed of 6 modules. The main module
-is `mod_poke_select`, which returns the selected pokemon (picker input)
+is `mod_poke_select`, which returns the selected Pokemon (picker input)
 as well as its variant (shiny or not). Those data are passed to other
-modules. General pokemon data, namely `poke_data`, have been
+modules. General Pokemon data, namely `poke_data`, have been
 pre-processed for you so you don’t have to focus on the data wrangling
 but the UI design (This also avoids us to flood the underlying API with
 too many requests).
 
-If you’re more curious, browse to `inst/doc` and have a look to:
+If you’re more curious, browse to `inst/app-doc` and have a look to:
 
 - `data-doc.html`: htmlwidget showing the data structure for the first
   pokemon, so you get an idea on what is available to you.