app update

mshin77 · Feb 5, 2024 · 700a23e · 700a23e
1 parent bafbfca
commit 700a23e
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 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)
@@ -331,7 +331,7 @@ server <- shinyServer(function(input, output, session) {
 
 
     # 2. Step 2: Run a model and display highest word probabilities for each labeled topic
-    
+
     output$K_number_uiOutput <- renderUI({
         sliderInput(
             "K_number",
@@ -445,7 +445,7 @@ server <- shinyServer(function(input, output, session) {
     # Display highest word probabilities for each topic
 
     # Tidy the word-topic combinations
-    
+
     beta_td <- reactive({
         tidytext::tidy(stm_K_number(), document_names = rownames(dfm_outcome()))
     })
@@ -486,9 +486,9 @@ server <- shinyServer(function(input, output, session) {
             topic_term_plot$topic =
                 factor(topic_term_plot$topic, levels = topic_term_plot$topic %>% unique())
         }
-        
+
         topic_term_plot$tt = NULL
-        
+
         topic_term_plot %>%
             ggplot(aes(term, beta, fill = topic)) +
             geom_col(show.legend = FALSE, alpha = 0.8) +

diff --git a/inst/TextAnalysisR.app/ui.R b/inst/TextAnalysisR.app/ui.R
@@ -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(