Merge pull request #4 from samuelbharti/dev

Add Lint workflow

.Rbuildignore

@@ -0,0 +1 @@
+^\.github$

.github/.gitignore

@@ -0,0 +1 @@
+*.html

.github/workflows/lint-project.yaml

@@ -0,0 +1,33 @@
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
+# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+    branches: [main, master]
+
+name: lint-project.yaml
+
+permissions: read-all
+
+jobs:
+  lint-project:
+    runs-on: ubuntu-latest
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          use-public-rspm: true
+
+      - name: Install lintr
+        run: install.packages("lintr")
+        shell: Rscript {0}
+
+      - name: Lint root directory
+        run: lintr::lint_dir()
+        shell: Rscript {0}
+        env:
+          LINTR_ERROR_ON_LINT: true

.lintr

@@ -0,0 +1,2 @@
+linters: linters_with_defaults() # see vignette("lintr")
+encoding: "UTF-8"

R/load_components.R

@@ -1,5 +1,4 @@
 # Load modules
-sapply(list.files('modules', full.names = TRUE), function(x) source(x))
+sapply(list.files("modules", full.names = TRUE), function(x) source(x))
 # Load user interface
-sapply(list.files('userInterface', full.names = TRUE), function(x) source(x))
-
+sapply(list.files("userInterface", full.names = TRUE), function(x) source(x))

dev/dev.R

@@ -1,3 +1,3 @@
-# Use this script to test code blocks for app dev. 
-# Make sure to add this "dev" directory 
+# Use this script to test code blocks for app dev.
+# Make sure to add this "dev" directory.
 # in your gitignore after template initialization.

global.R

@@ -1,7 +1,6 @@
 # Load libraries/ Source Files
 library(shiny)
- 
+
 # Load data/connections
- 
+
 # Preprocess small data
-

server.R

@@ -1,4 +1,4 @@
 # Shiny Server
 function(input, output, session) {
- 
+
 }

ui.R

@@ -1,5 +1,5 @@
 navbarPage(
-     'My app',
-     tabPanel('Home', home_page),
-     tabPanel('Other', other_page),
+  "My app",
+  tabPanel("Home", home_page),
+  tabPanel("Other", other_page),
 )

userInterface/home_ui.R

@@ -1,9 +1,9 @@
 home_page <- fluidPage(
-# Page title
-titlePanel('Home Page'),
-hr(),
-fluidRow(
-   column(6,h2('Column size 3')),
-   column(6,h2('Column size 3'))
- )
+  # Page title
+  titlePanel("Home Page"),
+  hr(),
+  fluidRow(
+    column(6, h2("Column size 6")),
+    column(6, h2("Column size 6"))
+  )
 )

userInterface/other_ui.R

@@ -1,9 +1,9 @@
 other_page <- fluidPage(
-# Page title
-titlePanel('Other Page'),
-hr(),
-fluidRow(
-   column(6,h2('Column size 3')),
-   column(6,h2('Column size 3'))
- )
+  # Page title
+  titlePanel("Other Page"),
+  hr(),
+  fluidRow(
+    column(6, h2("Column size 6")),
+    column(6, h2("Column size 6"))
+  )
 )