rstudio - The output Wordcloud does not update in Shiny -


i trying build shiny app reactive word cloud. of right now, generating static word cloud not change when select different input.

these packages using:

library(shiny) library(tm) library(wordcloud) library(snowballc) library(memoise)

ui.r

ui <- fluidpage(  # application title titlepanel("word cloud"), sidebarlayout(  # sidebar slider , selection inputs sidebarpanel( selectinput("selection", "choose agency:", choices = agencies), actionbutton("update", "change"), hr(), sliderinput("freq", "minimum frequency:", min = 1,  max = 50, value = 15), sliderinput("max", "maximum number of words:", min = 1,  max = 300,  value = 100)),  # show word cloud mainpanel( plotoutput("plot"))))

server.r

server <- function(input, output) {   # define reactive expression document term matrix   terms <- reactive({     input$update     # ...but not else      agencies <<- list("nasa" = "nasa", "dod" = "dod")      gettermmatrix <- function(agency) {       if(!(agency %in% agencies))         stop("unknown agency")        propcorpus <- corpus(vectorsource(x$proposal.title))       propcorpus <- tm_map(propcorpus, plaintextdocument)       mycorpus = corpus(vectorsource(propcorpus))       mycorpus = tm_map(mycorpus, content_transformer(tolower))       mycorpus = tm_map(mycorpus, removepunctuation)       mycorpus = tm_map(mycorpus, removenumbers)       mydtm = termdocumentmatrix(mycorpus, control = list(minwordlength = 1))       m = as.matrix(mydtm)       sort(rowsums(m), decreasing = true)     }         gettermmatrix(input$selection)   })    # make wordcloud drawing predictable during session   wordcloud_rep <- repeatable(wordcloud)    output$plot <- renderplot({     v <- terms()     wordcloud_rep(names(v), v, scale=c(4,0.5),                   min.freq = input$freq, max.words=input$max,                   colors=brewer.pal(8, "dark2"))   }) }

my data 2 columns 1 agency names , 1 description of different contracts.

thank help! figured out, wanted share final code.

first load data , packages:

 contract_data_df <- read.csv(file.choose(), header = true, stringsasfactors = false) contract_data_df$agency <- as.factor(contract_data_df$agency) attach(contract_data_df) library(shiny) library(tm) library(wordcloud) library(snowballc) library(memoise)

in dataset have 2 columns: agency (factors) , proposal.title (string). purpose of word cloud visualize words prominent in proposal titles associated multiple federal agencies.

setting user interface (ui):

 ui <- fluidpage(   titlepanel("word cloud"),   sidebarlayout(     sidebarpanel(       #selectinput("selection", "choose agency:", choices = list("dod"="dod", "nasa"="nasa")),       selectinput("selection", "choose agency:", choices = agency, selected = 1),       actionbutton("update", "change"),       hr(),       sliderinput("freq",                   "minimum frequency:",                   min = 1,  max = 50, value = 15),       sliderinput("max", "maximum number of words:", min = 1,  max = 300,  value = 100)),      mainpanel(       plotoutput("plot"))))

set server:

server <- function(input, output) {  terms <- reactive({ input$update agencies <<- list("dod"="dod", "nasa"="nasa") getcorpusmatrix <- function(agency){ text <- subset(contract_data_df, contract_data_df$agency == input$selection) contract_corpus <- corpus(vectorsource(text$proposal.title)) contract_corpus <- tm_map(contract_corpus, content_transformer(tolower)) contract_corpus <- tm_map(contract_corpus, removepunctuation) contract_corpus <- tm_map(contract_corpus, removewords, stopwords("english")) contract_corpus <- tm_map(contract_corpus, stripwhitespace) contract_corpus <- tm_map(contract_corpus, stemdocument)   contract_dtm <- termdocumentmatrix(contract_corpus) contract_dtm_df <- data.frame(as.matrix(contract_dtm)) sort(rowsums(contract_dtm_df), decreasing = true) }  getcorpusmatrix(input$update) })  wordcloud_rep <- repeatable(wordcloud) output$plot <- renderplot({ v <- terms() wordcloud_rep(names(v), v, scale=c(4,0.5), min.freq = input$freq, max.words=input$max, colors=brewer.pal(8, "dark2")) }) }

finally, launch app:

shinyapp(ui = ui, server = server)

Comments

Post a Comment

Popular posts from this blog

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more