fix errors

mshin77 · Feb 6, 2024 · a13deb6 · a13deb6
1 parent 36e7208
commit a13deb6
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/inst/TextAnalysisR.app/server.R b/inst/TextAnalysisR.app/server.R
@@ -15,15 +15,15 @@ suppressPackageStartupMessages({
 
 server <- shinyServer(function(input, output, session) {
     observe({
-        if (input$dataset_choice == "SpecialEduTech") {
+        if (input$dataset_choice == "Upload an Example Dataset") {
             shinyjs::disable("file")
         } else {
             shinyjs::enable("file")
         }
     })
 
     mydata <- reactive({
-        if (input$dataset_choice == "SpecialEduTech") {
+        if (input$dataset_choice == "Upload an Example Dataset") {
             data <- TextAnalysisR::SpecialEduTech
         } else {
             req(input$file)
@@ -337,7 +337,7 @@ server <- shinyServer(function(input, output, session) {
         sliderInput(
             "K_number",
             "Choose K (number of topics)",
-            value = 15,
+            value = 10,
             min = 0,
             max = 50
         )

diff --git a/inst/TextAnalysisR.app/ui.R b/inst/TextAnalysisR.app/ui.R
@@ -38,7 +38,7 @@ ui <- fluidPage(
         tabPanel("TextAnalysisR",
                  navlistPanel(
                    widths = c(3, 9),
-                   tabPanel("About", includeMarkdown("markdown/about.md"))
+                   tabPanel("About", includeMarkdown("markdown/README.md"))
                  )),
         tabPanel("Upload",
                  sidebarLayout(
@@ -48,7 +48,7 @@ ui <- fluidPage(
                              "dataset_choice",
                              "Upload a file or use the dataset",
                              selected = " ",
-                             choices = c(" ", "SpecialEduTech", "Upload Your File")
+                             choices = c(" ", "Upload an Example Dataset", "Upload Your File")
 
                          ),
                          fileInput(
@@ -168,9 +168,9 @@ ui <- fluidPage(
                         sliderInput(
                             "K_range_1",
                             "Range of topic numbers",
-                            value = c(5, 30),
+                            value = c(5, 20),
                             min = 0,
-                            max = 100
+                            max = 50
                         ),
                         selectizeInput(
                             "categorical_var",
@@ -487,9 +487,9 @@ ui <- fluidPage(
                              sliderInput(
                                  "co_occurence_number",
                                  "Minimum co-occurence numbers",
-                                 value = 50,
+                                 value = 5,
                                  min = 0,
-                                 max = 500
+                                 max = 100
                              ),
                              sliderInput(
                                  "correlation_value",