R Shiny for loop -

-

i have problem r shiny code. don´t know how create double loop in shiny values typed in user. says: "error in <-: incompatible types (from closure double) in subassignment type fix" btw: shiny right package me when want create app user inputs? 

shinyserver( function(input, output){   sum1 <- reactive(input$sum1) weight1 <- 0.7 weight2 <- 1-weight1  asset1 <- reactive({sum1()*weight1})  asset2 <- reactive({sum1()*weight2})    counter1 <-  reactive(input$counter1) counter2 <- reactive(input$counter2)   (j in 1:counter1) {   start <- reactive(sum1())   (i in 1:counter2) {     start <- reactive({asset1()*asset2*rnorm(1, mean <- 0, sd <- 1)})     value1[j] <- start }     result1 <- quantile(value1, c(0.01))    output$result1 <- value1   }   )    library(shiny)  shinyui(fluidpage(  titlepanel(title = "simulation"), sidebarlayout( sidebarpanel(("data"),            numericinput("sum", "sum:", 0, min=0, max=1000000),            numericinput("counter1", "counter1", 0, min=0, max=1000),            numericinput("counter2", "counter2", 0, min=0, max=1000),             submitbutton("submit")),  mainpanel(("results:"),          textoutput("result1"),              )   )  ))

thank help!

your code had few problems: commas, unclosed brackets.. think missing bracket @ shinyserver reason why server wasn't responding user.

another thing passed inputs reactives. can use input values directly. , @user3949008 said, don't know if can define reactive in loop. here 1 possible code:

server<-shinyserver(   function(input, output) {     weight1 <- 0.7      weight2 <- 1 - weight1      asset1 <- reactive({ input$sum * weight1 })     asset2 <- reactive({ input$sum * weight2 })      output$result <- rendertext({       (j in 1:input$counter1) {         start <- input$sum         (i in 1:input$counter2) {           start <- asset1() * asset2() * rnorm(1, mean=0, sd=1)           value1 <- start         }         result1 <- quantile(value1, c(0.01))         outputresult1 <- value1       }       paste("results:", outputresult1)     })   } )  library(shiny) ui <- shinyui(   fluidpage(     titlepanel(title = "simulation"),     sidebarlayout(       sidebarpanel(         "data",         numericinput("sum", "sum:", 0, min=0, max=1000000),         numericinput("counter1", "counter1:", 0, min=0, max=1000),         numericinput("counter2", "counter2:", 0, min=0, max=1000)       ),       mainpanel(         textoutput("result")       )     )   ) )  shinyapp(ui,server)

Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5);
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:
Read more

Python Pig Latin Translator -

-
so have been working on @ codecademy.com while trying learn python. don't know if blind , can't see why won't work or what. here's code won't let me use. function print variable if had typed in , print "empty" if didn't type anything. print "welcome english pig latin translator!" original = raw_input("what's name?") if len(original) > 0 print original else print "empty" if len(original) > 0 else the above lines contains syntax errors. try: if len(original) > 0: else: note added colons, ( : ).
Read more