Question

我在groovy中还很新，我正在尝试制作我的第一个jira脚本。以下代码使我知道未声明变量“ finalMessage” ..它似乎与全局变量有关。我在做什么错了？

finalMessage = ""

def mainMethod() {
  logMessage "hello groovy"
  return finalMessage
}

def logMessage(message){
   finalMessage += message
 }

Answer 1

我不确定您为什么要这么做，但是，我认为我可能已经正确解释了。相反，也许您可以使用数组，然后在脚本末尾将其加入以获得所需的内容。例如

library(shiny)
library(shinydashboard)
library(DT)

convertMenuItem <- function(mi,tabName) {
  mi$children[[1]]$attribs['data-toggle']="tab"
  mi$children[[1]]$attribs['data-value'] = tabName
  mi
}
UI <- dashboardPage(
      dashboardHeader(title = 'Data Exloration'),
      dashboardSidebar(
  sidebarMenu(
    convertMenuItem(menuItem("FULL Data",tabName="Data",icon=icon("table"),
                             fileInput("file","Upload CSV files",multiple=TRUE,accept=("text/comma")),
                             selectInput("vari", "Variable", 
                                         choices=colnames(values$df_data)), tabName = "Data"),
    convertMenuItem(menuItem("Continous variables",tabName="Query2",icon=icon("table"),
                             selectInput("vari1", "Variable", 
                                         choices=colnames(values$df_data[ ,!sapply(values$df_data, is.factor)]))), tabName = "Continous variables"),
    convertMenuItem(menuItem("Categorical variables",tabName="Query2",icon=icon("table"),
                             selectInput("vari2", "Variable", 
                                         choices=colnames(values$df_data[ ,sapply(values$df_data, is.factor)])), tabName = "Categorical variables"))
)
)
   dashboardBody(
     tabItems(
      tabItem(tabName="Data", tabName="Data",
            fluidRow(
              h2("A look into the Whole Dataset")
            ),  # end of 1st Fluid Row        

            fluidRow(
              DT::dataTableOutput("data.frame"))),
      tabItem(tabName = "Continous variables", h2("Widgets tab content")),
      tabItem(tabName = "Categorical variables", h2("Widgets tab content"))
  )
)
)
server <- function(input, output) {
  values <- reactiveValues(df_data = NULL)

  observeEvent(input$file, {
    values$df_data <- read.csv(input$file$datapath)
  })
  output$data.frame <-DT::renderDataTable(values$df_data)
  output$select <- renderUI({
    df <- values$df_data
    selectInput("vari1", "Select Variables:",names(values$df_data[ ,!sapply(values$df_data, is.factor)])))

  })
  output$select <- renderUI({
    df <- values$df_data
    selectInput("vari2", "Select Variables:",names(values$df_data[ ,sapply(values$df_data, is.factor)])))

  })
}
shinyApp(UI, server)

全局变量时未声明的变量

1 个答案: