Dear Friends,
I am trying to create my first shiny app. However, I am finding it too confusing because of the errors I am getting. Need your help please.
I want to create visualization for World Bank Development Indicators. I am attaching the indicators list herewith.
For the selected indicator, I should get the data table. But it is not working out. I only see a dropdown list of indicators rather than selection list with the table.
Thanks for reading.
My UI.R is
indicators<-read.xlsx2("C:/Users/A561568/Downloads/WDI_April2013_CETS.xls", 1)
shinyUI(basicPage(
selectInput("id1", "Indiactor-I", choices=levels(indicators$Series.Code), width="100%"),
dataTableOutput('table1'),
textOutput('text1')
))
My SERVER.R is
library(shiny)
library(WDI)
shinyServer(
function(input, output) {
data1 <- reactive(WDI(input$id1,country = "all", extra=T))
output$table1<-renderDataTable(data1)
output$text1 <- renderText({dim(data1)})
})
However, I am unable