小编Mik*_* C.的帖子

我正在尝试将符号和数学表达式添加到滑块标签,例如,而不是"选择lambda:"我希望标签为"选择λ:".我尝试了HTML和表达式()的多种变体,例如:

sliderInput ("lambda1", label=HTML("Choose &-lambda;:"), min=0, max=10, value=1.1, step=0.1) 

删除了连字符(我把它放在那里以打败这个编辑器中的格式).

和:

sliderInput("lambda1", label=expression(lambda), min=0, max=10, value=1.1, step=0.1).

在所有情况下,标签显示为" Choose &-lambda;:"(不带连字符)而不是"选择λ:".

我还需要下标和上标,但尚未尝试任何代码.我认为如果我能得到HTML符号,我将能够使用适当的标签格式化下标.

编辑
抱歉,我无法回答自己,因为我是新用户.我找到了问题的希腊符号部分的答案.具有讽刺意味的是,因为我已经在这个问题上打了一个星期,然后在问题发布后一个小时我发现了.D'哦!

用括号括HTML()起来div(HTML()).正是如此:

sliderInput ("lambda1", label=div(HTML("Choose &-lambda;:")), min=0, max=10, value=1.1, step=0.1),

再次没有连字符&-lambda;.

那很有效!

对不起，如果这是一个常见问题，但它让我发疯。我需要将 actionButton 添加到触发文件保存的 Shiny UI。实际的文件保存命令取决于 tabPanel 的哪个选项卡打开，我可以通过 tabPanel id 获取该信息。我遇到的问题是访问 actionButton 的状态并在之后重置它。

在 ui.r 中，我有这样的东西：

shinyUI(fluidPage(
    titlePanel("myTitle"),

    sidebarLayout(
        sidebarPanel("",
            actionButton("save", "Save File"),

            # test to make sure the button is working
            verbatimTextOutput("sb")    # it increments when clicked
        )
    )
))

在 server.r 中，我正在尝试这样做：

shinyServer(function(input, output) {

    # test to make sure the button is working
    output$sb <- renderPrint({ input$save })     # increments when clicked

    # here is the problem code:
    if(input$save > 0) {                         # button was clicked, so...
        input$save …