update

README.Rmd

@@ -20,7 +20,7 @@ knitr::opts_chunk$set(
 
 `TextAnalysisR` provides a supporting workflow for text mining analysis. The web app incorporates [quanteda](https://github.com/quanteda/quanteda) (text preprocessing), [stm](https://github.com/bstewart/stm) (structural topic modeling), and [ggraph](https://github.com/thomasp85/ggraph) as well as [widyr](https://github.com/juliasilge/widyr) (network analysis). [tidytext](https://github.com/cran/tidytext) was implemented to tidy non-tidy format objects.
 
-## Installation
+## Installation:
 
 The development version from [GitHub](https://github.com/mshin77/TextAnalysisR) with:
 
@@ -48,6 +48,6 @@ TextAnalysisR.app()
 
 - Shin, M. (2023). *TextAnalysisR: Analyze text data* [Web application]. https://www.textanalysisr.org
 
-## Reference 
+## Reference: 
 
 - Shin, M., Ok, M. W., Choo, S., Hossain, G., Bryant, D. P., & Kang, E. (2023). A content analysis of research on technology use for teaching mathematics to students with disabilities: word networks and topic modeling. *International Journal of STEM Education, 10*(1), 1-23. https://doi.org/10.1186/s40594-023-00414-x

README.md

@@ -13,7 +13,7 @@ The web app incorporates
 [tidytext](https://github.com/cran/tidytext) was implemented to tidy
 non-tidy format objects.
 
-## Installation
+## Installation:
 
 The development version from
 [GitHub](https://github.com/mshin77/TextAnalysisR) with:
@@ -39,7 +39,7 @@ Launch and browser the TextAnalysisR.app on the local computer:
 -   Shin, M. (2023). *TextAnalysisR: Analyze text data* \[Web
     application\]. <https://www.textanalysisr.org>
 
-## Reference
+## Reference:
 
 -   Shin, M., Ok, M. W., Choo, S., Hossain, G., Bryant, D. P., &
     Kang, E. (2023). A content analysis of research on technology use

_pkgdown.yml

@@ -1,4 +1,4 @@
-url: https://mshin77.github.io/TextAnalysisR/
+url: ~
 template:
   bootstrap: 5
 

inst/TextAnalysisR.app/markdown/README.md

@@ -13,7 +13,7 @@ The web app incorporates
 [tidytext](https://github.com/cran/tidytext) was implemented to tidy
 non-tidy format objects.
 
-## Installation
+## Installation:
 
 The development version from
 [GitHub](https://github.com/mshin77/TextAnalysisR) with:
@@ -39,7 +39,7 @@ Launch and browser the TextAnalysisR.app on the local computer:
 -   Shin, M. (2023). *TextAnalysisR: Analyze text data* \[Web
     application\]. <https://www.textanalysisr.org>
 
-## Reference
+## Reference:
 
 -   Shin, M., Ok, M. W., Choo, S., Hossain, G., Bryant, D. P., &
     Kang, E. (2023). A content analysis of research on technology use

inst/TextAnalysisR.app/server.R

@@ -1,28 +1,22 @@
 
-
 suppressPackageStartupMessages({
-    library(dplyr)
-    library(ggplot2)
-    library(quanteda)
-    library(shiny)
-    library(stm)
-    library(tidyr)
-    library(tidytext)
-    library(ggraph)
-    library(widyr)
-    library(markdown)
+  library(dplyr)
+  library(ggplot2)
+  library(quanteda)
+  library(shiny)
+  library(stm)
+  library(tidyr)
+  library(tidytext)
+  library(ggraph)
+  library(widyr)
+  library(markdown)
+  library(TextAnalysisR)
 })
 
-load("source/dictionary_list_1.rda")
-load("source/dictionary_list_2.rda")
-load("source/SpecialEduTech.rda")
-load("source/stopwords_list.rda")
-source("source/text_mining_functions.R")
+Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")
 
 server <- shinyServer(function(input, output, session) {
-
-  Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8")
-
+
     observe({
         if (input$dataset_choice == "SpecialEduTech") {
             shinyjs::disable("file")
@@ -48,7 +42,6 @@ server <- shinyServer(function(input, output, session) {
         return(data)
     })
 
-
     output$data_table <-
         DT::renderDataTable(mydata(), rownames = FALSE)