dynamic - Having two dynamically selectInput in R shiny -

-

i'm trying create interface allows user choose how many columns focus on, , choose unique value in each column.

the code have not match column value column name. work when pick 1 column. however, no work when there >1 column. 'choose attribute values' resorts first 'choose attribute'. want them compatible. 

 library(shiny)   ui<-shinyui(fluidpage(fluidrow(column(width = 4,       numericinput("assets", label = "choose how many attributes produce in map:", value="1"),     uioutput("variants"),     uioutput("variants2")      )   )))  server <-shinyserver( function(input, output, session) {    df<-read.csv("diff_block.csv", stringsasfactors=false, colclasses="character")   df$x<-null     output$variants <- renderui({     numassets <- as.integer(input$assets)       lapply(1:(numassets), function(i) {           list(selectinput ("choose_columns",                          "choose attribute",                          sort(unique(names(df)), decreasing = false),                         selected=""))      })   })      output$variants2 <- renderui({       numassets <- as.integer(input$assets)            lapply(1:(numassets), function(j) {        selectinput ("choose_columns2",                   "choose attribute value",                   sort(unique(df[,input$choose_columns]), decreasing = false),                  selected="")       })     })       })  shinyapp(ui, server)

you creating sliderinputs same id (selectinput ("choose_columns", ...)). trick use paste0 function create widgets different id's , access values using [[ operator.

library(shiny)   ui<-shinyui(fluidpage(fluidrow(column(width = 4,                                         numericinput("assets", label = "choose how many attributes produce in map:", value="1"),                                       uioutput("variants"),                                       uioutput("variants2")  )   )))  server <-shinyserver( function(input, output, session) {    #df<-read.csv("diff_block.csv", stringsasfactors=false, colclasses="character")   #df$x<-null   df <- iris     # output$variants <- renderui({   #   numassets <- as.integer(input$assets)   #   lapply(1:(numassets), function(i) {   #     list(selectinput ("choose_columns",   #                       "choose attribute",   #                       sort(unique(names(df)), decreasing = false),   #                       selected=""))   #    #   })   # })    output$variants <- renderui({     numassets <- as.integer(input$assets)     lapply(1:(numassets), function(i) {       list(selectinput (paste0("choose_columns", i),                         "choose attribute",                         sort(unique(names(df)), decreasing = false),                         selected=""))      })   })    output$variants2 <- renderui({     numassets <- as.integer(input$assets)        #   lapply(1:(numassets), function(j) {   #        #     selectinput ("choose_columns2",    #                  "choose attribute value",    #                  sort(unique(df[,input$choose_columns]), decreasing = false),   #                  selected="")   #   })   # })      lapply(1:(numassets), function(j) {        var <- input[[paste0("choose_columns", j)]]        selectinput (paste0("choose_attribute", j),                     paste0("choose attribute value of ", var),                    sort(unique(df[ ,var]), decreasing = false),                    selected="")     })   }) })  shinyapp(ui, server)

Comments

Post a Comment

Popular posts from this blog

java - nested exception is org.hibernate.exception.SQLGrammarException: could not extract ResultSet Hibernate+SpringMVC -

-
i trying fetch records database , having above error this classs appropriate getters , setters public class user { private int id; private string username; private string password; private string email; i have create database , inserted data below configuration <bean id="datasource" class="org.apache.commons.dbcp2.basicdatasource" destroy-method="close"> <property name="driverclassname" value="com.mysql.jdbc.driver"/> <property name="url" value="jdbc:mysql://localhost:3306/usersdb"/> <property name="username" value="root"/> <property name="password" value=""/> </bean> this complete stacktrace severe: servlet.service() servlet [appservlet] in context path [/spring] threw exception [request processing failed; nested exception org.hibernate.exception.sqlgrammarexception: not ...
Read more

sql - Postgresql tables exists, but getting "relation does not exist" when querying -

-
Image
i have postgresql db number of tables. if query: select column_name information_schema.columns table_name="my_table"; i list of columns returned properly. however, when query: select * "my_table"; i error: (programmingerror) relation "my_table" not exist 'select *\n "my_table"\n' {} any thoughts on why can columns, can't query table? goal able query table. you have include schema if isnt public one select * <schema>."my_table" or can change default schema show search_path; set search_path my_schema; check table schema here select * information_schema.columns for example if table on default schema public both works ok select * parroquias_region select * public.parroquias_region but sectors need specify schema select * map_update.sectores_point
Read more

asp.net mvc - breakpoint on javascript in CSHTML? -

-
i have .cshtml file has javascript tag. within script tag have few lines of javascript. first line of javascript refers property in @viewbag. other javascript lines plain script without mvc related references. observation: can place breakpoints (visual studio 2015) on each of these javascript lines. however, breakpoints has white dot in center of breakpoint symbol (red circle) except line @viewbag reference (this particular line not have white dot in center). it seems breakpoint without white dot hit during run-time. question: can explain going on here? white dot mean? why plain red breakpoint line line hitting breakpoint? the visual studio debugger expecting debug actual server-side code within .cshtml file opposed client-side javascript within it. iirc, visual studio allow debug javascript code expected in internet explorer (and possibly edge), other browsers want use either third-party tool or developer tools (f12) within browser. an easy approach take advant...
Read more