r - shiny radio buttons broken -


radio buttons broken me in shiny-0.12.1/mime-0.3. following code works older version shiny-0.11.1/mime-0.2 not newer version (input$dist , input$n return empty strings). example below based on http://shiny.rstudio.com/articles/html-ui.html select menu modified radio buttons.

index.html

<html> <head>  <script src="shared/jquery.js" type="text/javascript"></script>  <script src="shared/shiny.js" type="text/javascript"></script>  <link rel="stylesheet" type="text/css" href="shared/shiny.css"/> </head> <body>  <h1>html ui</h1>   <p>     <label>distribution type:</label><br />    <input type="radio" name="dist" value="norm" checked="checked" />normal<br>    <input type="radio" name="dist" value="unif" />uniform<br>    <input type="radio" name="dist" value="lnor" />log-normal<br>    <input type="radio" name="dist" value="exp" />exponential<br>  </p>   <p>    <label>number of observations:</label><br />    <input type="number" name="n" value="500" min="1" max="1000" />  </p>   <pre id="summary" class="shiny-text-output"></pre>   <div id="plot" class="shiny-plot-output"       style="width: 100%; height: 400px"></div>   <div id="table" class="shiny-html-output"></div> </body> </html>

server.r

library(shiny) # define server logic random distribution application shinyserver(function(input, output) {  # reactive expression generate requested distribution.  # called whenever inputs change. output renderers defined  # below used value computed expression  data <- reactive({      dist <- switch(input$dist,                                    norm = rnorm,                                    unif = runif,                                    lnorm = rlnorm,                                    exp = rexp,                                    rnorm)      dist(input$n)    })  # generate plot of data. uses inputs build  # plot label. note dependencies on both inputs ,  # data reactive expression both tracked, , expressions  # called in sequence implied dependency graph  output$plot <- renderplot({      dist <- input$dist      n <- input$n       hist(data(),                main=paste('r', dist, '(', n, ')', sep=''))    })  # generate summary of data  output$summary <- renderprint({      summary(data())    })  # generate html table view of data  output$table <- rendertable({      data.frame(x=data())    }) })

just add in 1 more div

  <div id="dist" class="form-group shiny-input-radiogroup shiny-input-container"> <label>distribution type:</label><br /> <input type="radio" name="dist" value="norm" checked="checked" />normal<br> <input type="radio" name="dist" value="unif" />uniform<br> <input type="radio" name="dist" value="lnor" />log-normal<br> <input type="radio" name="dist" value="exp" />exponential<br>   </div>

-

Comments

Post a Comment

Popular posts from this blog

OpenCV OpenCL: Convert Mat to Bitmap in JNI Layer for Android -

there several posts converting mat bitmap using utils.mattobitmap() function. i'm assuming function can called in java layer after importing utils class. i want transfer data memory address pointed uint32_t* bmpcontent; in code below. jniexport void jnicall java_com_nod_nodcv_nodcvactivity_runfilter( jnienv *env, jclass clazz, jobject outbmp, jbytearray indata, jint width, jint height, jint choice, jint filter) { int outsz = width*height; int insz = outsz + outsz/2; androidbitmapinfo bmpinfo; if (androidbitmap_getinfo(env, outbmp, &bmpinfo) < 0) { throwjavaexception(env,"gaussianblur","error retrieving bitmap meta data"); return; } if (bmpinfo.format != android_bitmap_format_rgba_8888) { throwjavaexception(env,"gaussianblur","expecting rgba_8888 format"); return; } uint32_t* bmpcontent; if (androidbitmap_lockpixels(env, outbmp,(void**)&bmpcontent)...
Read more

android - org.xmlpull.v1.XmlPullParserException: expected: START_TAG {http://schemas.xmlsoap.org/soap/envelope/}Envelope -

i trying hit soap api in application login purpose , getting above mentioned error , can 1 tell me going wrong , first time soap apis. here code hit soap :- vector<object> args = new vector<object>(); hashtable<string, object> hashtable = new hashtable<string, object>(); hashtable.put("email", "mss.siddhart28@gmail.com"); hashtable.put("password", "siddharth"); args.add(hashtable); soapserializationenvelope envelope = new soapserializationenvelope( soapenvelope.ver11); envelope.dotnet = true; envelope.xsd = soapserializationenvelope.xsd; envelope.enc = soapserializationenvelope.enc; (new marshalhashtable()).register(envelope); httptransportse androidhttptransport = new httptransportse( "http://tempuri.org/", 15000); androidhttptransport.debug = true; string result = ""; try { soapobject request = new soapobject("http:...
Read more

python - How to remove the Xframe Options header in django? -

i have made page has iframe . inside iframe want show multiple different links article facebook, or news, or youtube video or other possible url. but, due xframe header, unable so. referred following link: https://docs.djangoproject.com/en/1.8/ref/clickjacking/ , django xframeoptionsmiddleware (x-frame-options) - allow iframe client ip but didn't help. my settings.py file's middleware_classes is: middleware_classes = ( 'django.contrib.sessions.middleware.sessionmiddleware', 'django.middleware.common.commonmiddleware', 'django.middleware.csrf.csrfviewmiddleware', 'django.contrib.auth.middleware.authenticationmiddleware', 'django.contrib.auth.middleware.sessionauthenticationmiddleware', 'django.contrib.messages.middleware.messagemiddleware', 'django.middleware.clickjacking.xframeoptionsmiddleware', ) from http://django-secure.readthedocs.org/en/latest/middleware.html , found using ...
Read more