control + L can clean the r command line

library(shiny)

ui=fluidPage(
  
  # input
  sliderInput(inputId = "num", label = "Choose a number", value = 25, min = 1, max =100)
  
  # output
  
  
)

server->function(input,output){}

shinyApp(ui=ui,server=server)