PROSAGA码农传奇-模型可视化-如果条件R，内部有多个图

<div class =“post-text”itemprop =“text”>
  <P>
    正如你在这里看到的那样
    <a href="https://stackoverflow.com/questions/54447456/printing-hello-world-n-number-of-times-in-r/54447508#54447508">
      在R中打印'Hello world'多次
    </A>
    ，R只显示循环中的最后一条指令，因此解决问题的方法可以将你的地图包装在一个
     <code>
      print()
    </code>
     所以：
  </p>
   <pre>
    <code>
      if (S2_input){
      S2_images<-stack(S2_rsp)
      S2_images
      cubeView(S2_images)

# Plot True/False color
      print(viewRGB(S2_images, 3,2,1, map.types=c("Esri.WorldTopoMap", "Esri.WorldImagery", "OpenStreetMap.Mapnik")))
      viewRGB(S2_images, 4,3,2, map.types=c("Esri.WorldTopoMap", "Esri.WorldImagery", "OpenStreetMap.Mapnik"))
}

</code>
  </pre>
  <P>
    要么
  </p>
   <pre>
    <code>
      if (S2_input){
      S2_images<-stack(S2_rsp)
      S2_images
      cubeView(S2_images)

# Plot True/False color
      print(viewRGB(S2_images, 3,2,1, map.types=c("Esri.WorldTopoMap", "Esri.WorldImagery", "OpenStreetMap.Mapnik")))
      print(viewRGB(S2_images, 4,3,2, map.types=c("Esri.WorldTopoMap", "Esri.WorldImagery", "OpenStreetMap.Mapnik")))
}

</code>
  </pre>
  <P>
    或者你也可以构建一个地图矢量：
  </p>
   <pre>
    <code>
      if (S2_input){
      S2_images<-stack(S2_rsp)
      S2_images
      cubeView(S2_images)

# Plot True/False color
      v <-c(viewRGB(S2_images, 3,2,1, map.types=c("Esri.WorldTopoMap", "Esri.WorldImagery", "OpenStreetMap.Mapnik")),viewRGB(S2_images, 4,3,2, map.types=c("Esri.WorldTopoMap", "Esri.WorldImagery", "OpenStreetMap.Mapnik")))
      v
}

</code>
  </pre>
</DIV>