RStudioでのコードフォールディング：コード内の階層の作成

Question

RStudioでRスクリプトを作成していますが、私はcode foldingをたくさん使用しています。 cmd + シフト + を押すと折り畳みの階層がわかります。これは非常に便利です。

# to my dear love --------------------------------------------------------- 
2+2 
# yo man ==== 
x.2 = function (x) {x+2} 

### I do love potatoes #### 

はCMD + シフト + Oを押して結果を参照されたいです。

私は以下のコードを書くとき（# ====ではなく​​を使用して）その中にテキストがあるとき、私はテキストなしでサブセクションを作成することはできませんが、ので、私はこれが機能しているか理解していません。

# to my dear love --------------------------------------------------------- 
2+2 
# ==== 

# yo man ==== 

### I do love potatoes #### 
x.2 = function (x) {x+2} 
data = "here is some data" 

はCMD + シフト + Oを押して結果を参照されたいです。

# to my dear love ---------------------------------------------------------の下にあるすべてが右にシフトされていることがわかります！これはカッコいい！

1. したがって、テキストを含むセクションの階層を作成するにはどうすればいいですか？
2. これを行うのは独特なパッケージかEmacですか？ のコマンドでサブセクションを作成し、階層を表示する方法 + シフト + ボックス？
3. どのように私がダウンして、右のボックスに視覚的な階層構造を減少させることによって、下のセクション（セクション1）に高いセクション（例えばセクション2に行くのセクションを（）シフトすることができますか？クリスの答えを1として

Answer 1

をsubheaders within functions

RStudioコードの折りたたみ階層のみが関数定義とのif-else構造内で機能例えば：。

01：

# Section 1 ---- 
a <- 1 

testfunct1 <- function() { 
# sect in function===== 
    b <- 2 
    c <- 3 
} 

# Section 2 ##### 
d <- 4 

# Section 3 ======= 
e <- 5 

testfunct2 <- function() { 
    # sect in function 2 ===== 
    f <- 6 
    testsubfunct2_1 <- function() { 
    # sect in subfunction 2_1 ----- 
    if (a == 1) { 
     # section in if ---- 
     g < 7 
    } else { 
     # section in else ---- 
     h = 8 
    } 
    } 
} 

# Section 4 #### 
j <- 9 

は、このアウトラインを生成します

なぜif-elseセクションのラベルが並んでいないのか分かりません。