這里有一個簡單的方法可以幫助彌補我的其他一些帖子。我認為這很容易，但我在搜索中沒有找到適合我的解決方案。
運行以下 MWE 代碼時，如何生成一個簡單的表格輸出，顯示 2 個標注列（“Nbr”和“MOB”）的總和？下面給了我“總和錯誤：引數的‘型別’（字符）無效”。
我想要一個表格輸出（不是嵌入在文本字串中的值），因為在完整的應用程式中，我將向輸出添加其他總和，構建一個更大的表格。
MWE代碼：
library(shiny)
beta <- matrix(c(19,19,19,'2014-07','2014-08','2014-09',1,2,3),
nrow = 3,
ncol = 3,
dimnames = list(NULL,c("Nbr","Month","MOB")))
beta <- data.frame(beta)
ui <- fluidPage(
tableOutput("summary")
)
server <- function(input, output, session) {
output$summary <- renderTable(c(sum(beta$Nbr,sum(beta$MOB))))
}
shinyApp(ui, server)
uj5u.com熱心網友回復：
錯誤 ( Error in sum(beta$MOB) : invalid 'type' (character) of argument) 告訴您無法sum對字符向量執行該函式。所以你首先必須轉換為數字，然后錯誤就會消失。
beta <- matrix(c(19,19,19,'2014-07','2014-08','2014-09',1,2,3),
nrow = 3,
ncol = 3,
dimnames = list(NULL,c("Nbr","Month","MOB")))
beta <- data.frame(beta)
在此處添加：
beta[c("Nbr","MOB")]<-sapply(beta[c("Nbr","MOB")],as.numeric)
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/325699.html