小编Iai*_*ain的帖子

(来自闪亮的谷歌团体的交叉帖子)

有人能指出我必须修改闪亮仪表板颜色的标签名称吗？

修改自http://rstudio.github.io/shinydashboard/appearance.html#long-titles, 这会将我的仪表板的左上角更改为橙色

tags$head(tags$style(HTML('
        .skin-blue .main-header .logo {
                              background-color: #f4b943;
                              }
                              .skin-blue .main-header .logo:hover {
                              background-color: #f4b943;
                              }
                              ')))

我不清楚如何将标题和侧边栏的其余部分更改为橙色,以及当选择/突出显示"SideBarMenu"上的项目时如何更改颜色.

如何在使用DT包生成的单元格中嵌入图像,以便使用闪亮的应用程序显示？

我的例子是基于这个问题R闪亮:我如何将本地图像放在闪亮的表格中

下面的示例代码不显示图像,而只显示网址.

# ui.R
require(shiny)
library(DT)

shinyUI(
  DT::dataTableOutput('mytable')
)

# Server.R
library(shiny)
library(DT)


dat <- data.frame(
  country = c('USA', 'China'),
  flag = c('<img src="test.png" height="52"></img>',
           '<img src="http://upload.wikimedia.org/wikipedia/commons/thumb/f/fa/Flag_of_the_People%27s_Republic_of_China.svg/200px-Flag_of_the_People%27s_Republic_of_China.svg.png" height="52"></img>'
           )
)

shinyServer(function(input, output){
  output$mytable <- DT::renderDataTable({

    DT::datatable(dat)
  })
})

基于这个例子,我试图只选择一行,然后突出显示一个点.

我根据文档将行数据表(汽车)更改为数据表(cars,selection ='single'),将选择限制为仅一行.

但是,在选择多次后,即使只突出显示一行,所有先前的点都会保持突出显示.

有没有办法确保从选择中只返回一行,即所有先前的选择都被清除？

谢谢

在某些情况下,是否有一种在dplyr中使用重命名功能的聪明方法是不存在要重命名的列？

例如,我希望以下内容不会导致错误

mtcars%>%rename(miles_per_gallon=mpg,missing_varible=foo)

(结果如下:错误:未知变量:foo.)

而是完成所有可能重命名的数据框.

目前,我在重命名之前明确检查特定列是否存在

谢谢

伊恩

我试图在同一个图中绘制两个箱形图,每个都在同一类别中.我可以单独生成箱形图,但是当我试图将它们放到同一个图形上时我很难过.

这是我到目前为止:

a<-matrix(nrow=100,ncol=3,data=runif(300,max=2))
b<-matrix(nrow=100,ncol=3,data=runif(300,max=1))
colnames(a)<-c("case 1","case 2","case 3")
colnames(b)<-c("case 1","case 2","case 3")
boxplot(cbind(a,b))

该图得到6个箱图,前3个为a,然后3个为b.

是否有一个我缺少的技巧/简单选项,它将给出a和b的第一个值,然后是第二个,最后是第三个值,所有这些都以这样的方式绘制,x轴上只有三个刻度,每套一套？

任何指针非常感谢,

伊恩

我想知道如何操作包含存储在tibble中的data.frames的列表.

具体来说,我想从data.frame中提取存储在tibble列列中的两列.

我想从这个tibble c

random_data<-list(a=letters[1:10],b=LETTERS[1:10])
x<-as.data.frame(random_data, stringsAsFactors=FALSE)
y<-list()
y[[1]]<-x[1,,drop=FALSE]
y[[3]]<-x[2,,drop=FALSE]
c<-tibble(z=c(1,2,3),my_data=y)

到这个tibble d

d<-tibble(z=c(1,2,3),a=c('a',NA,'b'),b=c('A',NA,'B'))

谢谢

伊恩

稍微偏离主题的问题,但我想知道是否有人能告诉我最近何时以及如何改进cor()函数？它比我记忆的要快得多,现在速度与HMisc包中的rcorr函数相当,后者是我对大型矩阵的替代相关函数.

感谢所有建议:经过一些调查,速度的差异是由于使用use ="pairwise"标志而不是算法更改.使用此选项时,速度差异约为8倍.

版本2.4 - 2.13上的cor()在R上的速度是可比的.

谢谢,

伊恩

(来自闪亮的谷歌群组的交叉帖子,https://groups.google.com/forum/#!topic / shiny-discuss/CvoABQQoZeE)

如何导航到ShinyDashboard中的特定侧边栏菜单项？

sidebarMenu(
    menuItem("Menu Item 1")
    menuItem("Menu Item 2")
)

即如何在"菜单项1"页面上放置一个链接到"菜单项2"的按钮？

要在标签之间导航,我使用updateTabsetPanel函数:

observeEvent(input$go,{
updateTabsetPanel(session, "tabset1", selected = "Step 2")
})

我相信我应该能够使用类似的功能导航到侧边栏菜单,但我不确定那是什么.

任何指针都非常感激

谢谢

伊恩

在R/Shiny中,我想添加一个tooltip来通知用户按钮被禁用,因为必填字段未完成.

我能够使用ShinyBS包显示工具提示,但是当按钮被禁用时它似乎不起作用.以下是最低工作示例.

是否有一个简单的方法可以获得一个工具提示来处理Shiny中的禁用按钮？

ui.R

library(shinyBS)
library(shiny)
library(shinyjs)


shinyUI(pageWithSidebar(
headerPanel("actionButton test"),
sidebarPanel(
numericInput("n", "N:", min = 0, max = 100, value = 50),
br(),
actionButton("goButton", "Disabled!"),
actionButton("goButton2", "Go!"),
bsTooltip("goButton", "Tooltip broken", placement = "bottom", trigger = "hover",
           options = NULL),
bsTooltip("goButton2", "Tooltip works", placement = "bottom", trigger = "hover",
           options = NULL)
),
 mainPanel(useShinyjs(),
 verbatimTextOutput("nText")
)
))

server.R

library(shiny)
library(shinyjs)
library(shinyBS)

shinyServer(function(input, output,session) {

ntext <- eventReactive(input$goButton, {
input$n
})

shinyjs::disable("goButton2")

output$nText <- renderText({
 ntext()
})
})

是否可以向迷你图添加自定义标签？

例如，在下面的代码中，我想用标签列中的相应字母标记每个条形。

从以前的[答案]构建

require(sparkline)
require(DT)
require(shiny)
require(tibble)

# create data


spark_data1<-tribble(
  ~id,  ~label,~spark,
  "a", c("C,D,E"),c("1,2,3"),
  "b", c("C,D,E"),c("3,2,1")
)

ui <- fluidPage(
  sparklineOutput("test_spark"),
  DT::dataTableOutput("tbl")
)

server <- function(input, output) {

  output$tbl <- DT::renderDataTable({
    line_string <- "type: 'bar'"
    cd <- list(list(targets = 2, render = JS("function(data, type, full){ return '<span class=sparkSamples>' + data + '</span>' }")))
    cb = JS(paste0("function (oSettings, json) {\n  $('.sparkSamples:not(:has(canvas))').sparkline('html', { ", 
                   line_string, " });\n}"), collapse = "")
    dt <-  DT::datatable(as.data.frame(spark_data1),  rownames = FALSE, options = list(columnDefs …