小编Sté*_*ent的帖子

我正在使用深色主题（闪亮主题中的石板）创建一个闪亮的应用程序。但是当我应用该主题时，我的 renderDataTable 输出存在两个问题：

1. 应用程序背景太暗，看不到表格外的元素（显示 XX 条目、底部页码等）
2. 表中的文字太浅，难以阅读。

对于问题#2，我尝试了 renderDataTable 领域中的选项，例如formatStyle()，以及 css 选项，例如，list(tags$head(tags$style("shipment.table span {color: #333333 ; background: #999999;}")))但我对它们没有任何运气。我对闪亮、DT 和 css 很陌生，这可能与它有关...我尝试过的示例在下面的代码中注释掉了。

对于问题#1，我完全陷入困境。我不知道那些外部到表的元素叫什么，所以我没有运气找到可以尝试的东西！

library(shiny)
library(shinythemes)
library(DT)

d=as.data.frame(cbind(1:100,201:300))

ui<-fluidPage(
    theme = shinytheme("slate"),

    mainPanel(
        DT::dataTableOutput('shipment.table')
        #list(tags$head(tags$style("shipment.table span {color: #333333 ; background: #999999;}")))   
        #tags$head(tags$style("#shipment.table table {color: red;}"))
  )  
)


server<-function(input, output,session) {

output$shipment.table <- renderDataTable(d,filter = 'bottom',
       options = list(lengthMenu = list(c(10,20,50,100,-1), c('10','20','50','100','All')),
       pageLength = 10,autoWidth = TRUE),rownames=F) #%>% formatStyle(1,color="black")
}


shinyApp(ui=ui,server=server)

如果运行该应用程序，您将看到左上角带有“10”的下拉框，但该框前后应该有文本，因此显示“显示 10 个条目”。右下角还有一个 1，但应该还有其他几个页面可见（它们是，只是深色背景上的深色文本）。同样，表格文本在浅灰色/白色背景上呈浅灰色，难以阅读。谢谢你的帮助！

我想用ggtk2组合gWidgets(john verzani).这可以被任何人用作范例.

算法如下:步骤1:构造一个gwindow(或gframe)步骤2:构造GTK可滚动文本视图步骤3:将最后一个转换为gwidget步骤4:将其添加到gwindow(或gframe)中

我想知道这是否是一个正确的思考,而我面临的问题是GTK可滚动文本视图:我无法使滚动条工作.

R中的代码如下:

###########################
# load libraries
library(RGtk2)
library(gWidgets)
library(gWidgetsRGtk2)

# data set
x <- c(1:9)
y <- c(10:19)
z <- c(20:29)
df <- data.frame(x, y, z)
df.co <- capture.output(df)

###########################
# STEP 1, library(gWidgets)
# Construct a gwindow (or a gframe)
G.Window <- gwindow()

###########################
# STEP 2, library(RGtk2)
# Construct a GTK scrollable text view
Gtk.Text.View <- gtkTextViewNew(show = TRUE)

# create a table to attach the scrollbars
Gtk.Table.New <- gtkTableNew(2, 2, show = TRUE)

# …

下面的最小闪亮应用程序生成一个带弹出窗口的html表.它在闪亮的0.8下运行良好,但它不适用于闪亮的0.9:只显示弹出窗口的标题,而不是内容.这个问题在发光讨论中尚未解决.也许是由于bootstrap或jQuery,它们已经在闪亮的0.9中更新了

tabl <- function(){
  title <- "hello"
  content <- "Goodbye"
  out <- sprintf('<table style="width:300px">
  <tr>
    <td><a href="javascript: void(0)" data-toggle="popover" data-content="%s" data-html="true" data-animation="true" data-placement="bottom" data-trigger="hover" title="%s">Jill</a></td>
    <td>Smith</td> 
    <td>50</td>
  </tr>
  <tr>
    <td>Eve</td>
    <td>Jackson</td> 
    <td>94</td>
  </tr>
</table>
', title, content)
  out <- tagList(
    singleton(
      tags$head(
        tags$script("$(function() { $(\"[data-toggle='popover']\").popover(); })")
      )
    ),
    HTML(out)
  )
  return(out)
}

runApp(
  list(
    ui=pageWithSidebar(
      headerPanel(""),
      sidebarPanel(
      ),
      mainPanel(
        uiOutput("htmltable")
      )
    ),
    server=function(input,output,session){
      output$htmltable <- renderUI({ tabl() })
    })
)

我正在使用plotly 4.5.2.

这是我如何使用titlefont=list(size=30)in更改绘图标题的大小layout()：

library(plotly)
x <- 0:10
y <- 0:10
dd <- transform(expand.grid(x=x, y=y), z=x+y)
dd1 <- data.frame(x=x, y=y) 
pp <- plot_ly() %>% 
  layout(title="Hello", titlefont=list(size=30)) %>%
  add_trace(data=dd, x=~x, y=~y, z=~z, type="heatmap") %>% 
  add_trace(data=dd1, x=~x, y=~y, type="scatter", mode="lines", showlegend=FALSE)

但是当标题太大时无法正确呈现：

这是一个错误，还是我做错了什么？

我是Haskell的新手,我遇到了找到类型的问题

f x y = f y x

GHCI给了我:a-> a-> b

但我不明白为什么.有人可以向我解释一下吗？

让DT这个数据表：

DT <- data.table(A=1:2, B=3:4)

我们可以像这样替换B列第2行的单元格：

DT[2, `:=`(B=99)]

但是，我想通过提供列的索引而不是其名称来代替。怎么样？

我需要让列表的元素满足谓词和这些元素的索引.我可以这样做:

import           Data.List (findIndices)

list :: [Int]
list = [3,2,4,1,9]

indices = findIndices (>2) list
elems = [list!!i | i <- indices]
-- same as: elems = filter (>2) list

是不是有一个包提供了一个功能,以"一次性"给出元素及其索引？我很惊讶我在某处找不到这个功能.否则,如何做这样的功能,改进我上面的代码？我不相信这段代码是最优的,因为它以某种方式访问​​列表的元素两次.我快速浏览了一下源代码,findIndices但我还不明白.

现在，我正在制作一些包裹。作为测试数据，我想将 xlsx 文件包含在包中。不过我不知道方法，所以请告诉我。

在我的 flexdashboard 中，我使用“plotly”库来绘制图表。当数据刷新时，条形尺寸会减小。当时，当我单击“自动缩放”选项时，它工作正常。我的问题是我们可以通过plotly.r代码中的任何选项自动启用自动缩放吗？

我有一个这样的功能：

jac :: Int -> Int -> [Int] -> [Int] -> IOArray (Int,Int) Double -> IO Double
jac m k mu nu arr
  | nu!!0 == 0 = return 1
  | length nu > m && nu!!m > 0 = return 0
  | m == 1 = return $ x!!0^(nu!!0) * theproduct (nu!!0)
  | k == 0 && CONDITION = XXX
  | otherwise = YYY

在CONDITION必须检查该元素(1,1)的数组arr不同于0。但得到这个元素，一个必须做

element <- readArray arr (1,1)

我不知道该怎么办。除外unsafePerformIO。在这里使用安全吗？我的意思是： …