我正在使用using创建一个调查,并在我的闪亮应用程序的开头具有以下功能:
install.packages("devtools")
spotifydata<-spotifycharts::chart_top200_weekly()
s<-spotifydata$artist
h<-head(s,20)
我想知道是否有任何地方可以显示变量“h”的输出?
我的想法是以下面的方式使用"selectInput“以下拉菜单的方式显示每个结果。
selectInput("artists","pick 3 artists out of t
我有一个包含多个表的MySQL数据库。现在,我想在闪亮的仪表板中创建一个下拉菜单,它可以根据表中每一列的唯一值自动添加值。
我当前的代码如下所示
ui <- fluidPage(
numericInput("nrows", "Enter the number of rows to display:", 5),
tableOutput("tbl")
)
server <- function(input, output, session) {
output$tbl <- renderTable({