Displaying 1 result from an estimated 1 matches for "invarpdf".
Did you mean:
invarpdfsd
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...d). Thanks
library(shiny)
ui= fluidPage(
sidebarLayout(
sidebarPanel(
selectizeInput(inputId= "invar", label= "invar",
choices= names(iris),
selected= names(iris)[1],
multiple=T),
uiOutput("invarpdf")
),
mainPanel(
tableOutput("tab")
)
))
server= function(input, output,session) {
sorted <- reactive({
data <- iris[ ,c(input$invar)]
#print(input$invar)
data})
output$invarpdf<-renderUI({
numvar<- length(input$varnames)...