shiny - How to display flowchart created using R Diagram library in an Rshiny app? -


i trying display flowchart using r diagram library in rshiny app similar 1 shown below. tried plotoutput() not able display flowchart in rshiny app tab. can please enlighten me on missing here?

library(diagram) library(shape)      par(mar = c(1, 1, 1, 1))     openplotmat()     elpos <- coordinates (c(1, 1, 2, 4))     fromto <- matrix(ncol = 2, byrow = true, data = c(1, 2, 2, 3, 2, 4, 4, 7, 4, 8,3,5,3,6))     nr <- nrow(fromto)     arrpos <- matrix(ncol = 2, nrow = nr)     (i in 1:nr)       arrpos[i, ] <- straightarrow (to = elpos[fromto[i, 2], ],                                       = elpos[fromto[i, 1], ], lwd = 2, arr.pos = 0.6, arr.length = 0.5)       textellipse(elpos[1,], 0.1, lab = "start", box.col = "green",                   shadow.col = "darkgreen", shadow.size = 0.005, cex = 1.5)       textrect (elpos[2,], 0.15, 0.05,lab = "found term?", box.col = "grey",                   shadow.col = "darkblue", shadow.size = 0.005, cex = 1.5)       textrect (elpos[4,], 0.15, 0.05,lab = "related?", box.col = "grey",                   shadow.col = "darkblue", shadow.size = 0.005, cex = 1.5)       textellipse(elpos[3,], 0.1, 0.1, lab = c("other","term"), box.col = "orange",                     shadow.col = "red", shadow.size = 0.005, cex = 1.5)       textellipse(elpos[7,], 0.1, 0.1, lab = c("make","a link"),box.col = "orange",                     shadow.col = "red", shadow.size = 0.005, cex = 1.5)       textellipse(elpos[8,], 0.1, 0.1, lab = c("new","article"),box.col = "orange",                     shadow.col = "red", shadow.size = 0.005, cex = 1.5)       textellipse(elpos[5,], 0.1, 0.1, lab = c("make","a link"),box.col = "orange",                   shadow.col = "red", shadow.size = 0.005, cex = 1.5)       textellipse(elpos[6,], 0.1, 0.1, lab = c("new","article"),box.col = "orange",                   shadow.col = "red", shadow.size = 0.005, cex = 1.5)     #      dd <- c(0.0, 0.025)       text(arrpos[2, 1] + 0.05, arrpos[2, 2], "yes")       text(arrpos[3, 1] - 0.05, arrpos[3, 2], "no")       text(arrpos[4, 1] + 0.05, arrpos[4, 2] + 0.05, "yes")       text(arrpos[5, 1] - 0.05, arrpos[5, 2] + 0.05, "no")     #

did use plotoutput in ui, , renderplot in server? tried following, , works me.

#

# shiny web application. can run application clicking # 'run app' button above. # # find out more building applications shiny here: # #    http://shiny.rstudio.com/ #  library(shiny) library(diagram) library(shape)  # define ui application draws histogram ui <- fluidpage(   # show plot of generated distribution   mainpanel(     plotoutput("testplot")   ) )  # define server logic required draw histogram server <- function(input, output) {   #   output$testplot <- renderplot({     par(mar = c(1, 1, 1, 1))     openplotmat()     elpos <- coordinates (c(1, 1, 2, 4))     fromto <- matrix(ncol = 2, byrow = true, data = c(1, 2, 2, 3, 2, 4, 4, 7, 4, 8,3,5,3,6))     nr <- nrow(fromto)     arrpos <- matrix(ncol = 2, nrow = nr)     (i in 1:nr)       arrpos[i, ] <- straightarrow (to = elpos[fromto[i, 2], ],                                     = elpos[fromto[i, 1], ], lwd = 2, arr.pos = 0.6, arr.length = 0.5)     textellipse(elpos[1,], 0.1, lab = "start", box.col = "green",                 shadow.col = "darkgreen", shadow.size = 0.005, cex = 1.5)     textrect (elpos[2,], 0.15, 0.05,lab = "found term?", box.col = "grey",               shadow.col = "darkblue", shadow.size = 0.005, cex = 1.5)     textrect (elpos[4,], 0.15, 0.05,lab = "related?", box.col = "grey",               shadow.col = "darkblue", shadow.size = 0.005, cex = 1.5)     textellipse(elpos[3,], 0.1, 0.1, lab = c("other","term"), box.col = "orange",                 shadow.col = "red", shadow.size = 0.005, cex = 1.5)     textellipse(elpos[7,], 0.1, 0.1, lab = c("make","a link"),box.col = "orange",                 shadow.col = "red", shadow.size = 0.005, cex = 1.5)     textellipse(elpos[8,], 0.1, 0.1, lab = c("new","article"),box.col = "orange",                 shadow.col = "red", shadow.size = 0.005, cex = 1.5)     textellipse(elpos[5,], 0.1, 0.1, lab = c("make","a link"),box.col = "orange",                 shadow.col = "red", shadow.size = 0.005, cex = 1.5)     textellipse(elpos[6,], 0.1, 0.1, lab = c("new","article"),box.col = "orange",                 shadow.col = "red", shadow.size = 0.005, cex = 1.5)     #     dd <- c(0.0, 0.025)     text(arrpos[2, 1] + 0.05, arrpos[2, 2], "yes")     text(arrpos[3, 1] - 0.05, arrpos[3, 2], "no")     text(arrpos[4, 1] + 0.05, arrpos[4, 2] + 0.05, "yes")     text(arrpos[5, 1] - 0.05, arrpos[5, 2] + 0.05, "no")   }) }  # run application  shinyapp(ui = ui, server = server)

Comments

Post a Comment

Popular posts from this blog

ubuntu - PHP script to find files of certain extensions in a directory, returns populated array when run in browser, but empty array when run from terminal -

i running os ububtu 16.04. ultimate goal able run php script cron job every minute. here php script located @ /var/www/html/tests/test/index.php : <?php $directorypath = $_server['document_root']."/tests/test/data/"; echo "directorypath: $directorypath<br><br>";//check $imagefilepathsarray = glob($directorypath . "*.{png,gif}", glob_brace); echo "<br><br>imagefilepathsarray: "; print_r($imagefilepathsarray);//check ?> when open php script in browser visiting url my-ip-address/tests/test/index.php , get: directorypath: /var/www/html/tests/test/data/ imagefilepathsarray:array( [0] => /var/www/html/tests/test/data/pic.png [1] => /var/www/html/tests/test/data/pic.gif ) before writing cron job in crontab file, need check if can run anywhere using terminal . opened ubuntu terminal @ /home/ location, , executed in terminal: sudo php /var/www/html/tests/test/index.php i got following out...
Read more

php - How can i create a user dashboard -

today have questions you, want create user dashboard site, include (obviously), users data, example -email -username -and others stuff how can information, , print them in html page? if can, how can these information via php sessions? shuld use session? example, if user login, , start new session ( session_start() ), how can data print in dashboard? should use php "project"? in advice, have day , thank time!
Read more

javascript - How to detect toggling of the fullscreen-toolbar in jQuery Mobile? -

i have jquery mobile page fixed full-screen toolbar, data-tap-toggle enabled. straight under toolbar have positioned banner should slide upwards when toolbar hiding , slide downward when toolbar showing. jquery mobile toggles toolbar applying , removing ui-fixed-hidden class - sadly, can't find in documentation of toolbar widget toggle , hide or show event that. how can detect when toolbar toggled, reposition banner? .banner { position: fixed; background-color: darkseagreen; top: 46px; min-height: 48px; width: 100%; text-align: center; line-height: 48px; } <!doctype html> <html> <head> <meta charset="utf-8"> <meta name="viewport" content="width=device-width, initial-scale=1, user-scalable=no"> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"> <script src="https://code.jquery.com/jquery-1....
Read more