小编SBi*_*sta的帖子

我想在DT :: datatable中的列中合并几行闪亮.有可能这样做吗？

目前我能够输出看起来像这样的东西:

但理想情况下,我想合并行,并希望输出这样的东西:

是否有可能在DT :: datatable中合并这样的行？

我有一个使用 制作的条形图ggplot2。我想使用标签向每个栏添加标签geom_text，使标签的文本大小与标签相对应。为此，我使用了以下代码：

a <- aggregate(mpg ~ vs + am , mtcars, function(i) round(mean(i)))
p <- ggplot(mtcars, aes(factor(vs), y=mpg, fill=factor(am))) + 
      geom_bar(stat="identity",position="dodge") + 
      geom_text(data = a, aes(label = mpg, size = mpg), 
                position = position_dodge(width=0.9))

这给了我一个看起来像这样的情节：

正如您所看到的，标签大小正在变化，但文本字体大小与标签大小不对应。第一个栏的标签为 15，几乎不可见。当我绘制固定文本大小为 15 的相同条形图时，标签并不像上面看到的那么小。以下是使用固定文本大小生成的代码和绘图：

 a <- aggregate(mpg ~ vs + am , mtcars, function(i) round(mean(i)))

 p <- ggplot(mtcars, aes(factor(vs), y=mpg, fill=factor(am))) + 
      geom_bar(stat="identity",position="dodge") + 
      geom_text(data = a, aes(label = mpg), 
                position = position_dodge(width=0.9), size = 15)  

当每个标签给出不同的尺寸时，有没有办法使标签的尺寸保持一致？

我是 Shiny 的新手。我想根据我在数据表中选择的行获得一个新面板。到目前为止，我已经添加了以下代码，但它似乎不起作用。您必须设置什么条件才能显示新面板并删除以前的面板？

library(shiny)

ui <- fluidPage(

conditionalPanel(
condition <- "is. null(input.dt_rows_selected) == TRUE",
DT::dataTableOutput(outputId = "dt")
),
  conditionalPanel(
condition <- "is. null(input.dt_rows_selected) == FALSE" ,
h3("Plots based on the selected row ")
)
)


server <- function(input, output){

output$dt <- DT::renderDataTable(
mtcars, server = FALSE, selection = 'single'
)
}


shinyApp(ui =ui, server = server)

我正在构建一个有很多条件面板的闪亮应用程序。我在应用程序本身中有一个后退按钮，可以在条件面板之间导航。我想禁用Web浏览器的后退按钮，因为单击该按钮会转到上一个网页（远离我的应用程序）。有没有办法做到这一点？

我在下面创建了一个最小的代码来重现我在应用程序中遇到的问题。

我想做的是对多个输入调用相同的方法，其中存在observeEvent一个actionButtonfor ，其中仅在调用内部调用的函数后才创建。我面临的问题是，添加此from来调用具有多个输入的 后，永远不会被调用。如果我删除这个按钮，就会被调用。以下是我的代码：observeEventmodalDialogobserveEventactionButtonmodalDialogobserveEventobserveEventobserveEvent

  library(shiny)

  #Function called from shiny server
  func <- function(input,output){
    if(is.null(input$txt_Modal)){

      output$txt <- renderText("No Text Entered Yet!")
      showModal(modalDialog(title = "Choose Survival Time",
                            textInput(inputId = "txt_Modal", "Enter text:"),
                            easyClose = FALSE, footer = actionButton(inputId = "btn_Modal_OK","OK")))
    }else{

      output$txt <- renderText({input$txt_Modal})
    }

  }

  ##UI code
  ui <- fluidPage(

    actionButton(inputId = "btn", label = "Enter function and Print Value"),
    textOutput(outputId = "txt")

  )

  ##Server code
  server <- function(input, …