From 21d690cbfd3ac1204983d12c1fe959d4292fa210 Mon Sep 17 00:00:00 2001
From: Ross Armstrong <52817125+rossarmstrong@users.noreply.github.com>
Date: Thu, 2 Feb 2023 21:24:09 +1100
Subject: [PATCH] Initial commit

---
 R/fct_get_filename.R      | 2 +-
 R/fct_get_images.R        | 2 +-
 R/fct_get_url.R           | 2 +-
 R/fct_set_apikey.R        | 2 +-
 R/mod_create_image.R      | 6 +++---
 R/mod_input_apikey.R      | 6 +++---
 R/mod_show_gallery.R      | 6 +++---
 R/mod_show_instructions.R | 6 +++---
 8 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/R/fct_get_filename.R b/R/fct_get_filename.R
index f5b8e07..aa351c9 100644
--- a/R/fct_get_filename.R
+++ b/R/fct_get_filename.R
@@ -5,7 +5,7 @@
 #' @return The return value, if any, from executing the function.
 #'
 #' @noRd
-get_filename <- function(url){
+get_filename <- function(url) {
   pattern <- "img-.*?\\.png"
   m <- gregexpr(pattern, url)
   regmatches(url, m)[[1]]
diff --git a/R/fct_get_images.R b/R/fct_get_images.R
index 6b545a6..e2420c9 100644
--- a/R/fct_get_images.R
+++ b/R/fct_get_images.R
@@ -5,7 +5,7 @@
 #' @return The return value, if any, from executing the function.
 #'
 #' @noRd
-get_images <- function(){
+get_images <- function() {
   images <- list.files(path="inst/app/www", pattern=".png", all.files=FALSE, full.names=TRUE)
   lapply(images,
          function(x) {
diff --git a/R/fct_get_url.R b/R/fct_get_url.R
index 847ba7a..515047a 100644
--- a/R/fct_get_url.R
+++ b/R/fct_get_url.R
@@ -5,7 +5,7 @@
 #' @return The return value, if any, from executing the function.
 #'
 #' @noRd
-get_url <- function(prompt, size){
+get_url <- function(prompt, size) {
   openai::create_image(prompt = prompt,
                        n = 1,
                        size = size,
diff --git a/R/fct_set_apikey.R b/R/fct_set_apikey.R
index 7368305..d7f87b3 100644
--- a/R/fct_set_apikey.R
+++ b/R/fct_set_apikey.R
@@ -5,7 +5,7 @@
 #' @return The return value, if any, from executing the function.
 #'
 #' @noRd
-set_apikey <- function(apikey){
+set_apikey <- function(apikey) {
   api_string <- paste("OPENAI_API_KEY=",apikey, sep = "")
   fileConn<-file(".Renviron")
   writeLines(api_string, fileConn)
diff --git a/R/mod_create_image.R b/R/mod_create_image.R
index 1242579..000419a 100644
--- a/R/mod_create_image.R
+++ b/R/mod_create_image.R
@@ -7,7 +7,7 @@
 #' @noRd
 #'
 #' @importFrom shiny NS tagList
-mod_create_image_ui <- function(id){
+mod_create_image_ui <- function(id) {
   ns <- NS(id)
   tagList(
 
@@ -25,8 +25,8 @@ mod_create_image_ui <- function(id){
 #' create_image Server Functions
 #'
 #' @noRd
-mod_create_image_server <- function(id){
-  moduleServer(id, function(input, output, session){
+mod_create_image_server <- function(id) {
+  moduleServer(id, function(input, output, session) {
     ns <- session$ns
 
     ## START - MY CODE
diff --git a/R/mod_input_apikey.R b/R/mod_input_apikey.R
index 1394e1b..76f59e3 100644
--- a/R/mod_input_apikey.R
+++ b/R/mod_input_apikey.R
@@ -7,7 +7,7 @@
 #' @noRd
 #'
 #' @importFrom shiny NS tagList
-mod_input_apikey_ui <- function(id){
+mod_input_apikey_ui <- function(id) {
   ns <- NS(id)
   tagList(
 
@@ -24,8 +24,8 @@ mod_input_apikey_ui <- function(id){
 #' input_apikey Server Functions
 #'
 #' @noRd
-mod_input_apikey_server <- function(id){
-  moduleServer(id, function(input, output, session){
+mod_input_apikey_server <- function(id) {
+  moduleServer(id, function(input, output, session) {
     ns <- session$ns
 
     ## START - MY CODE
diff --git a/R/mod_show_gallery.R b/R/mod_show_gallery.R
index a1fe720..9950fe3 100644
--- a/R/mod_show_gallery.R
+++ b/R/mod_show_gallery.R
@@ -7,7 +7,7 @@
 #' @noRd
 #'
 #' @importFrom shiny NS tagList
-mod_show_gallery_ui <- function(id){
+mod_show_gallery_ui <- function(id) {
   ns <- NS(id)
   tagList(
 
@@ -20,8 +20,8 @@ mod_show_gallery_ui <- function(id){
 #' show_gallery Server Functions
 #'
 #' @noRd
-mod_show_gallery_server <- function(id){
-  moduleServer(id, function(input, output, session){
+mod_show_gallery_server <- function(id) {
+  moduleServer(id, function(input, output, session) {
     ns <- session$ns
 
     ## START - MY CODE
diff --git a/R/mod_show_instructions.R b/R/mod_show_instructions.R
index aea6842..5fae5fa 100644
--- a/R/mod_show_instructions.R
+++ b/R/mod_show_instructions.R
@@ -7,7 +7,7 @@
 #' @noRd
 #'
 #' @importFrom shiny NS tagList
-mod_show_instructions_ui <- function(id){
+mod_show_instructions_ui <- function(id) {
   ns <- NS(id)
   tagList(
 
@@ -43,8 +43,8 @@ mod_show_instructions_ui <- function(id){
 #' show_instructions Server Functions
 #'
 #' @noRd
-mod_show_instructions_server <- function(id){
-  moduleServer(id, function(input, output, session){
+mod_show_instructions_server <- function(id) {
+  moduleServer(id, function(input, output, session) {
     ns <- session$ns
 
     ## START - MY CODE