Как поставить h4 () и выбрать in-line - PullRequest
0 голосов
/ 29 января 2019

Я новенький в блестящем, интересно, как поставить "=" рядом с полем selectInput?

library(shiny)
ui = fluidPage(
  mainPanel(
    titlePanel("Calculation:"),#Voltage calculation
    fluidRow(
      column(3,
             selectInput("selc11", h4("Cable"),#Resistivity
                         choices = list("Copper" = 0.0174, "Alum" = 0.0282), selected = 1)),
      h4("=")
    )
  )
)
server = function(input, output) {

}
shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 29 января 2019

Если вы хотите что-то вроде этого:

enter image description here

Вы можете достичь этого с помощью:

library(shiny)
library(shinyjs)

ui = fluidPage(
  useShinyjs(),
  mainPanel(
    titlePanel("Calculation:"),#Voltage calculation
    fluidRow(
      column(1, h4('Cable')),
      column(3, selectInput(
        "selc11",
        label = '',
        choices = list("Copper" = 0.0174, "Alum" = 0.0282), selected = 1)
      ),
      column(3, h4("="))
    )
  )
)
server = function(input, output) {
  runjs("$('label.control-label').remove()")
}
shinyApp(ui = ui, server = server)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...