R Shiny - 没有选择器的数字输入

Question

有没有一种方法可以在没有选择器的情况下输入数字？每次按下滑块时，我的应用程序中的所有计算都会发生，因此可能会被用户轻松窒息。可能使用文本输入并将其转换为数字？

还有其他想法吗？

Answer 1

您可以使用textInput并使用reactive()将其转换为数字，例如，如果numInput是textInput的名称：

在server.R中：

numConv <- reactive({as.numeric(input$numInput)})

然后，指向input$numInput的任何地方都会更改为numConv()。您可以添加任何您想要被动的代码，这样您就可以进行额外的检查，以确保用户在触发应用程序中的所有其他计算之前输入有效输入。

Answer 2

在您的ui.R文件中，使用如下输入：

shinyUI(pageWithSidebar(
    sidebarPanel(
        textInput("text", "Enter Text:", "Default Text"),
        numericInput("num1", "Please Enter a Number:", 42)
      )
))

希望有所帮助。