【发布时间】：2014-01-05 09:32:53
【问题描述】：
我有一个闪亮的服务器版本 0.4.0，我希望有 4 个小文本输入框，如下所示：
x-min x-max y-min y-max
[...] [...] [...] [...]
它们现在看起来像这样：
x-min
[...................]
x-max
[...................]
y-min
[...................]
y-max
[...................]
使用此代码：
textInput(inputId="xlimitsmin", label="x-min", value = 0.0),
textInput(inputId="xlimitsmax", label="x-max", value = 0.5),
textInput(inputId="ylimitsmin", label="y-min", value = 0.5),
textInput(inputId="ylimitsmax", label="y-max", value = 1.0),
任何想法如何实现这一目标？
已编辑：我已经成功地在代码的其他地方更改了这样的内容：
<style type="text/css">select#yaxis4 { height: 280px; width: 500px; }</style>
[... which links to this later on in the page...]
<label class="control-label" for="yaxis4">Y-Axis</label>
<select id="yaxis4" multiple="multiple">
这就是那些不起作用的样子：
<style type="text/css">select#xlimitsmax { display: inline-block; max-width: 50px; }</style>
[... which links to...]
<label>x-max</label>
<input id="xlimitsmax" type="text" value="0.5"/>
已编辑：
这是一个不起作用的独立示例ui.R：
library(shiny)
shinyUI(
pageWithSidebar(
# application title
headerPanel("test01"),
sidebarPanel(
tags$head(
tags$style(type="text/css", "select { max-width: 360px; }"),
tags$style(type="text/css", ".span4 { max-width: 360px; }"),
tags$style(type="text/css", ".well { max-width: 360px; }")
),
wellPanel(
p(strong("Side Panel:"))
)
),
mainPanel(
textInput(inputId="xlimitsmin", label="x-min", value = 0.0),
tags$head(tags$style(type="text/css", "select#xlimitsmin { max-width: 50px }")),
textInput(inputId="xlimitsmax", label="x-max", value = 0.5),
tags$head(tags$style(type="text/css", "select#xlimitsmax { display: inline-block; max-width: 50px; }"))
)
))
结果页面：
【问题讨论】：
-
代码中的
<style>语句在哪里？如果您只是执行更改选择框颜色之类的操作，是否可行？ -
样式声明分散在闪亮的 ui.R 文件中，并放入 html 头部 (
tags$head(tags$style(type="text/css", "select#something { height: 200px; width: 300px; }")))。如果我执行以下操作，仍然无法正常工作：tags$head(tags$style(type="text/css", "select#xlimitsmin { max-width: 50px }")) -
平！ 6 小时内的赏金 - 你能分配给某人吗？
-
我还有 16 小时的时间吗？明天我会在 12 小时后在办公室尝试答案。