14 lines
307 B
R
14 lines
307 B
R
num_inp <- function(id, betrag, ro = FALSE){
|
|
autonumericInput(
|
|
inputId = id,
|
|
label = NULL,
|
|
width = "100%",
|
|
value = betrag,
|
|
currencySymbol = "",
|
|
currencySymbolPlacement = "s",
|
|
align = "right",
|
|
readOnly = ro,
|
|
style = "height: 15px !important; padding: 1px 1px;"
|
|
)
|
|
}
|