The condition needs to be written in javascript. length(input.ctype)
should be input.cytpe.length
runApp(list(
ui = bootstrapPage(
checkboxGroupInput("ctype","Claim Type:" , c("CC" = "cc", "mc" = "mc", "md" = "md"), selected = NULL),
conditionalPanel("input.ctype.length > 1",
radioButtons("bygroup", "By Group",c("Size(GB)" = "Size.bytes."),selected = "Size.bytes.")
),
conditionalPanel("input.ctype.length <= 1",
radioButtons("bygroup", "By Group",c("Size(GB)" = "Size.bytes.", "Record Count(Mil)" = "Record_count", "PC(Mil)" ="UEC"),selected = "Size.bytes."))
),
server = function(input, output) {
output$plot <- renderPlot({ hist(runif(input$n)) })
}
))