в блестящий, как вставить цифровую клавиатуру?

Question

Во-первых, я новичок в программировании, блестящий и R. Я пытаюсь вставить цифровую клавиатуру, чтобы позволить пользователю легко выбирать номера, как на мобильном устройстве, но это не сработало.

Javascriptкод, который я пытаюсь добавить, это:

<script type="text/javascript">
var picker = new ax5.ui.picker();
 $(document.body).ready(function () {
    picker.bind({
        target: $('[data-ax5picker="numpad"]'),
        direction: "auto",
        content: {
            width: 200,
            margin: 10,
            type: 'numpad',
            config: {
                btnWrapStyle: "padding:3px;width:25%;",
                btnStyle: "width:100%",
                btnTheme: "primary",
                specialBtnWrapStyle: "padding:3px;width:25%;",
                specialBtnStyle: "width:100%;padding-left:0px;padding-right:0px;",
                specialBtnTheme: ""
                /*
                 keyArray: [
                 {value: "7"},
                 {value: "8"},
                 {value: "9"},
                 {label: "BS", fn: "back"},
                 {value: "4"},
                 {value: "5"},
                 {value: "6"},
                 {value: "-"},
                 {value: "1"},
                 {value: "2"},
                 {value: "3"},
                 {value: ""},
                 {value: "."},
                 {value: "0"},
                 {value: ""},
                 {label: "OK", fn: "close"}
                 ]
                 */
            },
            formatter: {
                pattern: 'number'
            }
        },
        onStateChanged: function () {
            //console.log(this);
        }
    });
  });
 </script>

Ниже приведен блестящий код, который я пытаюсь создать

library(shiny)
library(shinyCleave)
library(shinyjs)
library(shinyjqui)

ui <- fluidPage(
             includeCleave(),
phoneInput("phone","Mobile Number")
)

server <- shinyServer(function(input, output, session) {

cleave(session, "#num", list(
    numeral = TRUE,
    numeralThousandsGroupStyle= 'wan'
))
})
shinyApp(ui=ui,server=server)

, с другой стороны, есть ли способувеличить максимальное количество записей в поле мобильного номера.