Merge pull request #5 from Andryas/main

add example using shiny.fluent and dynamic routes /projectId/pages*

Author: lgnbhl

.gitignore

@@ -12,3 +12,4 @@ js/README.md
 docs
 inst/doc
 data-raw
+renv

inst/examples/shiny.fluent/.Rprofile

@@ -0,0 +1,18 @@
+if (file.exists("renv")) {
+  source("renv/activate.R")
+} else {
+  # The `renv` directory is automatically skipped when deploying with rsconnect.
+  message("No 'renv' directory found; renv won't be activated.")
+}
+
+# Allow absolute module imports (relative to the app root).
+options(box.path = getwd())
+
+# box.lsp languageserver external hook
+if (nzchar(system.file(package = "box.lsp"))) {
+  options(
+    languageserver.parser_hooks = list(
+      "box::use" = box.lsp::box_use_parser
+    )
+  )
+}

inst/examples/shiny.fluent/.lintr

@@ -0,0 +1,5 @@
+linters:
+  linters_with_defaults(
+    defaults = box.linters::rhino_default_linters,
+    line_length_linter = line_length_linter(100)
+  )

inst/examples/shiny.fluent/.renvignore

@@ -0,0 +1,3 @@
+# Only use `dependencies.R` to infer project dependencies.
+*
+!dependencies.R

inst/examples/shiny.fluent/app.R

@@ -0,0 +1,2 @@
+# Rhino / shinyApp entrypoint. Do not edit.
+rhino::app()

inst/examples/shiny.fluent/app/js/index.js

@@ -0,0 +1,2 @@
+# Logic: application code independent from Shiny.
+# https://go.appsilon.com/rhino-project-structure

inst/examples/shiny.fluent/app/logic/__init__.R

@@ -0,0 +1,6 @@
+# openDota API example for fetching hero stats
+
+print("Fetching hero stats from OpenDota API...")
+hero_stats <- httr::GET("https://api.opendota.com/api/heroStats")
+hero_stats <- httr::content(hero_stats)
+hero_stats

inst/examples/shiny.fluent/app/logic/data.R

@@ -0,0 +1,11 @@
+#' @export
+primary_attr_color <- function(attr) {
+    switch(
+        attr,
+        "str" = "darkred",
+        "agi" = "darkgreen",
+        "int" = "darkblue",
+        "all" = "purple", # or "indigo"/"#6a0dad" if you want darker purple
+        "black" # fallback/default
+    )
+}

inst/examples/shiny.fluent/app/logic/utils.R

@@ -0,0 +1,61 @@
+box::use(
+  app / view / home,
+  app / view / menu,
+  app / view / details,
+  app / view / benchmark,
+  app / view / rank
+)
+
+#' @export
+ui <- function(id) {
+  ns <- shiny::NS(id)
+  shiny::tagList(
+    shiny.fluent::fluentPage(
+      reactRouter::HashRouter(
+        reactRouter::Routes(
+          reactRouter::Route(
+            path = "/",
+            element = home$ui(ns("home"))
+          ),
+          reactRouter::Route(
+            path = "/:projectId/*",
+            element = menu$ui(ns("menu")),
+            children = list(
+              reactRouter::Route(
+                path = "details",
+                element = details$ui(ns("details"))
+              ),
+              reactRouter::Route(
+                path = "benchmark",
+                element = benchmark$ui(ns("benchmark"))
+              ),
+              reactRouter::Route(
+                path = "rank",
+                element = rank$ui(ns("rank"))
+              )
+            )
+          ),
+          reactRouter::Route(path = "*", element = "Custom error 404")
+        )
+      )
+    )
+  )
+}
+
+#' @export
+server <- function(id) {
+  shiny::moduleServer(id, function(input, output, session) {
+    hero_selected <- home$server("home")
+
+    shiny::observe({
+      shiny::req(hero_selected())
+
+      print(paste0("hero_id selected: ", hero_selected()))
+    })
+
+    menu$server("menu", hero_selected = hero_selected)
+    details$server("details", hero_selected = hero_selected)
+    benchmark$server("benchmark", hero_selected = hero_selected)
+    rank$server("rank", hero_selected = hero_selected)
+  })
+}