[R閃亮：渲染summary.ivreg輸出

Question

我試圖使R中的工具變量回歸彙總閃亮

下面是代碼：

iv=ivreg(lwage~educ+exper|nearc4+exper) 
summary(iv) 

當我使用renderTable我得到以下錯誤： 沒有適用於'xtable'的方法應用於類「summary.ivreg」的對象

任何建議如何解決此問題？

這是我的網站，如果你想看到我在做什麼確切： https://ieconometrics.shinyapps.io/test/

Answer 1

renderTable期待其存在的xtable方法，你可以看到avaible對象與方法：methods(xtable)，它DOEN 「T與summary.ivreg工作，你可以建立自己的方法或獲得這樣的結果與下面的代碼：

library(shiny) 
library(AER) 
library(ReporteRs) 

# define server 
server <- function(input, output) { 

    output$raw_summary <- renderPrint({ 
    fm <- ivreg(log(packs) ~ log(rprice) + log(rincome) | log(rincome) + tdiff + I(tax/cpi), 
       data = CigarettesSW, subset = year == "1995") 
    print(summary(fm)) 
    }) 

    output$summary_table <- renderUI({ 
    fm <- ivreg(log(packs) ~ log(rprice) + log(rincome) | log(rincome) + tdiff + I(tax/cpi), 
    data = CigarettesSW, subset = year == "1995") 
    data = summary(fm)$coefficients 
    data = as.data.frame(data) 
    # get signif codes 
    signif.codes = cut(data[,4] 
        , breaks = c(-Inf, 0.001, 0.01, 0.05, Inf) 
        , labels= c("***", "**", "*", "")) 

    # format the data values 
    data[, 1] = formatC(data[, 1], digits=3, format = "f") 
    data[, 2] = formatC(data[, 2], digits=3, format = "f") 
    data[, 3] = formatC(data[, 3], digits=3, format = "f") 
    data[, 4] = ifelse(data[, 4] < 0.001, "< 0.001", formatC(data[, 4], digits=5, format = "f")) 
    # add signif codes to data 
    data$Signif = signif.codes 

    # create an empty FlexTable 
    coef_ft = FlexTable(data = data, add.rownames=TRUE 
        , body.par.props = parRight(), header.text.props = textBold() 
        , header.columns = T 
    ) 
    # center the first column and set text as bold italic 
    coef_ft[,1] = parCenter() 
    coef_ft[,1] = textBoldItalic() 

    # define borders 
    coef_ft = setFlexTableBorders(coef_ft 
           , inner.vertical = borderNone(), inner.horizontal = borderDotted() 
           , outer.vertical = borderNone(), outer.horizontal = borderSolid() 
    ) 
    return(HTML(as.html(coef_ft))) 
    }) 
} 

# define ui 
ui <- shinyUI(fluidPage(
    p("Raw summary"), 
    verbatimTextOutput(outputId = "raw_summary"), 

    p("Pretty model summary table :"), 
    uiOutput(outputId = "summary_table") 
)) 

# Call the app 
shinyApp(ui = ui, server = server)