App Push Test (main@b24c5f49)

Author: kamilzyla

.Rprofile

@@ -0,0 +1,9 @@
+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())

.github/workflows/rhino-test.yml

@@ -0,0 +1,72 @@
+name: Rhino Test
+on: push
+permissions:
+  contents: read
+jobs:
+  main:
+    name: Run linters and tests
+    runs-on: ubuntu-22.04
+    steps:
+      - name: Checkout repo
+        uses: actions/checkout@v4
+
+      - name: Setup system dependencies
+        run: |
+          packages=(
+            # List each package on a separate line.
+          )
+          sudo apt-get update
+          sudo apt-get install --yes "${packages[@]}"
+
+      - name: Setup R
+        uses: r-lib/actions/setup-r@v2
+        with:
+          r-version: renv
+
+      - name: Setup R dependencies
+        uses: r-lib/actions/setup-renv@v2
+
+      - name: Setup Node
+        uses: actions/setup-node@v3
+        with:
+          node-version: 20
+
+      - name: Lint R
+        if: always()
+        shell: Rscript {0}
+        run: rhino::lint_r()
+
+      - name: Lint JavaScript
+        if: always()
+        shell: Rscript {0}
+        run: rhino::lint_js()
+
+      - name: Lint Sass
+        if: always()
+        shell: Rscript {0}
+        run: rhino::lint_sass()
+
+      - name: Build JavaScript
+        if: always()
+        shell: Rscript {0}
+        run: rhino::build_js()
+
+      - name: Build Sass
+        if: always()
+        shell: Rscript {0}
+        run: rhino::build_sass()
+
+      - name: Run R unit tests
+        if: always()
+        shell: Rscript {0}
+        run: rhino::test_r()
+
+      - name: Run Cypress end-to-end tests
+        if: always()
+        uses: cypress-io/github-action@v6
+        with:
+          working-directory: .rhino # Created by earlier commands which use Node.js
+          start: npm run run-app
+          project: ../tests
+          wait-on: 'http://localhost:3333/'
+          wait-on-timeout: 60

.lintr

@@ -0,0 +1,10 @@
+linters:
+  linters_with_defaults(
+    line_length_linter = line_length_linter(100),
+    box_alphabetical_calls_linter = rhino::box_alphabetical_calls_linter(),
+    box_func_import_count_linter = rhino::box_func_import_count_linter(),
+    box_separate_calls_linter = rhino::box_separate_calls_linter(),
+    box_trailing_commas_linter = rhino::box_trailing_commas_linter(),
+    box_universal_import_linter = rhino::box_universal_import_linter(),
+    object_usage_linter = NULL  # Does not work with `box::use()`.
+  )

.renvignore

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

.rscignore

@@ -0,0 +1,7 @@
+.github
+.lintr
+.renvignore
+.Renviron
+.rhino
+.rscignore
+tests

app.R

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

app/js/index.js

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

app/logic/__init__.R

@@ -0,0 +1,25 @@
+box::use(
+  shiny[bootstrapPage, div, moduleServer, NS, renderUI, tags, uiOutput],
+)
+
+#' @export
+ui <- function(id) {
+  ns <- NS(id)
+  bootstrapPage(
+    uiOutput(ns("message"))
+  )
+}
+
+#' @export
+server <- function(id) {
+  moduleServer(id, function(input, output, session) {
+    output$message <- renderUI({
+      div(
+        style = "display: flex; justify-content: center; align-items: center; height: 100vh;",
+        tags$h1(
+          tags$a("Check out Rhino docs!", href = "https://appsilon.github.io/rhino/")
+        )
+      )
+    })
+  })
+}

app/main.R

@@ -0,0 +1,2 @@
+# View: Shiny modules and related code.
+# https://go.appsilon.com/rhino-project-structure

app/static/favicon.ico

@@ -0,0 +1,3 @@
+default:
+  rhino_log_level: !expr Sys.getenv("RHINO_LOG_LEVEL", "INFO")
+  rhino_log_file: !expr Sys.getenv("RHINO_LOG_FILE", NA)

app/styles/main.scss

@@ -0,0 +1,2 @@
+# This file allows packrat (used by rsconnect during deployment) to pick up dependencies.
+library(rhino)