code: def create_load_string(upload_dir, groups=None, organism=None):
      
      libraryline = 'library(bcbioRNASeq)'
      load_template = Template(
          ('bcb <- bcbioRNASeq(uploadDir="$upload_dir",'
           'interestingGroups=$groups,'
           'organism="$organism")'))
      load_noorganism_template = Template(
          ('bcb <- bcbioRNASeq(uploadDir="$upload_dir",'
           'interestingGroups=$groups,'
           'organism=NULL)'))
      flatline = 'flat <- flatFiles(bcb)'
      saveline = 'saveData(bcb, flat, dir="data")'
      if groups:
          groups = _list2Rlist(groups)
      else:
          groups = _quotestring("sampleName")
      if organism:
          load_bcbio = load_template.substitute(
              upload_dir=upload_dir, groups=groups, organism=organism)
      else:
          load_bcbio = load_noorganism_template.substitute(upload_dir=upload_dir,
                                                           groups=groups)
      return ";\n".join([libraryline, load_bcbio, flatline, saveline])
docs: create the code necessary to load the bcbioRNAseq object