小编gkm*_*gic的帖子

一个简单的问题 - 我想将一个列表转换为R中的JSON.让我们说这是我的列表:

listtest = list(
  list(section_id = NULL, name = 'name1', slug = 'slug1'),
  list(section_id = NULL, name = 'name2', slug = 'slug2'),
  list(section_id = NULL, name = 'name3', slug = 'slug3', categories = 
         list(
           list(section_id = NULL, name = 'name31', slug = 'slug31'),
           list(section_id = NULL, name = 'name32', slug = 'slug32')
         )
  )
)

所以我用一个简单的

jsontest = toJSON(listtest, pretty = TRUE, auto_unbox = TRUE)

然后我得到一个像这样的JSON:

[
  {
    "section_id": {},
    "name": "name1",
    "slug": "slug1"
  },
  {
    "section_id": {}, …

我写了一个简单的函数来计算公司奖金.由于某种原因,它显示0并且没有给出答案.

Function insurancebonus(penetration As Single, penetrationPlan As Single, _ 
    renewalRate As Single, renewalPlan As Single, dealerRank As Single, _ 
    premiumDynamic As Single) As Single
    Dim Total As Single
    Total = 0
    If penetration >= penetrationPlan Then Total = Total + 0.01
    If renewalRate >= renewalPlan Then Total = Total + 0.01
    Select Case dealerRank
    Case 1
        Select Case premiumDynamic
            Case 0 To 0.03: Total = Total + 0.01
            Case 0.03 To 0.05: Total = Total + 0.02
            Case 0.05 To …

尽管标题看起来很简单,但我还没有在StackOverflow上找到答案.我的问题是:我有一些元素的列表.列表中的每个元素还包含一个填充了一些字符串的列表.列表内的列表包含空('')的值,而不是null.我想删除该列表中空的行.怎么办呢？我猜lapply会做的伎俩,但我不知道如何在那里使用它.

将不胜感激!非常感谢!

编辑:所以我的输出看起来像这样

$'1'
1 text1
2 text2
3
4 text3
5 text4

$'2'
1 text1
2
3 text2
4
5 text3

我的目标是删除那些空的行,使它看起来像这样:

$'1'
1 text1
2 text2
3 text3
4 text4

$'2'
1 text1
2 text2
3 text3