This is the code I am trying to get this code to work under shiny
library(shiny)
ui < fluidPage(
sliderInput(inputId = "number",
label = "Select a number",
value = 500, min = 50, max = 1000),
plotOutput("hist"),
textOutput("mean"),
textOutput("sd")
)
server < function(input, output) {
histdata < reactive({
runif(input$number, min=0, max=1)
})
output$hist < renderPlot({
hist(histdata(),xlab="Value",
main=paste(input$number, "Random values between 0 and 1")
)
})
output$mean < renderText({paste("Mean =",round(mean(histdata()),3)
)
})
output$median < renderText({paste("Median =",round(median(histdata()),3)
)
})
output$sd < renderText({paste("Standard Deviation =",round(sd(histdata()),3)
)
})
}
shinyApp(ui = ui, server = server)
but I keep getting two errors

Error in fluidpage(sliderInput(inputId = "number", lable = "Select a number", :
could not find function "fluidpage" 
Error in getCurrentRegistryId() :
function 'Rcpp_precious_remove' not provided by package 'Rcpp'
Can anyone help me on how to fix these?