Create test_style_file.R

R/test_style_file.R

@@ -0,0 +1,12 @@
+# Test file to check the style action works
+
+obj <- "name"
+
+#' Not a real function
+#'
+#' @description
+#' Just a test function - used to test the GH actions only
+#' @param var any value
+fun <- function(var = 1) {
+  return(var)
+}