小编Ash*_*dry的帖子

所以我一直在编写一个相当详细的闪亮应用程序,并且将来需要更新,因为运行的功能背后不断变化.

我需要做的是进行单元测试(使用testthat或其他对闪亮应用程序更有用的库),使我能够以更自动化的方式运行这些测试.

我写了一个简单的闪亮应用程序.为了测试,我想知道如果我在数字输入中选择数字20,那么我得到400作为输出$ out文本.但是希望能够在没有实际运行应用程序的情况下执行此操作.

library(shiny)

ui <- fluidPage(title = 'Test App', 
    numericInput('num', 'Number', 50, 1, 100, 0.5),
    'Numeric output',
    textOutput('out')
)

server <- function(input, output, session) {
  aux <- reactive(input$num ^ 2)

  output$out <- renderText(aux())
}

shinyApp(ui = ui, server = server)

我正在寻找创建条形图,当使用DT时,它datatable会出现在列的单元格中间,并向左或向右伸出,具体取决于单元格中的值是正还是负.

我已尝试使用该函数styleColorBar并将参数更改backgroundPosition为'left'或者'center'每次尝试时,条形图仍显示在单元格的右侧,并始终向左移动.

我找不到R代码的例子,但附上了一个可以在Excel上完成的例子; 颜色不是必要的,但如果包含这将是一个奖金.