Sto creando una tabella utilizzando renderTable ma il codice HTML all'interno della tabella non viene eseguito il rendering:r tavolo lucido non rendering HTML
Questo è il codice snipit di interesse:
if (is.null(Compare_Count) || is.na(Compare_Count) || length(Compare_Count) == 0L) {
CT_Table[i, 3] <- HTML("<i class='icon-arrow-up'></i>")
} else if (CT_Table[i, 2] > Compare_Count) {
CT_Table[i, 3] <- print(tags$i(class='icon-arrow-up', style="text-color: green"), quote = FALSE)
}
Né HTML
, paste
o c
funzionano.
Come visualizzare le frecce?
Grazie!
server.r
: [Nota, questo è un esempio. Il codice non è completa, parentesi possono essere non corrispondenti, ecc Non è importante per la domanda.]
output$example <- renderTable(include.rownames=FALSE,{
CT_Table <- count(Canidates,vars=c("Name"))
CT_Table <- CT_Table[order(CT_Table["Recent Reviews: "], decreasing=T),]
for (i in 1:nrow(CT_Table)) {
Compare_Name <- paste(CT_Table$Product[i])
Compare_Count <- Can_trend[Can_trend$Name == Compare_Name, 2]
if (is.null(Compare_Count) || is.na(Compare_Count) || length(Compare_Count) == 0L)
{
CT_Table[i, 3] <- HTML("<i class='icon-arrow-up'></i>")
} else if (CT_Table[i, 2] > Compare_Count) {
CT_Table[i, 3] <- tags$i(class='icon-arrow-up', style="text-color: green")
} else if (CT_Table[i, 2] < Compare_Count) {
CT_Table[i, 3] <- tags$i(class='icon-arrow-down', style="text-color: red")
} else if (CT_Table[i, 2] == Compare_Count) {
CT_Table[i, 3] <- tags$i(class='icon-minus', style="text-color: yellow")
}
}
}
CT_Table
})
ui.r
è solo una semplice chiamata al tableOutput
o htmlOutput
, ma nessuno dei due rende il codice HTML incollato nella colonna.
Potresti fornire file "ui.R' e' server.R' minimi ma completi? – juba
Ho aggiornato la domanda con un esempio di codice più completo; il file è lungo alcune migliaia di righe, quindi sto cercando di incollare solo ciò che è necessario. Per favore fatemi sapere se ho lasciato qualcosa fuori, e grazie! – JayCo