从输入字段中删除标签

Question

我有一个像这样的 Shiny 应用:

library(shiny)


UI <- fluidPage(
  numericInput("obs", "Observations:", 10, min = 1, max = 100),
  numericInput("obs", "Observations:", 10, min = 1, max = 100)
)
Server <- function(input, output) {}

shinyApp(ui = UI, server = Server)

如果我删除这样的标题:

UI <- fluidPage(
  numericInput("obs", "", 10, min = 1, max = 100),
  numericInput("obs", "", 10, min = 1, max = 100)
)
Server <- function(input, output) {}

shinyApp(ui = UI, server = Server)

输入字段上方仍有空白区域。关于我如何摆脱这个有什么想法吗？

Answer 1

如果您想要空字段，请使用 NULL 作为标签:

library(shiny)
UI <- fluidPage(
    numericInput("obs", "Observations:", 10, min = 1, max = 100),
    numericInput("obs", "", 10, min = 1, max = 100),
    numericInput("obs", NULL, 10, min = 1, max = 100)
)
Server <- function(input, output) {}
shinyApp(ui = UI, server = Server)