小编Mar*_*rta的帖子

我想从我的应用程序中删除"全局搜索"选项,但请保留"列搜索"选项.有任何想法吗？我尝试过不同的参数searching=FALSE, filtering='none'......这些都不正常.

我的代码:

server.R:

library("shiny")
library("DT")

data(iris)

shinyServer(function(input, output) {

    output$tabelka <- DT::renderDataTable({

        datatable(iris, filter="top", selection="multiple", escape=FALSE)

    })

})

ui.R

library("shiny")
library("DT")

shinyUI(fluidPage(

    DT::dataTableOutput("tabelka")

))

和图片有助于理解我的问题:

让我们说,我有一个简单的闪亮应用程序,我想改变侧边栏面板背景.我试过用css,但我只是改变了整个背景.你能帮助我吗？

我的ui.R:

    library(shiny)

    shinyUI(fluidPage(
      includeCSS("www/moj_styl.css"),

      titlePanel("Hello Shiny!"),

      sidebarLayout(
       sidebarPanel(
          sliderInput("bins",
                      "Number of bins:",
                      min = 1,
                      max = 50,
                      value = 30)
        ),

        mainPanel(
          plotOutput("distPlot")
        )
      )
    ))

和我的服务器.R:

    library(shiny)

    shinyServer(function(input, output) {

      output$distPlot <- renderPlot({
        x    <- faithful[, 2]  # Old Faithful Geyser data
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        hist(x, breaks = bins, col = 'darkgray', border = 'white')
      })

    })

和moj_styl.css:

    body {
        background-color: #dec4de;
    }

    body, label, input, button, select { …

我的数据如下:http: //imgur.com/8KgvWvP

我想将值更改NA为每列的另一个值.例如,在包含列NA,Single并且Dual,我想改变一切NA来'Single'.

我试过这段代码:

data_price$nbrSims <- ifelse(is.na(data_price$nbrSims), 'Single', data_price$nbrSims)

但后来我的数据看起来就像这样,Dual成为2和Single 1. http://imgur.com/TC1bIgw

如何在NA不更改其他值的情况下更改值？提前致谢!

我试图绘制一个dygraph plot(条形图得益于使用dygraphs包在R中创建条形图的答案),其中有两条水平线,但不是整个OX轴.

我现在拥有的是:

而我想拥有的是:

唯一认为我知道如何获得(但这不是我想要的):

有人知道有可能实现我的目标吗？我会很乐意为你提供帮助!

我的代码重现了这个情节:

library("dplyr")
library("data.table")
library("dygraphs")
library("htmlwidgets")

# data:

graph_data <- structure(c(0, 584.5, 528.5, 601.3, 336.8, 0), .Dim = c(6L, 1L
), index = structure(c(1448928000, 1451606400, 1454284800, 1456790400, 
                       1459468800, 1462060800), 
                     tzone = "UTC", tclass = c("POSIXct", "POSIXt")), 
.indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct", "POSIXt"), 
.indexTZ = "UTC", tzone = "UTC", 
.Dimnames = list(NULL, "ile"), class = c("xts", "zoo"))

# > graph_data
#              ile
# 2015-12-01   0.0
# …

我想在闪避中订购酒吧geom_bar.你知道怎么处理吗？

我的代码:

ttt <- data.frame(typ=rep(c("main", "boks", "cuk"), 2),
                  klaster=rep(c("1", "2"), 3),
                  ile=c(5, 4, 6, 1, 8, 7))

ggplot()+
    geom_bar(data=ttt, aes(x=klaster, y=ile, fill=typ),
             stat="identity", color="black", position="dodge")

示例图可以更好地理解问题:

是)我有的:

我想拥有什么:

我有一个像这样的闪亮应用程序:

server.R:

    library(shiny)

    function(input, output) { NULL }

和ui.R:

    library(shiny)  


    pageWithSidebar( 

       headerPanel("side-by-side"), 

     fluidRow(

        column(2),
        column(4,
           wellPanel(
               selectInput(inputId = "options", label = "some text", 
                           choices = list(a = 0, b = 1)))   
           )
      ),

      fluidRow( 
         h3("bla bla")
     )
    )

我希望在它旁边有selectInput标签,而不是上面.你知道怎么做吗？

我发现了这个:将闪亮的小部件放在它们的标题旁边, 但它对我不起作用.

我正在尝试自定义我的selectize inputin shiny. 我所拥有的是：

我想要的是改变所选项目的颜色，如下所示：

我试图更改我的css，但我设法通过添加以下内容来仅更改此“a”颜色：

.selectize-input.input-active, .selectize-input.input-active:hover, .selectize-control.multi .selectize-input.focus {border-color: #2196f3 !important;}
.selectize-dropdown .active {background: #2196f3 !important;}

我也想改变“c”和“b”的颜色，但我不知道如何。请问你能帮帮我吗？

我的代码：

server.R：

library("shiny")

shinyServer(function(input, output){})

ui.R：

library("shiny")

shinyUI(fluidPage(
    sidebarLayout(
        sidebarPanel(
            selectizeInput("select", label=NULL,
                           choices=c("a", "b", "c", "d"),
                           multiple=TRUE, options=list(placeholder="Wybierz"))),
        mainPanel())
    )
)