Question

我列举了一个很长的例子，但至少它是完全独立的。我的问题如下：我可以以某种方式自定义近点的输出吗？它已经非常接近我的想法，但是我的问题是是否可以自定义近点的输出（这很丑陋）。我不需要有关小标题的所有内容，例如类似

2017年价值20970亿欧元

到目前为止，我的谷歌搜索工作无济于事，因此欢迎提出任何建议。谢谢！

((HttpServletRequest)
 RequestContextHolder.getRequestContext().getExternalContext()
                     .getNativeRequest())
    .getSession())

Answer 1

DT程序包可以使表（小标题？）的光泽看起来好得多。在您的应用程序中进行了几处更改，看起来似乎要好一些，尽管您可能希望舍入值列。

有关DT和闪亮的更多信息：https://rstudio.github.io/DT/shiny.html

library(DT)      ####### <- ADDED THIS PACKAGE


ui <- fluidPage(    
    sidebarLayout(
        sidebarPanel(       
            selectInput("reporterlabel",
                        "Reporter:",
                        reporters ## , multiple=T
            ),
            selectInput("partnerlabel",
                        "Partner:",
                        partners),

            selectInput("tradetype",
                        "Import/Export:",
                        impexp) ,

            selectizeInput("years",
                           "Years:",
                           year_range, multiple=T, selected=year_range) 

        )
        ,

        mainPanel(
            plotOutput("tradeplot" ,
                       hover = "plot_hover"
                       ## click = "plot_click"
            ) ,
            DTOutput("info")   #### <- CHANGED THIS ####
        )
    )
)





    output$info <- renderDT({  ##### <- CHANGED THIS #########

        # With ggplot2, no need to tell it what the x and y variables are.
        # threshold: set max distance, in pixels
        # maxpoints: maximum number of rows to return
        # addDist: add column with distance, in pixels
        nearPoints(filtered_data(), input$plot_hover, threshold = 10, maxpoints = 1,
                   addDist = F)
    }) 


}




shinyApp(ui = ui, server = server)

闪亮：自定义NearPoints的输出

1 个答案: