小编An *_*ist的帖子

如果我在回归中使用二进制解释变量,如何告诉R使用某个级别作为参考？

它只是默认使用某个级别.

lm(x ~ y + as.factor(b)) 

与b {0, 1, 2, 3, 4}.假设我想使用3而不是R使用的零.

我正在使用Shiny和knitr的组合来创建PDF文档.

目前我想添加一项功能,允许用户上传将放置在创建文档中的图片.但是,我真的被卡住了,因为我无法获得输入图片的路径.有人可以帮我吗？

简单的例子:

应用:

library(knitr)
library(shiny)

ui <- fluidPage(

  sidebarLayout(
    sidebarPanel(
      fileInput("picture", label = 'Picture'),
      downloadButton('report', label = 'Download PDF')
      ),

    mainPanel()
  )
)

server <- function(input,output){

  picture <-  reactive({
    input$picture[,4]
  })

  output$report = downloadHandler(
    filename = "test.pdf",

    content = function(file){
      picture = picture()

    out = knit2pdf(input = 'test.Rnw', compiler = 'xelatex', clean = TRUE)
    file.rename(out, file) 
    },

    contentType = 'application/pdf'
  )
}

shinyApp(ui = ui, server = server)

和.Rnw文件:

\documentclass{article}

\begin{document}

Put picture here:
<<echo = FALSE …

我是Python的新手，正在努力将嵌套json文件转换为cvs。为此，我首先加载json，然后以json_normalize打印出不错的输出的方式对其进行了转换，然后使用pandas包将标准化的部分输出到中cvs。

我的示例json：

[{
 "_id": {
   "id": "123"
 },
 "device": {
   "browser": "Safari",
   "category": "d",
   "os": "Mac"
 },
 "exID": {
   "$oid": "123"
 },
 "extreme": false,
 "geo": {
   "city": "London",
   "country": "United Kingdom",
   "countryCode": "UK",
   "ip": "00.000.000.0"
 },
 "viewed": {
   "$date": "2011-02-12"
 },
 "attributes": [{
   "name": "gender",
   "numeric": 0,
   "value": 0
 }, {
   "name": "email",
   "value": false
 }],
 "change": [{
   "id": {
     "$id": "1231"
   },
   "seen": [{
     "$date": "2011-02-12"
   }]
 }]
}, {
 "_id": …

我正在阅读excel文件data frame.但是,我的前三列有标题,其余的只需要一个数字索引.当我读取文件时,我得到下面的输出.

        a         b         c    Unnamed: 4  Unnamed: 5  Unnamed: 6
0  0.109066 -1.112704 -0.545209  0.109066   -1.112704   -0.545209
1  0.447114  1.525341  0.317252  0.109066   -1.112704   -0.545209
2  0.507495  0.137863  0.886283  1.452867    1.888363    1.168101
3  1.452867  1.888363  1.168101  0.901371   -0.704805    0.088335
4  0.901371 -0.704805  0.088335  0.901371   -0.704805    0.088335

我希望数据框看起来像这样,请记住,未命名列的数量可能会有所不同.

        a         b         c        1           2           3
0  0.109066 -1.112704 -0.545209  0.109066   -1.112704   -0.545209
1  0.447114  1.525341  0.317252  0.109066   -1.112704   -0.545209
2  0.507495  0.137863  0.886283  1.452867    1.888363    1.168101
3  1.452867 …

我有相当简单的应用程序（如下），我尝试使用具有折叠组功能的 DataTable 输出分组表。我在这里找到了在 jQuery 中实现的解决方案，但我不知道如何将如此复杂的实现转移到 R 中。

目前，我能够在一个团体内崩溃，但不能崩溃整个团体本身。有什么提示可以在 Shiny 中实现吗？

我的应用程序：

library(shiny)
library(DT)
library(shinyjs)

ui <- fluidPage(

   # Application title
   titlePanel("Collapse/Expand table"),

            mainPanel(
          DTOutput("my_table")

      )
   )


server <- function(input, output) {

    output$my_table<-DT::renderDataTable({

        datatable(mtcars[1:15,1:5],
                  extensions = 'RowGroup', 
                  options = list(rowGroup = list(dataSrc=c(3)),
                                 pageLength = 20),
                  callback = JS("
                                table.on('click', 'tr', function () {
                                    var rowsCollapse = $(this).nextUntil('.group');
                                    $(rowsCollapse).toggleClass('hidden');
                                 });"))
    })
}

# Run the application 
shinyApp(ui = ui, server = server)

编辑

给定 AEF 注释，我们可以调整代码以指定一旦单击表主体就必须执行该操作。这确实会折叠任何行直到下一组。剩下的部分是将点击限制为仅对组行。现在回调应该是：

callback = …