Question

这是我的R代码：

library("RJSDMX")
library(shiny)

ui <- fluidPage(

  titlePanel("Navlist panel example"),

  navlistPanel(
    "Header",
    result <- array(getFlows("TurkStat")),

    boyut1 <- getDimensions("TurkStat","RD_A"),
    boyut2 <- getDimensions("TurkStat","STSALL"),
    boyut3 <- getDimensions("TurkStat","NA_MAIN"),

     selected = result[1],
#    boy_tab1 <- as.data.frame.table(boyut1),
#    boy_tab2 <- as.data.frame.table(boyut2),
#    boy_tab3 <- as.data.frame.table(boyut3),

    tabPanel(result[1], as.data.frame.list(boyut1)),
    tabPanel(result[2], as.data.frame.list(boyut2)),
    tabPanel(result[3], as.data.frame.list(boyut3))
    )
  )

server = function(input, output) { }

shinyApp(ui, server)

页面加载时，结果输出完全显示：

RD数据结构定义STS ALL NA Main Aggregates选项卡-9265-2 SDMX / CL_FREQ / 2.0 ESTAT / CL_GEO_RD / 1.2 ESTAT / CL_SECTFUND / 1.2 ESTAT / CL_SECTFUND / 1.2 ESTAT / CL_SEX / 2.0 ESTAT / CL_RD_OCCUP / 1.1 ESTAT / CL_FORD /1.0 ESTAT / CL_AGE / 2.0 ESTAT / CL_GEO_RD / 1.2 ESTAT / CL_ISCED11_RD / 1.0 ESTAT / CL_SENIORITY / 1.0 ESTAT / CL_TYPECOST / 1.1 ESTAT / CL_TYPERD / 1.1 ESTAT / CL_AFFILIATION / 1.0 ESTAT / CL_INDUSTRY / 1.1 ESTAT / CL_INDUSTRY / 1.1 ESTAT / CL_EMPLOYEES /1.1 ESTAT / CL_NABS07 / 1.1 ESTAT / CL_RD_UNIT / 1.1 tab-9265-3 SDMX / CL_FREQ / 2.0 IMF / CL_AREA / 1.5 ESTAT / CL_ADJUSTMENT / 1.4 ESTAT / CL_STS_INDICATOR / 1.1 ESTAT / CL_ACTIVITY_STS / 1.0 ESTAT / CL_BASE_YEAR / 1.1 tab-9265 -4 SDMX / CL_FREQ / 2.0 ESTAT / CL_ADJUSTMENT / 1.4 IMF / CL_AREA / 1.7 IMF / CL_AREA / 1.7 ESTAT / CL_SECTOR / 1.5 ESTAT / CL_SECTOR / 1.5 IMF / CL_ACCOUNT_ENTRY / 1.2 ESTAT / CL_NA_STO / 1.8 ESTAT / CL_INSTR_ASSET / 1.6 ESTAT / CL_ACTIVITY /1.5 ESTAT / CL_COICOP / 1.1 IMF / CL_UNIT / 1.8 ESTAT / CL_NA_PRICES / 1.1 ESTAT / CL_TRANSFORMATION / 1.2 tab-9265-5 SDMX / CL_FREQ / 2.0 ESTAT / CL_GEO_RD / 1.2 ESTAT / CL_SECTFUND / 1.2 ESTAT / CL_SECTFUND / 1.2 ESTAT / CL_SEX / 2.0 ESTAT / CL_RD_OCCUP / 1.1 ESTAT / CL_FORD / 1.0 ESTAT / CL_AGE / 2.0 ESTAT / CL_GEO_RD / 1.2 ESTAT / CL_ISCED11_RD / 1.0 ESTAT / CL_SENIORITY / 1.0 ESTAT / CL_TYPECOST / 1.1 ESTAT / CL_TYPERD / 1.1 ESTAT / CL_AFFILIATION / 1.0 ESTAT / CL_INDUSTRY / 1.1 ESTAT / CL_INDUSTRY / 1.1 ESTAT / CL_EMPLOYEES / 1.1 ESTAT / CL_NABS07 / 1.1 ESTAT / CL_RD_UNIT / 1.1

我只想在侧边栏上进行选择时显示结果。但是在显示所有结果后显示我的选择。

你能帮我解决一下如何清除页面正文以使其按照我的选择行事吗？

非常感谢你。

最好的问候。

我的R应用程序在正文上生成额外的额外输出

0 个答案: