Initial commit

analyticsinmotion · Feb 2, 2023 · 21d690c · 21d690c
1 parent 0367453
commit 21d690c
Show file tree

Hide file tree

Showing 8 changed files with 16 additions and 16 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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