चमकदार डेटाटेबल

Question

में क्लिक करने योग्य लिंक मैंने चमकदार रेंडरडेटाटेबल का उपयोग करके कुछ HTML लिंक वाली एक तालिका बनाई है। लिंक, क्लिक करने योग्य नहीं हैं, हालांकि, इसके बजाय उन्हें सचमुच प्रस्तुत करना:

https://samizdat.shinyapps.io/zakazky/

आप किसी भी विचार है कि क्या गलत हो सकता है? शाइन को संस्करण 0.11 में अपग्रेड करने से पहले यह ठीक काम करता है ... धन्यवाद!

Answer 1

मुझे एक ही समस्या थी। escape = FALSE रेंडरडेटाटेबल के लिए विकल्प ने इसे हल किया है, जैसा कि आपने टिप्पणियों में उल्लेख किया है।

यहां एक सारणी के साथ एक ऐप के लिए पूर्ण कोड है जिसमें लिंक हैं।

यदि आप ऐसा कर रहे हैं, तो आप चाहते हैं कि प्रत्येक लिंक तालिका में किसी मान के आधार पर अद्वितीय हो। मैं इस कोड को एक फ़ंक्शन में ले जाता हूं ताकि उसका क्लीनर हो।

#app.R# 

library(shiny) 

createLink <- function(val) { 
    sprintf('<a href="https://www.google.com/#q=%s" target="_blank" class="btn btn-primary">Info</a>',val) 
} 

ui <- fluidPage( 
    titlePanel("Table with Links!"), 
    sidebarLayout(
    sidebarPanel(
     h4("Click the link in the table to see 
     a google search for the car.") 
    ), 
    mainPanel(
     dataTableOutput('table1') 
    ) 
) 
) 

server <- function(input, output) { 

    output$table1 <- renderDataTable({ 

    my_table <- cbind(rownames(mtcars), mtcars) 
    colnames(my_table)[1] <- 'car' 
    my_table$link <- createLink(my_table$car) 
    return(my_table) 

    }, escape = FALSE) 
} 

shinyApp(ui, server)