getting renderUI output as input - shiny

Question

I am new to shiny, and may be asking basic question.

I have a dataset in local machine as of now, which has store numbers and the items it sells along with other data.

What I wish is an app that will select one store number, list all the items in that store, and then based on selection of the item show all data for that store and item.

Please find the code below

ui.R

library(shiny)

df<-read.csv("C:/Users/adey1/Office Projects/NGSC_Shiny/Ensembler App/Trial Started on 05-06-2015//example1.csv")

category<-unique(df$item_nbr)

store<-unique(df$store_nbr)

sidebarPanel(
selectInput(inputId = "Store",
          label = "Store",
          store),

uiOutput("items"),

mainPanel(textOutput('values'))
)

server.R

shinyServer(function(input, output) {
output$items<-renderUI({

item_list<-unique(df$item_nbr[which(df$store_nbr==input$Store)])

radioButtons("item1", "Select Item", item_list)
})

output$value<-renderTable(
subset(df,store_nbr==input$store & item_nbr==as.integer(input$item1))
)

})

Can you suggest what is wrong, and what needs to be done?

Anindya Sankar Dey · Accepted Answer · 2015-05-06 14:53:07Z

1

I found this changes on server side works:-

server.R

shinyServer(function(input, output) {
output$items<-renderUI({

item_list<-unique(df$item_nbr[which(df$store_nbr==input$Store)])

radioButtons("item1", "Select Item", item_list)
})

dataset=reactive({

y=which(df$store_nbr==input$Store & df$item_nbr==input$item1)
df1=as.data.frame(cbind(df$date[y],df$item_nbr[y],df$units[y],df$store_nbr[y]))
names(df1)=names(df)
df1

})

output$value<-renderTable(

dataset()
)

})

But this is very crude. Can someone get me easier solution?

edited May 6, 2015 at 14:53

answered May 6, 2015 at 14:14

Anindya Sankar Dey

1012 silver badges15 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

getting renderUI output as input - shiny

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related