Как использовать теги $ HTML в блестящем модуле - PullRequest
Новая
       110

Как использовать теги $ HTML в блестящем модуле

0 голосов
/ 07 апреля 2020

Я пытаюсь настроить высоту и размер шрифта значения элемента ввода. Ниже код работает без блестящего модуля. Но я хочу это в модуле. Спасибо за любую помощь !!

Пожалуйста, обратитесь ниже код 

inputV_frameweldmentcalc_UI <- function(id){ 

 ns = NS(id)

fluidPage(
div(
tags$head(
tags$style(HTML(
  '#projectname{height: 15px} 
  #projectname{font-size: 10px} 
  #truckclass{height: 30px} 
  #truckclass{font-size: 15px} 
  #truckcapacity{height: 20px} 
  #truckcapacity{font-size: 15px} 
  #requestor{height: 20px} 
  #requestor{font-size: 15px} 
  )))),

              fluidRow(column(12,

              fluidRow(column(1,
                              div(style = "height: 20px; font-size: 10px;",
                                  textInput(inputId = ns("projectname"),
                                            label = "Project Name",
                                            value = ""))),
                       column(1,
                              div(style = "height: 20px; font-size : 10px;",
                                  textInput(inputId = ns("truckclass"),
                                            label = "Class",
                                            value = ""))),
                       column(1,
                              div(style = "height: 20px; font-size : 10px;",
                                  textInput(inputId = ns("truckcapacity"),
                                            label = "Truck Capacity",
                                            value = ""))),
                       column(1,
                              div(style = "height: 20px; font-size : 10px;",
                                  textInput(inputId = ns("requestor"),
                                            label = "Requestor",
                                            value = "")))
                       ))))
                       }
...