小编jyj*_*jek的帖子

我正在尝试将复选框放入 DT 表并收集有关已选中行的信息。
我的代码如下

shinyApp(
  ui = fluidPage(
    fluidRow(
      verbatimTextOutput("value1"),
      column(12,
             DT::dataTableOutput('table'),  tags$script(HTML('$(document).on("click", "input", function () {
                       var checkboxes = document.getElementsByName("selected");
                       var checkboxesChecked = [];
                       for (var i=0; i<checkboxes.length; i++) {
                       if (checkboxes[i].checked) {
                       checkboxesChecked.push(checkboxes[i].value);
                      }
                      }
                     Shiny.onInputChange("checked_rows",checkboxesChecked);  })'))
      ))),
  server = function(input, output) {
    library(DT)
    library(glue)
    output$value1 <- renderPrint({ input$checked_rows }) 

    output$table <- DT::renderDataTable({
      iris$checked<-''
      iris$checked[2:5]<-'checked=\"checked\"'
      iris[["Select"]]<-glue::glue('<input type="checkbox" name="selected" {iris$checked} value="{1:nrow(iris)}"><br>')
      datatable(iris,escape=F,rownames=F,  class = 'cell-border compact', 
                options=list(ordering=T,autowidth=F,scrollX = TRUE,
                columnDefs = list(list(className = 'dt-center', targets = "_all"))
                ),
                selection="none" …

我正在尝试在我的rmd内部创建动态数量的选项卡，其中包含一些内容。
这个没用。
像这样的东西：

---
title: "1"
output: html_document
---

```{r }
library(highcharter)
library(tidyverse)
iris %>% 
      dplyr::group_split(Species) %>% 
      purrr::map(.,~{
        # create tabset for each group 
        ..1 %>% 
          hchart("scatter", hcaes(x = Sepal.Length, y = Sepal.Width))
        })
```

我正在尝试使用工具提示中的额外变量绘制绘图，但无法理解如何制作。
例如，我想显示qsec，cyl而 来自 API 的hp列
教程没有帮助我
示例：

library(dplyr)
library(echarts4r)
mtcars %>%  
  tibble::rownames_to_column("model") %>% 
  e_charts(wt) %>% 
  e_scatter(mpg,bind=model) %>%
  e_tooltip(formatter = htmlwidgets::JS("
                                        function(params){
                                        return('<strong>' + params.name + 
                                        '</strong><br />wt: ' + params.value[0] + 
                                        '<br />mpg: ' +  params.value[1] +
                                        '<br />qsec: ' +  this.qsec )   }  "))

预期结果是这样的：https :
//github.com/jbkunst/highcharter/issues/54

我有 2 个数据框。
我怎么能用tidyr::complete它们制作类似的东西tidyverse？

我的数据：

df <-data.frame(a=letters[1:2] )
df1<-data.frame(one=1:2)

预期结果：

a 1 
b 1
a 2
b 2

谢谢！

我正在尝试为每行数据创建带有样本值的列
但是我是新手purrr并且无法做到这一点.
我的代码

df<-data.frame(x=rep(1:3,each=4),y=99)
df%>%
  group_by(x)%>%
  mutate_(val=~purrr::map_dbl(function(x) sample(50,1)))

这没用.
但功能purrr只有工作:

1:5%>%purrr::map_dbl(function(x) sample(50,1))
[1] 39 30  7 18 45

谢谢你的帮助!

我在新data.table
如何让同样的事情data.table用rlang？

library(tidyverse)
library(data.table)

gr <- "Species"
col <- "Petal.Length"

iris %>% 
  group_by(!!rlang::sym(gr)) %>% 
  summarise_at(vars(!!rlang::sym(col)),sum)

iris1 <- iris 
setDT(iris1)
iris1[,sum(!!rlang::sym(col)),by=!!rlang::sym(gr)]