[R-br] dúvida no shiny

PrezadosEstou rodando o código abaixo que peguei na internet, mas não funciona. Alguém saberia o motivo?Desde já agradeço.Luiz  require(shiny)  runApp(      list(ui = pageWithSidebar(                       headerPanel(withMathJax("$$\\text{Display formula in heading }X_n=X_{n-1}-\\varepsilon$$")),                       sidebarPanel( ),                    mainPanel( )       ),        server= function(input, output, session){                       }      ) )