R Shiny Download Handler Cant Read in other Output in the Server -

-

i trying use downloadhandler function in r shiny app , encounter erorr.

relevant bit of server.r: 

   shinyserver(function(input, output, process) {      output$week1day1<-dt::renderdatatable({       bench  <- input$bench.input       squat  <- input$squat.input       dl     <- input$dl.input        ex1    <- input$day1main       ex2    <- input$day1acc1       ex3    <- input$day1acc2       ex4    <- input$day1ass1       ex5    <- input$day1ass2        pr1    <- input$week1day1ex1pr/100       pr2    <- input$week1day1ex2pr/100       pr3    <- input$week1day1ex3pr/100       w4     <- input$week1day1ex4pr       w5     <- input$week1day1ex5pr        if(grepl("squat",ex1)){       w1 <- pr1*squat       }        if(grepl("bench",ex1)){         w1 <- pr1*bench       }        if(grepl("deadlift",ex1)){         w1 <- pr1*dl       }       ###       if(grepl("squat",ex2)){         w2 <- pr2*squat       }        if(grepl("bench",ex2)){         w2 <- pr2*bench       }        if(grepl("deadlift",ex2)){         w2 <- pr2*dl       }       ###       if(grepl("squat",ex3)){         w3 <- pr3*squat       }        if(grepl("bench",ex3)){         w3 <- pr3*bench       }        if(grepl("deadlift",ex3)){         w3 <- pr3*dl       }        table1<-   data.frame(exercise=c(ex1,ex2,ex3,ex4,ex5),                  sets=sets.week1,                  reps=reps.week1.day1,                  weight=c(w1,w2,w3,w4,w5))                  dt::datatable(table1,options = list(bfilter=0, bsort=0, bprocessing=0, bpaginate=0, binfo=0))      }) output$downloaddata <- downloadhandler(  filename <- paste("program", '.csv', sep=''),  content  <- function(file) {  write.csv(week1day1(), file)   } )  })

the relevant bit of ui.r:

fluidrow(downloadbutton('downloaddata', 'download'))

i following error:

could not find function "week1day1"

i appreciate or pointers in right direction!

minimal working example of server.r:

shinyserver(function(input, output, process) {  week1day1<- reactive({   bench  <- input$bench.input   squat  <- input$squat.input   dl     <- input$dl.input    ex1    <- input$day1main   ex2    <- input$day1acc1   ex3    <- input$day1acc2   ex4    <- input$day1ass1   ex5    <- input$day1ass2    pr1    <- input$week1day1ex1pr/100   pr2    <- input$week1day1ex2pr/100   pr3    <- input$week1day1ex3pr/100   w4     <- input$week1day1ex4pr   w5     <- input$week1day1ex5pr    if(grepl("squat",ex1)){   w1 <- pr1*squat   }    if(grepl("bench",ex1)){     w1 <- pr1*bench   }    if(grepl("deadlift",ex1)){     w1 <- pr1*dl   }   ###   if(grepl("squat",ex2)){     w2 <- pr2*squat   }    if(grepl("bench",ex2)){     w2 <- pr2*bench   }    if(grepl("deadlift",ex2)){     w2 <- pr2*dl   }   ###   if(grepl("squat",ex3)){     w3 <- pr3*squat   }    if(grepl("bench",ex3)){     w3 <- pr3*bench   }    if(grepl("deadlift",ex3)){     w3 <- pr3*dl   }    table1<-   data.frame(exercise=c(ex1,ex2,ex3,ex4,ex5),              sets=sets.week1,              reps=reps.week1.day1,              weight=c(w1,w2,w3,w4,w5))           # delete these line , add options part @ end of renderdatatable below           #   dt::datatable(table1,options = list(bfilter=0, bsort=0, bprocessing=0, bpaginate=0, binfo=0))  })    output$week1day1display<-dt::renderdatatable({   return(week1day1()) }, options = list(bfilter=0, bsort=0, bprocessing=0, bpaginate=0, binfo=0))   # options added  output$downloaddata <- downloadhandler(  filename <- paste("program", '.csv', sep=''),  content  <- function(file) {  write.csv(week1day1(), file)      # here had week1day1display() instead of week1day1()   } )  })

Comments

Post a Comment

Popular posts from this blog

ios - RestKit 0.20 — CoreData: error: Failed to call designated initializer on NSManagedObject class (again) -

-
this error has shown on many times, seems. prominent answer issue seems restkit 0.20 — coredata: error: failed call designated initializer on nsmanagedobject class however, solution posted doesn't work me. let's start beginning: i want upload file server. want parse response make sure uploaded. if not, try again later. model has boolean variable called nsnumber *senttoserver purpose (in coredata, bool saved nsnumber ) . because don't know whether sending going successful, save entity coredata model first before sending via restkit. when post request successful, server returns json string this: {"id":14,"created":true} notice that, of course, id not set on coredata model yet, both id , created new informations model. here's model: @interface recording : nsmanagedobject @property (nonatomic, retain) nsstring * audiofilepath; @property (nonatomic, retain) nsdate * createdat; @property (nonatomic, retain) nsstring * deviceid; @...
Read more

java - Digest auth with Spring Security using javaconfig -

-
so i'm trying create digest authentication spring following documentation trying translate xml "requirements" in java requirements. let's have xml in docs: <bean id="digestfilter" class= "org.springframework.security.web.authentication.www.digestauthenticationfilter"> <property name="userdetailsservice" ref="jdbcdaoimpl"/> <property name="authenticationentrypoint" ref="digestentrypoint"/> <property name="usercache" ref="usercache"/> </bean> <bean id="digestentrypoint" class= "org.springframework.security.web.authentication.www.digestauthenticationentrypoint"> <property name="realmname" value="contacts realm via digest authentication"/> <property name="key" value="acegi"/> <property name="noncevalidityseconds" value="10"/> </b...
Read more

laravel - PDOException in Connector.php line 55: SQLSTATE[HY000] [1045] Access denied for user 'root'@'localhost' (using password: YES) -

-
my .env: app_env=local app_debug=true app_key=myappkey app_url=http://localhost db_connection=mysql db_host=localhost db_port=3306 db_database=gestiontaller db_username=root db_password='root' cache_driver=file session_driver=file queue_driver=sync redis_host=127.0.0.1 redis_password=null redis_port=6379 mail_driver=smtp mail_host=mailtrap.io mail_port=2525 mail_username=null mail_password=null mail_encryption=null i've tried password ", ' , without, restarting server every time. i've tried changing localhost 172.0.0.1. yes, password correct, running mysql -u root -p introducing password root in prompt can go mysql. users table: +------------------+-----------+ | user | host | +------------------+-----------+ | debian-sys-maint | localhost | | mysql.sys | localhost | | root | localhost | | root1 | localhost | +------------------+-----------+ i've added homestead.yaml this: database_port: 3306 ...
Read more