如何使actionButton
及其标签更小,但仍然以按钮图标为中心?我已经能够完成使按钮和文本都变小,但结果是一个小按钮,小文本不在按钮的中心。我想我可能接近这个错误了。下面是一个示例,其中按钮/文本变小但结果是一个文本未居中的按钮。
library(shiny)
shinyApp(
shinyUI(fluidPage(
inputPanel(
## Original
actionButton('button', 'Hi'),
## Text is smaller
gsub('Hi', '<font size="1">Hi</font>',
actionButton('button1', 'Hi')),
## Text is smaller and button is smaller, but text is outside of button
gsub('Hi', '<font size="1" align="center">Hi</font>',
actionButton('button2', 'Hi', style='height:20px'))
)
)),
shinyServer(function(input,output){})
)
答案 0 :(得分:7)
你应该在这里专注于HTML和CSS。在这里没有什么特别的R和闪亮的具体内容。 <button>
只是一个HTML actionButton('button2', 'Hi', style='padding:4px; font-size:80%'))
。您可以设置font-size和padding(文本周围的空间)的属性。
这是减少填充和减小字体大小的一种方法
let identite f = f
let (>>) = List.fold_right identite