小编Sté*_*ent的帖子

我正在使用openxlsxr 来创建具有某些格式参数的 Excel 文件。以下是可重用的代码：

library(openxlsx)
wb <- createWorkbook()
addWorksheet(wb, "TestSheet")
df <- mtcars
df$Car <- row.names(mtcars)
row.names(df) <- NULL
df <- df[,c(length(df), 1:length(df)-1)]

forTopTit <- createStyle(fontColour = "#ffffff", fgFill = "#F4D03F",halign = "center",wrapText = TRUE,valign = "center")
forColHdr <- createStyle(fontColour = "#ffffff", fgFill = "#4F81BD",halign = "center",wrapText = TRUE,valign = "center")
forDatStl <- createStyle(fontColour = "#ffffff", halign="center")

writeData(wb,"TestSheet", "THIS IS A TEST MESSAGE", startCol = 1,startRow = 1,colNames = FALSE, rowNames = TRUE,
          headerStyle = forTopTit,borders = "surrounding",borderStyle …

我需要解决这个问题，但我绝对不知道。我知道\xe2\x80\x99是一些非常基本的东西，但我不\xe2\x80\x99不明白它：ax2 + bx + c = 0

a <- 1\n\nb <- -8\n\nc <- 12\n\nd <- b*b-4*a*c \n

谢谢。

我有对象tableaux :: [[[Int]]],我想将其更改为[[[Int32]]].我做:

int32ToInt :: Int32 -> Int
int32ToInt = fromIntegral

tableaux32 = map (\y -> map (\x -> map intToInt32 x) y) tableaux

有没有更好的办法？

是否something <- stuff总是在Haskell中评估类似的语句,即使something在其余代码中没有调用它？(被something <- stuff称为"行动"？ - 我不知道技术措辞).

如果这是真的,我还有另外一个问题.

我有一些代码从这样开始:

computeContour3d voxel voxmax level = do
    voxelmax <- somefunction voxel
    let max' = fromMaybe voxelmax voxmax

也就是说,如果参数voxmax不是Nothing,则voxelmax没有必要,因为max' = fromJust voxmax在这种情况下.因此,如果我的第一个问题的回答是"是",我怎么能避免评估voxelmax何时没有必要？

有一个选项可以在datatables.net网站上添加自定义按钮。如何在R Shiny应用中进行编码？一个按钮和观察者的基本R代码示例将非常有趣。

这是来自https://datatables.net/extensions/buttons/examples/initialisation/custom.html的 JS代码

$(document).ready(function() {
    $('#example').DataTable( {
        dom: 'Bfrtip',
        buttons: [
            {
                text: 'My button',
                action: function ( e, dt, node, config ) {
                    alert( 'Button activated' );
                }
            }
        ]
    } );
} );

谢谢 ！

我有一个简单的闪亮应用程序，它以闪亮的方式向我显示数据表中的大量图片。我有 20,000 张图像，我想删除那些我不喜欢的图像。当我删除一行时，应用程序会将我带到数据表的顶部，这对于这么多图像没有用处。

作为一种简单的解决方案，我认为我可以确保应用程序返回到我刚刚删除的图像上方。我想这将由 javascript 函数管理，但我不知道如何实现它。我想它应该放在下面的代码部分中tags$script。有人可以告诉我如何/指导我如何实现此功能

这是我的应用程序的代码：

服务器

library(shiny)
library(shinydashboard)
library(data.table)
library(DT)
server<-shinyServer(function(input, output) {
  vals<-reactiveValues(myTabData = data.table(NULL))

  vals$Data<-data.table(Endo_Endoscopist=DT$Endo_Endoscopist,
                        PatientID=DT$PatientID,
                        NBIorWLorFICE=DT$NBIorWLorFICE,
                        url=DT$url)

  output$MainBody<-renderUI({
    fluidPage(
      box(width=12,
          h3(strong("Actions on datatable with buttons"),align="center"),
          hr(),
          column(12,dataTableOutput("Main_table")),
          tags$script("$(document).on('click', '#Main_table button', function () {
                      Shiny.onInputChange('lastClickId',this.id);
                      Shiny.onInputChange('lastClick', Math.random())
  });")

      )
      )
  })

  output$Main_table<-renderDataTable({
    DT=vals$Data

    DT[["Actions"]]<-
      paste0('
             <div class="btn-group" role="group" aria-label="Basic example">
             <button type="button" class="btn btn-secondary delete" id=delete_',1:nrow(vals$Data),'>Delete</button>
             <button type="button" class="btn btn-secondary modify"id=modify_',1:nrow(vals$Data),'>Modify</button>
             </div>

             ')
    datatable(DT,
              escape=F)}
      )


  output$downloadData <- downloadHandler(
    filename = function() {
      "Main_table.csv" …