if (interactive()) { library(shiny) library(shinybusy) ui <- fluidPage( tags$h2("SpinKit demo"), fluidRow(lapply( X = c( "circle", "bounce", "folding-cube", ...
確定! 回上一頁