user interface - Using input to create UI in Shiny R -


i building app in shiny (r). @ beginning user can upload file use (i doing sort data analysis). goal able use files without knowing how many columns file has, , how data looks like.

so have select columns number, , made small preview app select columns , display them next original:

library(shiny)  ui <-fluidpage(   headerpanel("select data"),   sidebarlayout( sidebarpanel(   fileinput("uploadfile", "xlsx file"),    textinput('vec1', 'choose training columns', "3,4"),   actionbutton("choose","choose data") ), mainpanel(   fluidrow(     column(6,tableoutput("data_raw")),     column(6,tableoutput("data_selected"))   )   )  )  )   server <- function(input, output) {      output$data_raw <- rendertable({      infile <- input$uploadfile     if (is.null(infile))      return(null)       data_raw <<-read.xlsx(infile$datapath, 1)   })    observe({     if(input$choose>0){      selectvec <- as.numeric(unlist(strsplit(input$vec1,",")))       output$data_selected <- rendertable(       data_selected<- data_raw[,selectvec]      )     }    })   }   shinyapp(ui,server)

now able select columns use on basis of header.

it feels unnatural: changing app while running.. in reactive environment.. why not?

question: how can change ui while allready running, values originating input?

kind regards, pieter

to make me feel not dirty answering this...i didn't debug or handle reactives properly. here ya go. need respond file uploaded on server side, extract column names, , append thosed choices in select input passes down table function column filter. 

 upload_app <- function(){   library(shiny)    ui <- bootstrappage(     tags$div(class = "container",              column(3,                     fluidrow(                       fileinput(inputid = 'user_data',                                 label = 'upload data (csv)',                                 multiple = false,                                 accept =  c(                                   'text/csv',                                   'text/comma-separated-values',                                   'text/tab-separated-values',                                   'text/plain',                                   '.csv',                                   '.tsv'                                 ))                     ),                     fluidrow(                       uioutput('column_vars')                     )              ),              column(9,                     tableoutput('filtered_table'))     )   )    server <- function(session, input, output){      var_table <- reactive({       var_data <- input$user_data       read.csv(var_data$datapath, header = true,sep = ",", quote = '')     })      output$column_vars <- renderui({       if(!is.null(var_table())){       selectinput(inputid = 'cols',                   choices = colnames(var_table()),                   multiple = t,                   label = "choose columns")       }     })      output$filtered_table <- rendertable({        if(!is.null(var_table())){         if(length(input$cols)>0){           get_these <- input$cols           new_table <- var_table()[,c(get_these)]         }else {           new_table <- var_table()         }        }else {         new_table <- data.frame(data = 'waiting')       }        return(new_table)      })   }    shinyapp(ui, server)  }

enter image description here


-

Comments

Post a Comment

Popular posts from this blog

unity3d - Rotate an object to face an opposite direction -

i have object , b. when click on object b, rotates object b (a faces b). b doesn't face a. need following : when faces b, need face opposite direction. have code rotating @ b. how rotate face opposite direction after that? vector3 targetdirection = target - transform.position; float step = speed * time.deltatime; vector3 newdirection = vector3.rotatetowards (turretdome.transform.forward, targetdirection, step, 0.0f); turretdome.transform.rotation = quaternion.lookrotation (newdirection); you object facing object b, want inverse direction of object after that? objecta.transform.rotation = quaternion.inverse(objecta.transform.rotation) but lets assume example turretdome object a, (negate direction): turretdome.transform.rotation = quaternion.lookrotation (-newdirection); naturally, both of these snippets not show how smoothen rotation, seem know how use time.deltatime. just incase unsure, quaternion.lerp this
Read more

angular - Is it possible to get native element for formControl? -

i've got angular2 reactive form . created formcontrol s , assigned input fields by [formcontrol]=... . understand creates nativeelement <-> formcontrol link. my question: possible nativeelement formcontrol ? wanna myformcontrol.nativeelement.focus() i can share 1 terrible solution works me. in reactive forms can use either 1) formcontroldirective ts mycontrol = new formcontrol('') template <input type="text" [formcontrol]="mycontrol"> or 2) formcontrolname ts myform: formgroup; constructor(private fb: formbuilder) {} ngoninit() { this.myform = this.fb.group({ foo: '' }); } template <form [formgroup]="myform"> <input type="text" formcontrolname="foo"> </form> so these directives write patch like 1) formcontroldirective const originformcontrolngonchanges = formcontroldirective.prototype.ngonchanges; formcontroldirective.proto
Read more

javascript - Why jQuery Select box change event is now working? -

i working on product filters user select select box according his/her preference not getting selected value user in jquery. html code:- <select name="product_filter" id="product_filter"> <option value="price_low_first">price : low high</option> <option value="price_high_first">price : high low</option> <option value="latest">latest</option> <option value="popular">most popular</option> </select> jquery code: $(function () { $("#product_filter").change(function () { alert("hi") var selectedtext = $(this).find("option:selected").text(); var selectedvalue = $(this).val(); alert("selected text: " + selectedtext + " value: " + selectedvalue); }); }); hi believe code perfect. once please check jquery.min.js
Read more