shiny app

stla · Apr 24, 2024 · 5ceadf4 · 5ceadf4
1 parent 60b6df6
commit 5ceadf4
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 6 deletions.
diff --git a/R/grepInFiles.R b/R/grepInFiles.R
@@ -103,12 +103,12 @@ grepInFiles <- function(
       if(maxCount == 1L) {
         message(
           "Returning only one result ",
-          "(reached supplied maximum number of results)."
+          "(reached the supplied maximum number of results)."
         )
       } else {
         message(
           sprintf("Returning only %d results ", maxCount),
-          "(reached supplied maximum number of results)."
+          "(reached the supplied maximum number of results)."
         )
       }
     }

diff --git a/inst/shinyApp/ui.R b/inst/shinyApp/ui.R
@@ -23,18 +23,21 @@ shinyUI(fluidPage(
       ),
       br(),
       smallInput(textInput(
-        "ext", "Extension:",
+        "ext", "File extension:",
         value = "R"
       )),
       textInput(
-        "pattern", "Pattern:"
+        "pattern", "Pattern to search:"
       ),
       smallInput(numericInput(
         "depth", "Depth; blank for unlimited:",
         value = 1, min = 0, step = 1
       )),
       actionButton(
-        "run", "Find",
+        "run",
+        tags$span(
+          "Find in files", class = "mylabel"
+        ),
         class = "btn-danger btn-block"
       ),
       fluidRow(
@@ -52,7 +55,7 @@ shinyUI(fluidPage(
         )
       ),
       smallInput(numericInput(
-        "maxCount", "Maximal number of results; blank for unlimited:",
+        "maxCount", "Maximum number of results; blank for unlimited:",
         value = 100, min = 1, step = 50
       ))
     ),

diff --git a/inst/shinyApp/www/shinyFIF.css b/inst/shinyApp/www/shinyFIF.css
@@ -3,6 +3,16 @@ a.list-group-item > h4 {
   word-break: break-all;
 }
 
+.mylabel {
+  font-style: italic;
+  font-weight: bold;
+}
+
+#run {
+  border-width: 2px;
+  border-color: darkred;
+}
+
 #wd {
   font-size: 12px;
   font-weight: bold;